トップページ⇒tech
1001コメント371KB

Excel VBA 質問スレ Part14

■ このスレッドは過去ログ倉庫に格納されています
0001デフォルトの名無しさん2010/01/06(水) 12:34:58
過去スレ
01 http://pc11.2ch.net/test/read.cgi/tech/1054356121/
02 http://pc11.2ch.net/test/read.cgi/tech/1168308855/
03 http://pc11.2ch.net/test/read.cgi/tech/1180192018/
04 http://pc11.2ch.net/test/read.cgi/tech/1189814602/
05 http://pc11.2ch.net/test/read.cgi/tech/1197448064/
06 http://pc11.2ch.net/test/read.cgi/tech/1205231499/
07 http://pc11.2ch.net/test/read.cgi/tech/1212587819/
08 http://pc11.2ch.net/test/read.cgi/tech/1219673793/
09 http://pc11.2ch.net/test/read.cgi/tech/1228372971/
10 http://pc12.2ch.net/test/read.cgi/tech/1235332603/
11 http://pc12.2ch.net/test/read.cgi/tech/1241885130/
12 http://pc12.2ch.net/test/read.cgi/tech/1247566074/
13 http://pc12.2ch.net/test/read.cgi/tech/1254281104/
0646デフォルトの名無しさん2010/03/18(木) 17:57:50
>>644
セルの文字数についてはバージョンによる違いだってわかるけど、
Valueの省略については色々調べてもわからなくて、昨日からずっと気持ち悪い。
納得できる答えをくれる神は降臨しないかと待ってるんだけど
スレ覗く度に荒れる一方で（ry
0647デフォルトの名無しさん2010/03/18(木) 18:22:47
>>646
納得できる答えが見つかっても、安全側に倒してデフォルトプロパティに頼らない
コードを書くしかないという状況は変わらないよ。
0648デフォルトの名無しさん2010/03/18(木) 18:24:50
>>645
バレバレｗ
0649デフォルトの名無しさん2010/03/18(木) 18:29:42
まぁどっちもひといが、この板的にはこれが一番ひどい。

>>611
>それはそうと、これだと10000行までいけるなｗ
0650デフォルトの名無しさん2010/03/18(木) 18:38:10
例えば

Sub test()
MsgBox TypeName(Range("A1").Value)
MsgBox TypeName(Range("A1"))
End Sub

とやると
Empty
Range
となる
0651デフォルトの名無しさん2010/03/18(木) 19:46:05
>>650
だから？
0652デフォルトの名無しさん2010/03/18(木) 19:54:40
>>611にガン擁護された>>600は、どのような登場の仕方をするのであろうか。
0653デフォルトの名無しさん2010/03/18(木) 20:44:22
>>623
256文字でエラーになるExcelのバージョン
0654デフォルトの名無しさん2010/03/18(木) 23:07:40
>>653
え！？それかよっ！！ｗｗｗ
0655デフォルトの名無しさん2010/03/18(木) 23:27:05
>>653
うち Excel2003(XP) と Excel97(Win98)あるんだけど
Excel97(Win98) だと256文字でエラーになる
0656デフォルトの名無しさん2010/03/18(木) 23:48:24
哲也君がVBAマクロを２昼夜かけて作ったんですよ。



これが本当の「マクロ ２夜連続」なんつって。
0657デフォルトの名無しさん2010/03/19(金) 02:04:41
>>653
だったら、初めから自分の環境の結果を書いとこうね。
俺は何もしないけど、お前ら俺の知りたいことを教えろパターンですな。
ちなみに俺は、これまで出ていないExcel 2000を持っていて実験もし結果もわかったが教えない。
0658デフォルトの名無しさん2010/03/19(金) 06:32:11
俺はウチとまったく同じ環境の結果がガイシュツだから書かなかっただけなんだけど、
同じことを何度も書かなきゃいけないの？
役所に出す書類だな、まるで。
0659デフォルトの名無しさん2010/03/19(金) 06:38:42
それが知りたいんだったら、既出の情報をまとめるなりなんなりしろよ。
餓鬼かよ。
0660デフォルトの名無しさん2010/03/19(金) 07:31:23
私女だけど、たった1行の実験結果を書かずに言い訳を何行も書く男の人って
0661デフォルトの名無しさん2010/03/19(金) 08:40:37
まとめなきゃ把握できないほどの情報量か？
数えてないけど3例ぐらいしか出てなかっただろ。
0662デフォルトの名無しさん2010/03/19(金) 08:55:26
ＸＰ　2003です

ググっても中々みつからないんだけど、
手動で選択したセル範囲の数字を一気に計算(仮に10倍)とかするのってVBAで出来るの？

あとついでに、セル範囲の一番右下の座標も取りたいんだけどやり方教えてください。
0663デフォルトの名無しさん2010/03/19(金) 09:11:53
>>661
いつまでやってんだ
0664デフォルトの名無しさん2010/03/19(金) 09:13:07
>>662
前半：できる。rangeを関数の引数に取りfor each
後半：一発でできるかどうかは知らん
0665デフォルトの名無しさん2010/03/19(金) 09:15:03
>>682
VBAでもちろん出来るが手操作でも出来る。
どっかのセルに10と書いて、コピー、形式を選択して貼り付け、乗算

一個の選択した矩形範囲の右下隅のセルを操作したければ
Selection(Selection.Count).****
Excel2003はこれで大丈夫だが、Excel2007は全セルを選択したとき
CountプロパティがLong型なので入りきれなくてエラーになる。
そこまで考慮するなら
With Selection
　.Item(.Rows.Count*.Columns.Count).****
End With
座標って行番号とか列番号とかアドレスが必要なケースは滅多にないだろう。
全くないというわけではないが。
0666デフォルトの名無しさん2010/03/19(金) 09:15:04
>>661
ほら、お前もスレを確認しないと状況がわからないだろ。
>>653の知りたかったことなんて誰も知らないんだから、状況をまとめて
あとこのバージョンの動作を教えてくれってやるのが筋。
0667デフォルトの名無しさん2010/03/19(金) 09:59:47
>>653
Excel 2000では256文字目でエラーになる。

これで全部揃った？揃ったならまとめくらいしてもバチはあたらないよ。
0668デフォルトの名無しさん2010/03/19(金) 10:08:55
Excel95がまだ出てなーなｗ
0669デフォルトの名無しさん2010/03/19(金) 10:26:54
だれか知ってる人がいたら教えてくれ。
A1の表示形式がG/標準のとき
Debug.Print Format(Range("a1"), Range("a1").NumberFormat)
とやると"M32032ral"が返るんだが、これって何？
0670デフォルトの名無しさん2010/03/19(金) 10:28:49
いかん、Valueつけるの忘れたわ
0671デフォルトの名無しさん2010/03/19(金) 10:31:38
A1の値を書くのも忘れたわ
1の場合ね
0672デフォルトの名無しさん2010/03/19(金) 10:38:56
>>669
知ってるのか知らないのかわからないが、それ、Formatの第二引数の指定方法が間違ってる。
0673デフォルトの名無しさん2010/03/19(金) 11:18:49
競艇のネット自動投票プログラム作っています。自動ログインは完成しましたけど、
次の画面の投票する競艇場選択のボタンを押す方法が分かりません。

押したいボタンのHTMLソースは以下
<input value="福　 岡" onclick="jyocd(22)" tabindex="2" type="BUTTON">

ボタンの名前(name)が無いから通常のやり方ではできません。

また、
SendKeys "{TAB 5}"
SendKeys "{ENTER}"

で５番目の競艇場をクリックではできましたが、最終レースが終わると
その競艇場選択ボタンが消えますので、必ずしも××競艇場が５番目とは限らないのです。

検索等で昨日１日中調べてみましたが解決しません。。。助けてください。
0674デフォルトの名無しさん2010/03/19(金) 12:08:09
データについているハイパーリンクの中の数字を取り出して（〜info.php?chr=25121とあったら568311）、もしAという数字だったら、その列の情報を全て、シートAにコピー
という仕組みを作りたいと思っております。
ハイパーリンクの中の数字を参照するには、どうしたらよろしいのでしょうか？助けていただけると助かります。
0675デフォルトの名無しさん2010/03/19(金) 12:57:29
>>672
どこが？
まさかNumberFormatLocalってんじゃないだろうね。
もしそう思ってるならそっちが間違ってる。
そんなことはないとは思うけど。
0676デフォルトの名無しさん2010/03/19(金) 12:58:20
まとめました。扱える文字数はバージョンの違いってわかるんですけど、
何故Valueを省略するとエラーが出るのか、どなたか教えて頂けませんか？

【バージョン不明】
256文字以上でエラー
>>578（質問者）、>>581、>>596

911文字以上でエラー
>>600


【バージョン記述あり】
Win98＆97（256文字以上でエラー）
>>655

OS不明＆2000（256文字以上でエラー）
>>655

XP＆2003（911文字以上でエラー）
>>583（>>588?）、>>584（>>587?）、>>586

Win7＆2007（8203文字以上でエラー）
>>612
06776762010/03/19(金) 13:01:21
訂正ですorz
OS不明＆2000（256文字以上でエラー）は>>667でした。
0678デフォルトの名無しさん2010/03/19(金) 13:14:44
あぁ分ったわ。
NumberFormatは"General"だから
Gは元号のGで明治だからM
eは和暦の年
nは分
eは和暦の年
ralはGeneralの右3文字だな。
結局Formatじゃ駄目でWorksheetFunction.Textってことか。
俺の間違いだったわ。
0679デフォルトの名無しさん2010/03/19(金) 14:42:54
>>678
いやいや、ヘルプ見ろよ
0680デフォルトの名無しさん2010/03/19(金) 14:46:07
>>676
それ多分OS関係ない。

> 何故Valueを省略するとエラーが出るのか、どなたか教えて頂けませんか？
多分、今ここにいる奴は答えられないから、これまでに回答がないんだよ。
モーグにでも行けば？
0681デフォルトの名無しさん2010/03/19(金) 17:50:13
>>674
> chr=25121とあったら568311

の法則がよくわからない。
Aは数字じゃない。
16進？でもなそさうだし。
0682デフォルトの名無しさん2010/03/19(金) 17:53:43
>>679
FormatもWorksheetFunction.Textも似たようなもんだろうと思ってた俺が
馬鹿だったが、Formatのヘルプの表示書式指定文字なんて一部しか載ってないね。
とりあえず"s","h","n","g","aaa"などが抜けてる。
"General"はWorksheetFunction.TextにはあるがFormatにはないということだな。
0683デフォルトの名無しさん2010/03/19(金) 18:01:50
範囲指定していっぺんに10倍はVBAでもできる。
「形式を選択して貼り付け、乗算」をマクロの記録してみ。
0684デフォルトの名無しさん2010/03/19(金) 18:12:10
Formatのヘルプの最後にある表示書式指定文字だが、あれは一覧じゃなかったか。
0685デフォルトの名無しさん2010/03/19(金) 18:14:19
>>682
ホントだ。ローカルのヘルプは抜けてるのがある。
オンラインヘルプなら全部出るみたいだけど。
0686デフォルトの名無しさん2010/03/19(金) 18:26:38
>>682
あと"p"とか"ccc"とか"ooo"とか"ww"とかもあるみたいね。
Format(1,"ww")が53、Format(1,"www")が531になるがなんのこっちゃ。
0687デフォルトの名無しさん2010/03/19(金) 18:47:18
"p"じゃなくて"q"だったわ。
"ccc"も"c"ね。
Format$(シリアル値,"yyyy/mm/dd")とするところを
Format$(シリアル値,"c")としても同じみたい。

>>685
オンラインのヘルプどこ？
さっきから探してるんだが見つからん。
MSDNかな？
0688デフォルトの名無しさん2010/03/19(金) 18:54:35
cはcountryのcだと予想して地域オプションをいじくってみたら、案の定
Format$(シリアル値,"c")は必ずしもFormat$(シリアル値,"yyyy/mm/dd")と
同じじゃなかったわ。
06896622010/03/19(金) 19:51:07
>>664-665
回答ありがとうです。本当にたすかりました。
面倒なんで「(どっかのセルに10と書いて)コピー、形式を選択して貼り付け、乗算」をマクロ記録させてそれでやり過ごしました。
0690デフォルトの名無しさん2010/03/19(金) 20:03:49
Formatの奴うざいよ？
Valueの奴と同じちゃうんかと思われるレベル。
0691デフォルトの名無しさん2010/03/19(金) 20:15:38
うざくてすまんね。
Value関連は考えすぎだな。
629と633と637は俺だけどな。
0692デフォルトの名無しさん2010/03/19(金) 20:21:00
というわけど、今後は>>690のハイレベルな回答を期待しましょうねｗ
0693デフォルトの名無しさん2010/03/19(金) 20:38:21
ヘルプ見ろでFAだろ。
質問者はまだ見れてないようだが。
0694デフォルトの名無しさん2010/03/19(金) 20:42:05
めんどくさいけど探してやった。
ほれ。
http://msdn.microsoft.com/ja-jp/library/59bz1f0h(VS.80).aspx
0695デフォルトの名無しさん2010/03/19(金) 20:47:20
それVBAも一緒なの？
0696デフォルトの名無しさん2010/03/19(金) 20:51:40
ブイバのことは俺に任せろ！
0697デフォルトの名無しさん2010/03/19(金) 21:04:53
>>693
クソ生意気な奴だなぁ。
ヘルプくらいは真っ先に見てるさ。
俺の見れるヘルプにはcやwwwは見れないんだよ。
お前がそういうなら探せばどっかにあるんだろうけどね。
Formatで検索して出てくる下には書いてない。
Format 関数
ヘルプ > 関数 > D-G
Format 関数の使用例
数値表示書式指定文字 (Format 関数)
文字列表示書式指定文字 (Format 関数)
数値を表すその他の書式 (Format 関数)

もうどうでもいいけどな。
0698デフォルトの名無しさん2010/03/19(金) 21:09:18
>>694
お、ありがとう。
そこにあったか。
どうでもいいと書いたがこれから見るわ。
0699デフォルトの名無しさん2010/03/19(金) 21:14:54
>>693=694の俺なんですが・・・
0700デフォルトの名無しさん2010/03/19(金) 21:18:56
なんというツンデレ！！
おまいら何やってんだよｗｗｗ
0701デフォルトの名無しさん2010/03/19(金) 21:25:30
>>699
ふーん？
結局お前もまともにヘルプ見てなかったと言うことかｗ
>>694もリンク先見たけど、cやwwwは載ってないわ。
ExcelヘルプでFormatで検索しても出てこなかったが、表示書式指定文字で検索したら出てきたよ。
0702デフォルトの名無しさん2010/03/19(金) 22:21:05
>>701
日付の書式のヘルプ初めて見たよ。
cとかooooとかwwとか今まで知らんかった。
0703デフォルトの名無しさん2010/03/19(金) 22:35:11
>>702
同じく。
しかしヘルプでFormatじゃなくFormat関数と最後まで打てば日付関連の書式は出てきたな。
手抜きはいかんな。
またうざいとか言われるからこのへんにしとくよ。
0704デフォルトの名無しさん2010/03/19(金) 22:53:23
>>703
「Format 日付」でも出てくるよ。
間にスペース入れればAnd検索だな。
0705デフォルトの名無しさん2010/03/19(金) 23:16:10
>>704
ﾄﾝｸｽ
Formatだけでも2ページめにあったね。
ヘルプはカーソル当ててF1しか普段使わないから、オンラインヘルプの使い方知らなかった。
0706デフォルトの名無しさん2010/03/20(土) 02:51:23
いつからこのスレは自分が発見したことのメモ帳になったんだ
0707デフォルトの名無しさん2010/03/20(土) 02:53:16
>>701
で、結局そのヘルプのありかをこのスレにフィードバックするつもりは無いのか。
やっぱValueの奴とレベル一緒だわお前。
0708デフォルトの名無しさん2010/03/20(土) 03:37:26
>>672でちゃんと使い方が間違ってると教えてもらってるのに、何なのこいつ。
0709デフォルトの名無しさん2010/03/20(土) 07:56:45
>>672
>>669だが、夜会合ですぐレス書かなくてすまんな。
ヘルプは>>671や>>704のおかげで読めたよ。
俺も実は探せてなかったもんでね。
ヘルプ読めと言いながらVBAのヘルプじゃないものを教えた人もいたみたいだが。
0710デフォルトの名無しさん2010/03/20(土) 08:02:40
まちがった
>>701や>>704のおかげな
0711デフォルトの名無しさん2010/03/20(土) 08:09:44
>>707
ヘルプのありかは>>701はフィードバックしてるんじゃね？
表示書式指定文字で検索って書いてあるし。
Excelヘルプをオンラインヘルプに読み替えればいいんじゃね？
0712デフォルトの名無しさん2010/03/20(土) 10:14:12
ヘルプ見ろで切れまくる奴はいるは、ヘルプ見つけられない奴続出だわ、レベル低すぎ。
お前ら一体今までどうやってプログラミングしてたんだよ？
何でもググってコピペしてたんじゃねーの？
0713デフォルトの名無しさん2010/03/20(土) 10:14:17
エクセルVBAであるサイトのラジオボタンを自動で選択するマクロを作っているんだけど
その方法が検索で調べた方法じゃできなくて困っています。

HTMLのラジオボタンの部分のソースは
<input name="kumiban1" value="1" onclick="check1(this)" tabindex="3" type="RADIO">

となっています。

"kumiban1"のvalue="1" をクリックしたいのです。
0714デフォルトの名無しさん2010/03/20(土) 10:37:36
>>713
同じページ内に同じ名前の name="kumiban1" が複数あった場合は objIE.document.all("kumiban1") だとエラーになる。
そういう時は objIE.document.all("kumiban1")(0) 、objIE.document.all("kumiban1")(1) のように番号を付ける。
自分のチェックしたいボタンが何番目かは自分で調べてね。
0715デフォルトの名無しさん2010/03/20(土) 10:50:18
>>712
まぁまぁ、レベルの高いと思われる>>694でさえ見つけられなったんだから。
俺もF1キーで大体事足りてるしね。
ところで2010では有名なFindメソッドの使用例の間違い、直ってるか誰か知らない？
俺未だにISDNだからベータ落とせない。
前トライしたら途中で切れてばっか。
0716デフォルトの名無しさん2010/03/20(土) 10:53:30
>>712
コピペでマクロ作って社内で高評価
↓
自分で考えなければできないようなことをさせられる
↓
コピペ技術だけじゃどうにもなんねぇ・・・でもまともに組んだことねぇ
↓
そうだ！聞いて教えてもらう←いまここ
↓
結局できない
↓
評価右肩下がり
0717デフォルトの名無しさん2010/03/20(土) 10:54:51
>ISDN
マジか！！
まだいるんだなぁ…
テレホ思い出したわ

つうか、ネカフェとか行ってDLしてくりゃいいんじゃねぇの？
0718デフォルトの名無しさん2010/03/20(土) 11:10:16
かわりにダウンロードしてくれる友達とかいないの？
0719デフォルトの名無しさん2010/03/20(土) 11:12:59
>>717
そんなものあったらすでに行ってるよ。
こちとらド田舎離島だからね。
今度弟にDLしてもらって郵送してもらうかな？
来年は光が開通するんだが。
0720デフォルトの名無しさん2010/03/20(土) 11:14:44
>>718
リロードしなかった。
>>719のとおり。
0721デフォルトの名無しさん2010/03/20(土) 11:24:21
>>714
＞番号を付ける
の記述はどうやるんですか？
0722デフォルトの名無しさん2010/03/20(土) 11:33:19
>>721
えっ
回答にちゃんと番号付いてるやん
0723デフォルトの名無しさん2010/03/20(土) 11:34:30
>>715
なんで>>694がレベル高いことになってるんだかさっぱりわからんが、F1で事足りないときの
対処法を言ってるんだが。馬鹿(694)が一人でもいると、自分がマニュアル見ないエクスキューズになるのか？
0724デフォルトの名無しさん2010/03/20(土) 11:36:25
>>722
いや構文の記述法がよく分からないのです
0725デフォルトの名無しさん2010/03/20(土) 11:40:09
プログラマー
RTFMは
遠くになりにけり
0726デフォルトの名無しさん2010/03/20(土) 11:44:44
>>723
レベルが高いをまじにとったか。
昨日Value関連でさんざん罵倒してたのが彼だと思ったからちょい嫌味で書いただけ。
人違いだったらごめんな。
0727デフォルトの名無しさん2010/03/20(土) 11:49:06
>>724
ブラウザをコントロールする方法はいくつかあるから、
まずは自分のやりたい方法というか、試してだめだったプログラムをここにアップして。
そしたら修正点を書くから。
0728デフォルトの名無しさん2010/03/20(土) 11:53:56
ってかここカルシムム不足がいるよね。
あーいえばこういうし困ったもんだ。
0729デフォルトの名無しさん2010/03/20(土) 11:59:21
牛乳飲もう
0730デフォルトの名無しさん2010/03/20(土) 12:05:08
>>727
いくつか試したんですが例えば↓こんな感じです。

Dim objIE As Object
Dim objITEM As Object
Dim nNO As Integer

Dim strRADIO(0 To 5) As String



strRADIO(0) = "1"
strRADIO(1) = "2"
strRADIO(2) = "3"
strRADIO(3) = "4"
strRADIO(4) = "5"
strRADIO(5) = "6"

nNO1 = 1



On Error Resume Next
For Each objITEM In objIE.Document.all

If objITEM.TAGName = "INPUT" Then
If objITEM.Name = "kumiban1" And objITEM.Value = strRADIO(nNO) Then
objITEM.Checked = True

End If
End If
Next
0731デフォルトの名無しさん2010/03/20(土) 12:26:28
>>728-729
まったく関係ないけど、それ俗説だから。
0732デフォルトの名無しさん2010/03/20(土) 12:39:24
アホがアホって言われることが気に入らない奴が居るみたいね。
0733デフォルトの名無しさん2010/03/20(土) 12:40:04
>>731
そうかカルシウムじゃ駄目なのか。
もう駄目かも知らんね。
もともとプログラマーは廃人が多いんだが。
0734デフォルトの名無しさん2010/03/20(土) 15:17:17
すみません、A列目の値が x で、1行目の値が y となるようなセルを探すのは
VBAでできますか？Excelの機能だけでもできますか？
どんな関数を使えばいいかヒントをください。検索します。
0735デフォルトの名無しさん2010/03/20(土) 15:25:25
>A列目の値が x で、1行目の値が y となるようなセル

？？？？？？？？？？？？？？
07367342010/03/20(土) 15:34:52
すみません、A列の値と1行目の値をキーとして交差するセルを検索したいのです。
0737デフォルトの名無しさん2010/03/20(土) 15:38:47
ctrl + Fで検索すればいいんじゃないの？
つか、ここはVBAの質問スレだぞ。
0738デフォルトの名無しさん2010/03/20(土) 15:47:57
すみません、そのセルの値をプログラム的に参照したいということです。
0739デフォルトの名無しさん2010/03/20(土) 15:54:08
A列の値と1行目の値をキーってのがわからない
例をしめしてちょ
0740デフォルトの名無しさん2010/03/20(土) 16:07:06
>>734
どうかな？

Do While セルの値が空白になるまで
　if セルの値が"x"の場合
　　　セルの位置を取得してLoop終了
　end if
　
　一つ次のセルへ移動
Loop
07417402010/03/20(土) 16:28:45
考え方は以下の手順でよろしいかと。

A列を検索し、"x"の入っているセルの行番号を取得
1行を検索し、"y"の入っているセルの列番号を取得
Cells(行, 列).Value で目的のセルの値を取得
0742デフォルトの名無しさん2010/03/20(土) 16:40:39
worksheetfunctionでlookupとかじゃだめなの？
質問者のレベル的にそこまで難しいことをしてなさそう。
0743デフォルトの名無しさん2010/03/20(土) 16:52:32
でも、質問があると速攻答えてくれるお前らは何だかんだで根はいい奴等だと俺は思ってるんだからね///
0744デフォルトの名無しさん2010/03/20(土) 16:59:13
>>713,730
コピペミスだと思うけど
　<input name="kumiban1" value="1" onclick="check1(this)" tabindex="3" type="RADIO">
を対象なら
>>730 は
　誤 nNO1 = 1
　正 nNO = 0
ではないかな

これでチェックが入るはず

その上でonclick="check1(this)"を作動させたいのであれば

objITEM.Checked = True
を
objITEM.Click
に変更してみては？
0745デフォルトの名無しさん2010/03/20(土) 18:44:50
下手な言葉で説明されるよりも具体例を出して何をしたいのかを言った方が遥かに早いと思うぞ >>734
■ このスレッドは過去ログ倉庫に格納されています