Excel VBA 質問スレ Part59

2019/02/09(土) 15:12:30.70

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512

ExcelのVBAに関する質問スレです
コード書き込みや作成依頼もOK
※前スレ
Excel VBA 質問スレ Part58
https://mevius.5ch.net/test/read.cgi/tech/1542577644/

VIPQ2_EXTDAT: checked:vvvvv:1000:512:----: EXT was configured

2019/02/21(木) 20:49:56.47

>>399←こいつホンマもんのプロさんやんwww
Traceてwwwwwwww

2019/02/22(金) 00:25:53.24

>>402
？

2019/02/22(金) 00:44:27.12

混沌とした質問ではなくてある程度整形された質問ならお互いに健全かもしれないね。
「例えば質問のためのテンプレ埋めてもらう」とかだけでもやり取りの回数減るんじゃないかな。
テンプレの内容はよくわからないけど、例えば「配列が解るか、オブジェクトが解るか、ＡＰＩが解るか」とか書いてもらえれば質問者のレベルか解りやすいから罵ることもないだろうし
全体の流れの一部として困ってるのか、単純に言語仕様で困ってるのかだけでも質問者に必要なのがコンサルなのか解答なのか切り分けしやすいと思う。

2019/02/22(金) 00:57:28.09

【目的】
【何がわからないのか】
【どうなることを期待しているのか】
【何故それが必要だと考えたのか】
でいいよ
質問者のレベルなんてレスの内容見りゃわかるだろ

2019/02/22(金) 01:31:51.52

>>405
＞【目的】
＞【何故それが必要だと考えたのか】
これは無くてもいいかも
多分あんまり良い情報は返ってこない気がする

＞【何がわからないのか】
これも無くて良いかもしれないけど、
まぁ一応質問スレなので

後は最初の状態が欲しい
初めと終わりがあれば何とでもなる
それと反復頻度。一回だけなら一回だけ用の雑コードで済ますし、毎日ならもうちょい丁寧に書く
ってわけで以下になっていると楽

【作業前の状態】
【終了時の状態】
【何がわからないのか】
【作業の頻度（一回だけ or 何度も）】

2019/02/22(金) 05:05:38.47

データ量も欲しいなあ
1万件なら雑コード、100万件なら処理速度も意識してコード書く

**デフォルトの名無しさん** (JP 0H2e-eSdf) · 2019/02/22(金) 09:18:19.59

あんまり敷居を高くすると質問者が減るよ

2019/02/22(金) 09:36:13.35

質問者が減れば珍回答で恥をかくリスクも減って回答者のプライドが保たれるので問題ない

**デフォルトの名無しさん** (JP 0H2e-eSdf) · 2019/02/22(金) 09:46:06.70

>>409
そう考えてるのはお前だけだよ

2019/02/22(金) 09:53:52.37

まぁプロ回答者どもが罵り合いやってますが、質問者の方はそんなの気にせず
どんどん質問してくださいな w

2019/02/22(金) 10:30:26.16

>>408
どうすればいいか提案してくれ

2019/02/22(金) 16:26:24.07

このスレの本質はプロ回答者選手権だからな
プロ回答者の敵はプロ回答者
質問者など餌に過ぎない
その餌を誰が一番上から踏み潰すかを競い合う

ちなみにプロ回答者にもなると質問に答えたりしない

2019/02/22(金) 16:41:48.96

>>413
なるほど！
まさに>>413さんのような方ですね

2019/02/22(金) 16:46:43.90

なるほど
プロ回答者ってのは「質問スレにおける回答活動」のプロって意味か

2019/02/22(金) 20:37:47.33

まぁ別に目的の記述は無くてもいいけど
何を目的にしているかの記述があれば
代替案考えてくれる人もいるだろうし
欲しい解答が得られやすい場合もあるわな

逆に余計なこと言って欲しくないのなら
書かないのも有りだと思うけど
解答者がゲスパーして答えるのも
また有りだと思うし

2019/02/22(金) 20:44:37.13

>>400
ループから抜けるのは>>401の人が言う通り
Exitを使えばいいけど、次のループに行くような
.Netで言うContinueはないので
分岐でループしているロジックの最後に持って行くしかないんじゃないかな？

2019/02/22(金) 21:01:06.12

ここの質問を見ると、よほど変なもん作らされてるんだろうなって思う。
何に使うのかわからないようなのが多くて、
実務で使いそうなのがあまり出てこない。

2019/02/22(金) 21:23:19.91

実務では文字列解析とデータベースからの検索程度で難しくは無いんだけど
適当に組んだせいか妙に遅いのが悩み
高速化するテクニックとかないかな

2019/02/22(金) 21:42:30.22

>>419
VBAを捨てる

2019/02/22(金) 22:11:55.73

>>419
早いpcに買い替える

2019/02/22(金) 22:45:12.67

二重Forループ
　↓
VLOOKUP
　↓
高速VLOOKUP
　↓
SQL

これより速いのって、やっぱアセンブラ?

2019/02/22(金) 22:46:15.97

アドバンスフィルタが抜けてた。

2019/02/22(金) 23:22:12.68

>>422
インデックスを張ってSQLでJOIN
オンデマンドなトランザクションじゃなくて単発の巨大なバッチならHiveとか使うのもいい

2019/02/23(土) 01:23:52.97

エラーがわかりにくいのがいちばんのストレス
そのほかにも可変長引数とかジェネリクスとかwithの糞文法とか短絡評価未搭載とかインターフェイスが歪んだ設計になるとか色々遅れすぎ
所詮底辺が一発ツールで使う言語

2019/02/23(土) 01:28:03.84

短絡評価がないせいでネストを深くせざるをえないときがあるんだよね

2019/02/23(土) 04:42:29.90

短絡的なVBerは多いのにな

2019/02/23(土) 07:16:01.49

>>425
その辺は仕方ない
C#やRubyやってる人がJavaは糞だって言ってるのと大差ない

2019/02/23(土) 09:04:33.17

>>425
エラーチェックは本当にな
これでforが無いって言われる。本当にないのはもちろｎendif
さすがにもう迷う事は無いけど、
初心者の頃は散々苦しめられた

Sub foo()
For i = 1 To 10
If True Then
Next
End Sub

2019/02/23(土) 09:20:01.07

エラーってコードのエラーのことか
実行時のことかと思った

2019/02/23(土) 09:21:13.09

あぁ、実行時エラーの可能性もあるか
あれはactiveにしてないsheetのcellをselectした時はハマったけどそれ以外は特に・・・

2019/02/23(土) 09:21:56.77

唯一（？）の短絡評価である Select Case のリストはクソだと思いながらたまに使う

2019/02/23(土) 10:29:43.91

短絡評価ってなんですか？

2019/02/23(土) 10:35:04.36

>>433
お前がGoogleの採用選考を受けても学歴で足切りされて職務経歴の中身すら見てもらえないだろ？
結果が決まってるのに余計な評価をするのはリソースの無駄だからだ
そのように、評価が確定した時点で残りの評価を省いて結果を出す戦略を短絡評価という

2019/02/23(土) 10:49:47.77

>>434
GoogleはOr評価かもしれないよ

2019/02/23(土) 11:44:31.84

>>434
お前バカだな
Googleは学歴より経歴重視だよ

2019/02/23(土) 12:14:20.39

>>436
低学歴にも凄い経歴の奴はいるが、高学歴の中にはもっと沢山いるんやで
採用のための人的リソース最適化問題に対する戦略として、学歴フィルタが有効であることは十分に証明されている

2019/02/23(土) 13:07:59.71

>>437
履歴書と職務経歴書って同封して送られてくるんだから同時に見ればいいじゃん
それとも30秒くらいの時間を惜しんで職務経歴書読まずにお祈りするの？
大した戦略だねw

2019/02/23(土) 15:21:22.50

>>438
学歴なら人が見る必要すらないでしょ
書類選考のコストは一桁違うかと

2019/02/23(土) 16:24:43.18

>>438
たかが30秒と言う奴は10,000件あったら何時間かかるかを考えてからレスしろ

2019/02/23(土) 18:43:00.90

Googleはそもそも学位が必要ない時点でお前らズレてんだよ

2019/02/23(土) 19:03:21.30

うんむ

2019/02/23(土) 19:33:38.12

ただの例にここまで突っ込むか?

2019/02/23(土) 20:37:03.99

短絡評価の例としてはわかりやすかった

2019/02/23(土) 22:13:21.58

配列をインラインで生成する方法でもあればいいのに

2019/02/23(土) 23:20:45.04

>>400
ブレイクは >>401
Continueは、Nextの前に例えば CONTINUE:とラベル付けて、Goto CONTINUE で代替可。
これで何も過不足ないし、意図を読めないやつは（周りに）いないので、しょっちゅう使ってる。

2019/02/24(日) 04:42:51.56

goto使うと負けた気分になるけどネスト深くなるくらいなら使う

2019/02/24(日) 10:14:59.06

>>445
そういう関数を作れば解決する話では？

2019/02/24(日) 11:16:37.13

昔から言われてるけどGoToとかExitみたいな無条件ジャンプはできるだけ使うべきじゃない
ループから抜ける条件が複数ある時は、条件判定部分を関数にして外に出せばたいがい解決する

2019/02/24(日) 11:20:53.15

>>449
3重構造のFor文とかって、いちいち全部のFor文に条件を書くんか？

2019/02/24(日) 11:27:07.38

下向き限定なら許す
バカみたいな脱出フラグ使われるよりよっぽどマシ
上向きgotoは死ね

2019/02/24(日) 11:31:30.55

>>446
VBAにはなんでContinueがないんだろうな
これ、ほんとめちゃ不便だわ。　これのためにもgotoは使ってるわ。てか、必須になっている

2019/02/24(日) 11:34:47.34

Forの3重構造の場合、例えば、i, j, kで回したとき、一番中の処理で、
i=10000
j=10000
k=10000
とか設定したら、全部抜けるという技は使ったことはあるが、Next k　の次に処理があってNext jとかってなってるときは
やはりgoto を使うので、結局こういう技は使わなくなった

2019/02/24(日) 12:03:06.64

for、特に二重ループから抜ける時はgotoで良い
if flg then exit for
こんなもん何個もあったら余計見づらいし間違う

>>449
気持ちはわかるけど、どうしても>>450になって余計に見づらい

>>45
20年前の言語で全く進化してないからな
python2.x→3.xの悪夢を見た者としてはこれはこれで良い

2019/02/24(日) 14:56:48.98

Case (i) ⊇ Case (j) ⊇ Case (k)....っていう感じの線形の包含関係が無条件に成り立たない限り、3次元以上のループ管理はややこしくなるだけだよな

2019/02/24(日) 15:43:11.74

>>429
それに苦しめられたのはお前が悪い。
きちんとインデントする自分なりのルールがあればそんなことには最初からならない。

2019/02/24(日) 15:50:41.15

三重のル―プで条件によって全部から抜けるって処理自体あんまり無いだろ。
設計が悪いんじゃないの?

2019/02/24(日) 16:01:32.16

>>456
＞それに苦しめられたのはお前が悪い。
どう見てもvbaのエラーチェックがしょぼすぎる
少なくとも>>429みたいなエラーチェックはあり得ない。あっても修正される

>>457
殆ど無いが、エクセルはそもそもがセルが行列の二次元＋シートの三次元
開いてるブックを含めれば四次元だけど、さすがにこれは無い
全シートもあんまりないけどな

全セル（usedrange）に処理をかけて特定条件で抜けるというのは何度かあるな
ただまぁ別に抜けんでもそんあに変わらないというのもあるけど

2019/02/24(日) 16:43:43.47

エラーがわかりにくいという話に
エラーを出すおまえが悪いとマウント取りに行くプロ回答者

マウントがとりたくてやってるのか本当にただのバカなのかどっちなんだろ

2019/02/24(日) 17:14:34.21

まあでも多重ループから一気に抜ける方法がExit Function/Sub しかないんだから
ループを含む部分をサブルーチンとして切り出す以外あるまいよ

2019/02/24(日) 17:42:50.42

ループを回す以上はループを回す理由があるはず
その理由をわかりやすい関数名にしてループを切り出す
途中で抜けたければExitする

**731** (ﾜｯﾁｮｲ 11e6-Vd0N) · 2019/02/24(日) 17:45:18.70

いや、doとfor組み合わせれば二重ループ、三重ループからも抜けれるよ。
実用性は置いといて。

2019/02/24(日) 17:54:50.07

>>454
N88さわってたからループからgotoするのは違和感あるわ

2019/02/24(日) 18:03:52.89

>>459
ただのバカだと思うよ。
あの場合は明らかにエラーメッセージがおかしい。

でも、エラーチェックしてると2つ以上の原因（またはどちらかが間違い）が考えられる場合がよくある。
その時どうメッセージ出すかは、作る人（仕様）次第。

ちなみに、
If xxx Then Exit For
If xxx Then _
Exit For
If xxx Then
Exit For
End If
それぞれ意見はあるだろうが、無駄に行増やしたくないが、マルチステートメントもな… なので、自作では2番目をよく使う。（もちろん仕様で決まってるならそれ優先。賛否について議論はしない）

2019/02/24(日) 18:39:00.05

いつまで経ってもほったらかしにされてるVBAが悪い
Pythonがどうたら言う話はどうなった

2019/02/24(日) 19:22:57.41

資産が多すぎて移行不可

2019/02/24(日) 22:11:47.76

>>464
最後の奴を使う。
インデントで明らか。
というか、そんなエラーを出すこと自体無い。

が、もちろんスタイルの問題だから一番最初の奴を使おうが2番目のを使おうが問題無い。
エラー出してもすぐに分かるならな。

ちなみにその最後の奴ならIfとEndIfを書いてからExit Forを書く。For Nextの場合も中身は後だ。
染み付いてるんでね。
別にそういう書き方をすべきと言ってるんじゃない。
エラーにすぐ気付くなら何も問題は無い。

2019/02/25(月) 05:22:32.65

PythonAという新しい言語が誕生します

2019/02/25(月) 09:04:42.27

VBAって遅い？
セルにもの入れると遅くなるって以外で全般的に。

2019/02/25(月) 09:16:19.92

>>469
遅い
どうしてもエクセルが枷になる
大規模な計算をしたいならvbaは避けたほうが無難

2019/02/25(月) 10:41:49.47

純粋な数値計算部分は遅くはないんだけどね
シートアクセスが遅いのはまあ

**731** (ﾜｯﾁｮｲ 11e6-Vd0N) · 2019/02/25(月) 12:13:02.41

>>469
ようするにVBの部分の話か？
変数の大ニュースとかループとか、配列のメモリ確保とか

2019/02/25(月) 12:31:17.59

確かに遅いんだけど、遅いと言ってる奴の大半はそいつのコードに問題があるような気がする。
コード変えたら100倍速くなったとかざらだし、VBAが遅いせいでと感じることは殆ど無い。
遅い場合でも処理を考えたら仕方ないと思える場合が殆ど。

2019/02/25(月) 12:42:50.70

>>471
純粋な数値計算部分が遅いと思うよ。
だからAPI使ってマルチスレッドのコード書いても処理が追い付かなくなる危険性があるわけで。
ただ、そんなの遅いと感じるようなものじゃないし、遅さが気になったら自分のコ―ドを疑った方が良い。

2019/02/25(月) 13:56:48.78

裏で動かせるなら、処理遅くても他の作業してればエエねん。
終わったら、アイコン点滅して教えてくれればエエねん。

2019/02/25(月) 17:45:36.59

javascriptとvbaをネストする方法ってありませんか？
Dim ie As InternetExplorer
Set ie = CreateObject("InternetExplorer.Application")
ie.navigate ("https://kakaku.com/specsearch/0010/";)
中略
ie.navigate "javascript:var i; for(i=1;i<18;i++){page(i);}"
これで1から18までpage関数をまわすことができると思いますが
1ページごとに情報を抜き出すための処理をvbaで書きたいです。
対象のwebページはjapvascriptのpage関数を使ってしかページ移動ができません。
ちなみに対象ページは↓です
https://kakaku.com/specsearch/0010/

2019/02/25(月) 19:16:52.45

>>476
kakaku.comなら「この検索結果を友達に知らせる」から直リンの情報が得られて、そこにページ番号も書かれてるからVBAだけで全データを取得できる

2019/02/25(月) 19:23:27.43

javascriptでページ情報を適当な外部ファイルにダンプして後でvbaでまとめて読み込めば良いだけでは？

2019/02/25(月) 19:42:45.75

変なページはキーボードマクロでやったほうが手っ取り早い場合も

2019/02/25(月) 19:47:45.89

>>477
こんな方法があったんですね！
ありがとうございます
getの形で見ることができるんですね
これならfor文でまわせそうです

>>478
javascriptの知識がvbaの知識より薄くてできません・・・

>>479
その方法もありですね
勉強になります
ありがとうございます

2019/02/25(月) 19:50:39.60

for i = 0 to 10
ie.navigate "javascript: page(" & i & ")"
vba_code_here()
next

2019/02/25(月) 20:05:06.80

>>481
これでもいけますね！
ありがとうございます
自分でも試してたつもりだったんですが&の端がシングルクオーテーションだったからだめだったんだと思います。
これでもネストできそうです。ありがとうございます。

2019/02/25(月) 22:06:28.97

フォームに張り付けたMediaPlayerプレイヤーのコントロールのプロパティが勝手に変わる謎のエラーが頻発。
どうもフォームのサイズを変更するＡＰＩがイタズラしているらしい。
こまかく切っていってようやくまさかの原因が解ったが対処方法わからずに対処療法してしまったがそれでも半日あまりを費やした。
よくわからないサンプルコード使うと謎のエラーが出てハマることを覚えた。
プログラマーってすごいな、これ毎日やってたらほんと禿げるわ。

2019/02/25(月) 22:14:43.73

>>483
＞よくわからないサンプルコード使うと謎のエラーが出てハマることを覚えた。
これやると一番時間を無駄にする
・サンプルコードをざっと眺めて全体の流れを把握
・APIの仕様をしっかり読む
・一からテストコードを書く
・APIもう一回読み直しながら、もう少し詳細に作り直し
・本番環境で書く

こんな感じ。仕様を把握してから書いたほうが絶対に早い

2019/02/25(月) 22:46:07.98

>>448
オーバーロードってあったっけ？それに、ジェネリクスがないから全部の定義されてる型について生成しなきゃいけないから地獄なんだよ！リテラルで配列を生成できたらいちいちDimしなくてもいい

2019/02/25(月) 22:51:30.74

ちなみに、望むシグニチャーはこんな感じ
' T = Generic
Public Function ArrayOf(/* vararg */ element As T) As Array<T>
どうせVBAは浮世離れしすぎてて書けないけどな！

2019/02/25(月) 23:00:26.05

ジェネリックはないがヴァリアント型つかえば良いのだよ

無いものねだりしてもしょうがない
問題解決のためにあるものを使うだけ

2019/02/26(火) 06:28:56.69

>>429
これ。面白いな。試していないが、頭から見て行ってまずForが出て来るのにForがないって言われるの？w

VBAも構文を修正するのはいろいろと問題があるだろうけど、こういうペリフェラルな部分では改良できるところは
いくらでも残ってるよねえ

2019/02/26(火) 06:39:06.54

構文チェックくらいなら、どっかサードパーティが作ってアドオンとか出来ないのかな
xlsファイルの中からプログラム文ってテキスト抽出って出来ないんだっけ

2019/02/26(火) 06:56:12.34

>>488
If～Thenでブロック作るからNext出て来たらForがないと見なされる
C言語とかはEnd IfとNextの両方が } なので発生しないけどイメージとしては
for(i = 0; i <= 10; i++)
　if(true){
next
　}
みたいな感じになってる

2019/02/26(火) 07:22:50.54

>>489
やれるやれないという意味ならやれる
そもそも*.basとか*.clsとかにエクスポートしたらテキストファイルだし
セキュリティの設定はいるけどCOM経由ならそんなに難しくない
ただ>>429みたいなケースでわかりやすいメッセージを出すのは思ったより難しい

2019/02/26(火) 07:28:56.02

>>487の言うとおりだ
生成もジェネリックに出来ないが使う方の関数だってジェネリックは出来ない。
つまりVariant を避けてると型別定義地獄になるって事だ

2019/02/26(火) 12:32:40.78

>>476-482
wget は簡易クローラーだから、これで複数ページをダウンロードすれば？
その後、vba で処理すれば？

まあ、適度に時間をおきながら、アクセスしなよ。
頻繁にアクセスすると、営業妨害で逮捕されるかも

2019/02/26(火) 17:27:28.56

win10(64bit)にoffice2013(32)入れたら動作おかしくなったので
新しいoffice買ってきた

2019/02/26(火) 21:19:16.14

bitsadmin.exeやPowerShellを使う手もあるな

2019/02/26(火) 21:29:55.31

Variantか…型安全をぶち壊してる気がするけど…

2019/02/26(火) 21:52:08.87

>>496
いいんだよ

型安全な汎用プログラムを書けない時点で、個別のプログラムを型安全にする気は失せるというものだ

2019/02/26(火) 21:57:39.80

>>493
有料のRPAツールを使ってもダメなんでしょうか？

2019/02/26(火) 23:46:14.88

暗黙の型変換が拡大縮小の両方に効く時点で型安全なんてあり得ないわけで

2019/02/27(水) 03:06:02.10

vbaで型安全ってなんのギャグだよ

Sub foo()
Dim bar As Long
bar = 1 & "0"
msgbox　bar
End Sub

2019/02/27(水) 06:45:27.86

>>500
これって 1 & "0" のところが 1 + 0 と評価されて出力が 1 になるのか？