1001コメント371KB

Excel VBA 質問スレ Part14

■ このスレッドは過去ログ倉庫に格納されています

0001デフォルトの名無しさん

2010/01/06(水) 12:34:58

0631デフォルトの名無しさん

2010/03/18(木) 17:06:40

だよな。表計算ソフトなんだから50文字でも多いぐらいだ。

0632デフォルトの名無しさん

2010/03/18(木) 17:09:01

超長～い数式は勘弁してほしいｗ

0633デフォルトの名無しさん

2010/03/18(木) 17:18:44

超長ーい数式とか配列数式とかSUMPRODUCTのフィルコピーが大好きなやつはほとんどアホばかり。
VBAで言えば変数使わないで何度も同じ値を取得してるようなもんだ罠。
数式でやるならVBAの変数に相当する作業セルを使えってこった。

0634デフォルトの名無しさん

2010/03/18(木) 17:22:44

>>623
もういい加減アホとか言うのやめれ。

0635デフォルトの名無しさん

2010/03/18(木) 17:25:04

ん？俺のことかな
すまん、今度からヴァカと書くことにするわ。

0636デフォルトの名無しさん

2010/03/18(木) 17:27:44

>>630
証明できるかどうかなんて聞いてないんだよ。

>>615
> 流れから2003だってわかると思うが？
わかると思ってるなら、それは馬鹿ゆえだってことだ。

横からノイズ増やしといて、俺の知りたいことだけお前ら教えろとかいう奴はいらないんだよ。
わかった？

0637デフォルトの名無しさん

2010/03/18(木) 17:31:39

ふぁいと！
俺は50文字でも十分すぐるから興味ナス

0638デフォルトの名無しさん

2010/03/18(木) 17:32:35

>>630
お前も必死だよwww

0639デフォルトの名無しさん

2010/03/18(木) 17:34:53

大卒文系って、裏・逆・対偶レベルの論理学も理解できないの？
今はやりのゆとりって奴？

0640デフォルトの名無しさん

2010/03/18(木) 17:36:20

まぁ餅つけ
50文字でも十分ということで糸冬了

0641デフォルトの名無しさん

2010/03/18(木) 17:39:24

まぁ、セルに表示できないような文字数を設定するというのは、基本的な使い方では
ないわけだから、自分がそのような処理を実装しなければならなくなったときに、
ターゲットとなるExcelの仕様上の制限を調べ、テストを十分にやれば良い。

0642デフォルトの名無しさん

2010/03/18(木) 17:41:21

必要条件と十分条件を良くわかってない馬鹿SEのことを思い出した。

0643デフォルトの名無しさん

2010/03/18(木) 17:43:09

CellsのデフォルトプロパティがValueじゃないってことじゃないかと思うけど、
調べるつもり無し。

0644デフォルトの名無しさん

2010/03/18(木) 17:51:55

Cells(2, 1) = Cells(1, 1)
でエラーが発生するとき、
Range("B1") = Range("A1")
でもエラーが発生するね。
何故なのかはそれほど知りたくないけど、RangeのデフォルトプロパティはValueだって
思ってたので、ちょっとキモチワルイ。

やっぱり
Range("B1") = Range("A1").Value
と書くと動く。
まぁ、デフォルトプロパティは使うなってことかな。

0645デフォルトの名無しさん

2010/03/18(木) 17:52:57

スレが伸びてると思ったら一人で暴れてるようだな。
文体でバレバレだｗ

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

0677676

2010/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")と
同じじゃなかったわ。

0689662

2010/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

■ このスレッドは過去ログ倉庫に格納されています