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/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 になるのか？

**デフォルトの名無しさん** (JP 0H2e-eSdf) · 2019/02/27(水) 09:24:25.27

数値を“”で括って連結させるって普通はやらないよな
もはやクレーマーの域

2019/02/27(水) 09:27:38.25

>>501
ならない。

---------------------------
Microsoft Excel
---------------------------
10
---------------------------
OK
---------------------------

2019/02/27(水) 10:08:05.65

>>502
アホはお前

**デフォルトの名無しさん** (JP 0H2e-eSdf) · 2019/02/27(水) 10:14:24.05

>>504
自己紹介かな？

2019/02/27(水) 10:21:18.29

>>505
本当、馬鹿は食いつきがいいな。エラーも起こさずに動くのが問題なんだよ。
馬鹿には難しいか？

2019/02/27(水) 10:48:04.11

&演算子が勝手に文字列に変換するのは利便性考えたらわかるし
Long型の変数に文字列代入する時に暗黙のキャストするのもわからなくはない

けど警告ぐらいは出してほしいね

**デフォルトの名無しさん** (JP 0H2e-eSdf) · 2019/02/27(水) 10:48:12.18

>>506
それはエラーであってほしいというお前の願望だろ

2019/02/27(水) 11:32:27.96

VBAにも当然、厳密な構文ルールは存在するだろう

数字　＆　文字列は文字列にするってのがルールじゃね。　一度覚えたらそれでいい

2019/02/27(水) 11:45:10.68

& が + に解釈されたらたまったもんじゃない

2019/02/27(水) 12:38:47.93

>>497
Variantは意識して使う。
型安全も意識する。
当然、暗黙の型変換でどうなるのかも意識して組んでいれば、そうそう問題になることもあるまい。

2019/02/27(水) 12:41:38.23

どんな言語でもツボは有るわけでね。
押さえてコードを書けない奴がアホなだけだろ。

初めて触った初心者じゃあるまいし警告なんて全く必要無い。

2019/02/27(水) 13:03:51.61

>>509
代入先が数値だろ

2019/02/27(水) 13:08:23.01

同じマクロを使っている複数の文書があって、マクロの一部を修正したいんですが、
別ファイルのモジュール内の変更を行うマクロは VBA を使って書けますか？

または、別ファイルのモジュールを削除（開放）してインポートする形でも構いません。

実際はワードでやりたいことですがワードVBAスレがなさそうなのでこちらで質問しました。
Normal を書き換えて対応するというのはできない前提です。

2019/02/27(水) 13:17:59.19

>>514
スレ一覧よく見てみろ。そういういい加減で他人にすぐ聞くからできないことだらけなんだよ。

2019/02/27(水) 13:19:02.81

ByRef x As Variant

**デフォルトの名無しさん** (JP 0H2e-eSdf) · 2019/02/27(水) 13:19:50.19

>>514
書けるよ

2019/02/27(水) 14:41:22.10

>>503
Option Explicit付けてもエラーにならないのかな？

2019/02/27(水) 15:47:12.82

>>510
お前は何を言ってるんだ？
& は文字の連結子だろ。　だから、文字としての1と0を連結したんだよ
>>513
代入先は数値だな。　文字処理をしてそれがVariantだからそれから数値変換したんだな
文字処理が優先なんだろ

2019/02/27(水) 15:48:15.94

＞それがVariantだから
すまん。これはなし

まあ変な構文ではある

2019/02/27(水) 16:29:49.69

>>519
だから連結じゃなく加算と解釈されたらたまったもんじゃない
と言っている

2019/02/27(水) 17:58:08.46

>>507
& 演算子は文字列同士の連結だから
2 & 1 ⇒ "21"
"2" & 1 ⇒ "21"
2 & "1" ⇒ "21"
"2" & "1" ⇒ "21"
になる
逆に - 演算子は数値同士の引き算だから
2 - 1 ⇒ 1
"2" - 1 ⇒ 1
2 - "1" ⇒ 1
"2" & "1" ⇒ 1
になる
問題は + 演算子で普通は数値の足し算なんだけど両辺が文字列の時は文字列連結になるので
2 + 1 ⇒ 3
"2" + 1 ⇒ 3
2 + "1" ⇒ 3
"2" + "1" ⇒ "21"
になる
なのでVariant使っててA + Bとかやってると両方が文字列の時にはあ？ってなことになったりする

2019/02/27(水) 18:25:55.24

>>522
>"2" + "1" ⇒ "21"
&、-と合わせて考えるとめちゃくちゃ気持ち悪いなこれ

2019/02/27(水) 18:25:56.15

出力する時以外に文字列と他の型を演算させる需要ってあるか？
すごい変なプログラム書いてそう

2019/02/27(水) 18:31:15.76

>>524
Cells(1,1) + Cells(1,2)
とか気軽に書いて文字列セルなのに気づかず発狂するがいい

2019/02/27(水) 18:45:49.28

>>525
セルの値同士の計算をダイレクトにやろうとする発想にまず疑問を感じる

2019/02/27(水) 18:48:38.08

だから、型を意識してコード書かない奴は駄目なんだ。
あと、Cells(1,1) + Cells(1,2)じゃなくて、Cells(1,1).Value + Cells(1,2).Valueとすべき。

2019/02/27(水) 18:53:54.71

>>524
セル値が16進で、その値で計算させるとかかな。
昔はよく使ってたが、最近は使わなくなったな…

2019/02/27(水) 19:19:30.96

>>527
いや、そこじゃない
cellsのデフォルトプロパティがvalueな事ぐらい皆分かっている
valueの型がヤバイんだ

2019/02/27(水) 19:31:13.45

>>527
> だから、型を意識してコード書かない奴は駄目なんだ。
そんなのわかってるからいちいちマウント取りに来なくていいよ
世の中には変数宣言すらしないやつとかもいるし使い捨てコードとかもある

2019/02/27(水) 19:35:36.50

本当によくできたプログラムっていうのは変数がどんどん減っていくものだよ

2019/02/27(水) 19:49:19.80

やっぱVBAってクソだわ

2019/02/27(水) 19:52:19.85

>>532
と罵りたいだけが為にここに来るんだろ？　　ﾌﾟ

2019/02/27(水) 20:02:27.43

やっぱVBAスレってクソだわ

2019/02/27(水) 20:17:03.40

クソレスすんなプロさん

2019/02/27(水) 21:22:24.52

>>531
デバッグはやりづらくなるけどな

2019/02/27(水) 21:48:46.20

まあやっぱり、1 & "0" とか　 "2" + 1
とかが出てきたら、エラーで落とすのが普通だろうなあ
で、プログラマはそこで、Val関数で数値にするとか逆に文字列にするとか
やっぱり型変換、確認をプログラムの中に入れながら作るのが本来の筋だと思うわ
そもそもの構文を変えないのであればね

2019/02/27(水) 22:04:09.28

どうでもいいよ
所詮VBAだし

2019/02/27(水) 23:43:00.80

>>538
そういうこと

2019/02/28(木) 00:41:55.86

質問です。お願いします。

public sub shuukei()
'集計してシートに書き出してそそのシートのコピーを別ファイルとして保存
end sub
↑
こういうコードを作りましたが、少しでも速く処理されるようにもっと工夫したいと思っています。
そこで、少し書き直しては速度に変化があるか確認したいのですが、コードの実行速度を
測る方法がわかりません。教えていただけないでしょうか？

public sub jikantest()
　　'計測スタート
　　call shuukei
　　'計測終り
　　msgbox かかった時間
end sub

↑
こんな感じでいちいち確認したいです。

2019/02/28(木) 00:46:39.13

>>540
dim st as single, ed as single
st = timer
(処理)
ed = timer
debug.print ed - st & "sec"

いつもこんな感じでやってる。

2019/02/28(木) 00:47:31.02

Debug.Print Now でもしとけ

2019/02/28(木) 00:51:18.30

>>541
ありがとうございました！

2019/02/28(木) 01:23:05.26

変数の型はトレースの時だけでもシンタックスハイライトして欲しい。
それか左辺に合うように強制キャストで。

2019/02/28(木) 02:06:55.62

>>540
早くなってもわかりにくいのはやんない方がいいぞ

2019/02/28(木) 06:51:30.57

お恥ずかしい質問ですが、もうひとつお願いします。

私は、変数の中身でもなんでも、とにかく確認したいときはmsgboxを使うんです。
そのほうが楽だし。

でも、こういう場所で回答するような人のほとんどは、>>541-542さんのように、
debug.なんとか　ってのを使いますよね？
よくわからないけど、debugって、msgboxとは違って、どこかのウィンドウに表示させるってことだけ
は知っています。
そして、msgboxよりも、そっちの方がなんとなく本格派っぽいことも感じてます。

みなさん、どうしてmsgboxよりそっちを使うんですか？本当にそっちが便利なんですか？

2019/02/28(木) 06:56:12.35

>>546
msgboxだと毎回画面が出ちゃうから

2019/02/28(木) 07:04:09.83

Debugって俺も使ったことないんだが、過去何行くらいまで遡れるの？
それとその結果ってファイルに出力できる？

2019/02/28(木) 07:09:57.92

自分はstopとローカウルィンドウ派だな

2019/02/28(木) 07:10:06.15

>>546
OK押すのメンドいし、押したら消えるし。
Printならイミディエイトウィンドウにどんどん溜まっていくから比較しやすいし。
VBE上でCtrl+Gで呼び出せる。
コード書くときは常に表示してるな。
他にもいろいろ便利に使えるからGGってみて。

2019/02/28(木) 07:28:40.77

debug.printなら開発画面を見ない他の使用者が
気付かないで済む

2019/02/28(木) 08:31:53.34

>>540
ちょっと本格的にやるなら…
https://blogs.yahoo.co.jp/yangzh_jp/26557113.html
注意！
中にも書いてあるけど使用時にコードを改変するから使うならバックアップはちゃんと取ること

2019/02/28(木) 12:28:10.25

>>531
そうとも限らない。
速度の為に変数増やすこともあるから

2019/02/28(木) 12:32:41.06

>>548
そんなに大量には残らないね。
1000行くらいか?
大量に残したいときは普通テキストファイルに書き出すだろ。

2019/02/28(木) 12:33:37.47

>>553
まああくまで傾向だな
システム開発に絶対はないから大まかに語るしかない

しかしまあプログラマって柔軟性がないから何か意見を言ったら必ず特殊な状況を想定して反論しようとする人が出てきて面倒くさいな

**デフォルトの名無しさん** (JP 0H4f-j5yB) · 2019/02/28(木) 13:23:20.67

柔軟性がある人は出世するからね

2019/02/28(木) 13:59:45.70

>>555
後々のテスト工程考えてるからじゃない？
そこまで考慮しなくても…となる気持ちは分かる

2019/02/28(木) 14:20:36.03

考慮すべき場面とするべきでない、しても意味がない場面の判断ができないとも言える

**デフォルトの名無しさん** (JP 0H4f-j5yB) · 2019/02/28(木) 14:36:57.48

だから日本は開発が遅いんだよ
アジャイルでやれ

2019/02/28(木) 14:57:38.31

想定される状況なんか結局は本人にしか分からないし、説明すんのもめんどくさい
まあ本人が気付いてないこともあるけど

2019/02/28(木) 17:57:19.76

>>555
決めつけで語って指摘されたら逆ギレかよ w

2019/02/28(木) 18:42:40.55

ーーここまで型変換関数なしーー

身内が意味がわかるっていうなら変換関数抜きにしてもいいかもしれない、けどコンテキスト的に関数噛ませたい

2019/02/28(木) 18:45:13.08

Debug.Assertも割とよく使う

2019/02/28(木) 21:21:18.29

Variant使わなきゃいい

2019/02/28(木) 22:12:12.40

>>564
いやいやいやいや
ByRef As Variant
の意味論がわかってないだろ

2019/02/28(木) 23:20:59.71

Variant型がないとそれはそれで不便
実行時にならないと変数の保持データの参照型やデータ構造が決定できないような関数を定義するときには必須
Object型では限界があるし、多態性とか考えたら特に

2019/03/01(金) 00:53:35.24

VBAにもInterfaceがあるの知らない人かな

2019/03/01(金) 08:24:19.03

だから意識して使うぶんには良いんだよ。
Variant配列で高速化は良くやるだろ。
あるいはあえていろんな型を受け付ける関数を作る場合とか。

俺はInteraceはあまり使わんね。
同じプロパティを持ったクラスを複数作ってグループとして使う場合でもそこまでしなくて良いだろと考える。

2019/03/01(金) 08:58:16.79

プログラムの基本的な良い習慣を実践すればVariantなんてそう使うことはない
使うとしてもシートIOなど僅かな用途だけだから業務ロジックまで影響することはまずない

2019/03/01(金) 09:03:46.13

プロ雑談者どものくだらん蘊蓄語り合いなんぞどうでも良いから質問者の方々は
遠慮なさらずにどうぞ～

2019/03/01(金) 12:55:03.48

コードって色々書く場所あると思うんですけど、ある程度共通の切り分けってあるんですか？
フォームにはあまりややこしいものはかかないで標準モジュールを使うとか。
逆にフォームで書けるものは複雑でもそこで終わらせたほうがいいとか。
今迷ってるのはシート1のデータを加工してシート2のデータにマージさせる場合どこに書けばいいんだろうってことです。
そのシートごとに別けるとバラけて解りにくくなるしみたいな感じです。

2019/03/01(金) 13:04:09.15

所詮VBAだしどうでもいいよ
VBAの可読性・保守性を高める唯一の指針があるとしたら、極力VBAを書かないでワークシートの機能を活用することかな

**デフォルトの名無しさん** (JP 0H4f-j5yB) · 2019/03/01(金) 13:26:59.89

>>571
標準モジュールに Sub MergeSheet1To2 とか作ってCallすれば、他人が処理部を見なくても「このボタンを押すとマージされるんだなぁ」と想像ができる。
自分はフォーム内は処理に使うデータのチェックくらいにしてる。

2019/03/01(金) 14:04:11.91

フォームモジュールって細々としたイベントのプロシージャであふれちゃって見にくい
だからできるだけ標準モジュールに切り分けてる
例えばフォーム上の複数のTextBoxに全く同じ入力規則を設けたい時なんかは
TextBox・KeyCode・Shiftを引数とするプロシージャを標準モジュールに書いて使い回ししてる
さっきもそういうの書いてた

2019/03/01(金) 17:47:45.49

>>571
シート1 IOクラス
シート2 IOクラス
コンバータークラス
マージサービスクラス

2019/03/01(金) 18:53:01.98

>>571
そのフォームで完結させたい時はフォームに全部書く。
汎用的なのは標準モジュール、汎用的でなくてもいろんな所から使い回す場合も標準モジュールだな。
シートモジュールにはシートのイベントプロシージャ以外書かないのが基本だけどそのシートのイベントプロシージャと一緒にしたい理由でシートモジュールに書くこともある。

意味論というか、何処に書くかは内容で決める。その方が後でコード見る時に視認性も良くなる。

2019/03/01(金) 20:10:20.22

俺ならスコープで書く場所変えてる

2019/03/01(金) 20:18:09.30

シート１だけでしか使わない関数はシート１
その関数の中で使う関数で他でも使う汎用関数は標準モジュール
シート１のデータを加工ってあるが、それが将来にでも他のシートでも使いそうならその加工関数は汎用化して
標準モジュール。　シート１でしか使わないのならその加工関数はシート１に書く

2019/03/01(金) 21:39:17.32

上級者の人がどう使っているかなんとなく解ったような気がします。とりあえず
【クラスモジュール】汎用性のある関数
【標準モジュール】　大きな処理
【シートモジュール】【フォーム】極力使わないが他と絡まない短いコードなら完結しても良い
という感じで試してみようと思います。
あとは関数名の最後に呼び出しする関数がある場所を付けてみようと思います。
何をやりたいかで構成も変わると思うのでそこらへんも加味しながら試してみます。
参考になりました、ありがとうございます！

2019/03/01(金) 22:34:27.56

ここに上級者なんていないぞ

2019/03/01(金) 22:48:58.94

>>579
関数名の最後になにを付けるって？

2019/03/01(金) 23:05:06.38

また一人、道に迷ってしまった
やっぱりVBAで勉強するのは非推奨ダナ