Excel VBA 質問スレ Part74

2021/12/20(月) 01:40:59.22

!extend:checked:vvvvv:1000:512
!extend:checked:vvvvv:1000:512
↑同じ内容を2行貼り付けるナリ

ExcelのVBAに関する質問スレナリ
コード書き込みや作成依頼もOKナリ

※前スレ
Excel VBA 質問スレ Part73
https://mevius.5ch.net/test/read.cgi/tech/1631485799/

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

**519** (ﾜｯﾁｮｲ a936-9BXF) · 2022/01/21(金) 11:35:16.64

標準モジュールの続きです。

Public Function EnumChildProc(ByVal hwnd As Long) As Long
Dim Ret As LongPtr
Dim Leng As LongPtr
Dim Name As String * 255

**519** (ﾜｯﾁｮｲ a936-9BXF) · 2022/01/21(金) 11:39:21.83

書込みができないようで中途半端なところで切れてしまいすみません。
残り数行なのですがもう少し後で投稿します。
よろしくお願いします。

2022/01/21(金) 12:02:38.78

>>524
長くなる時はコードをシェアできるサービス使って
https://collabedit.com/3dgh5

2022/01/21(金) 12:24:55.64

標準モジュールからユーザーフォームを呼び出して、そこで入力された値を持ってきて処理したいです

試しにシンプルにこんな感じでやっても駄目なんですが、どうすればいいでしょうか？

標準モジュール
Option Explicit
Public ret As Boolean
Sub test()
Dim ret As Boolean: ret = False
UserForm1.Show
MsgBox ret
End Sub

ユーザーフォーム
Private Sub CommandButton1.Click()
Dim ret As Boolean
ret = True
Unload Me
End Sub

これでtestを実行すると、メッセージボックスにFalseが表示されます
ユーザーフォームが出てきてボタンをクリックしたら、Trueをメッセージボックスに表示するようにしたいです

**519** (ﾜｯﾁｮｲ a936-9BXF) · 2022/01/21(金) 12:37:47.66

>>525
指示してもらったことろへ貼り付けました。
よろしくお願いします。

2022/01/21(金) 12:39:51.71

>>526
標準モジュール
Option Explicit
Public ret As Boolean
Sub test()
　　ret = False
　　UserForm1.Show
　　MsgBox ret
End Sub

ユーザーフォーム
Private Sub CommandButton1.Click()
　　ret = True
End Sub

2022/01/21(金) 12:47:38.25

>>528
Dimを抜くと、変数が定義されていませんと出てしまうんです
Option Explicitを入れなければ通りますが、やはりTrueは返ってこないでFalseになります

2022/01/21(金) 14:13:07.69

>>519
多分引数が間違っている。ノートパッドを起動して以下を試して、
返り値の違いを確かめてみて。
修正前は0が返ってるけど、修正後はポインタか参照が返ってるはず

hwnd = FindWindow(vbNullString, "hoge") 'トップウィンド
↓
hwnd = FindWindow("notepad", vbNullString) 'トップウィンド

後は、検索ボックスがどうこう書いてるけど、そういうプログラムを持ってないから検証できないわ

2022/01/21(金) 14:50:07.67

>>526>>529
ユーザーフォーム側で「Dim ret As Boolean」を宣言するとスコープの近い変数に格納されてしまうから不要
自分も同じようなコードをかいたがなくても正しくretにTrueが入る
（「CommandButton1.Click」は構文エラーになると思うが「CommandButton1_Click」だよね）
変数がどうとかいわれるならそもそも変数がpublicでないか参照している変数名がまちがってるとかないか？

2022/01/21(金) 14:57:28.11

>>529
528は、ちゃんと動作確認してから貼ったんだけど
コード書く場所間違ってない？
https://i.imgur.com/76hGtGx.png

2022/01/21(金) 15:01:17.70

>>532
細かくてすまんが
CommandButton1_Clickの代入先って最初大文字にしても勝手に小文字にならない？

2022/01/21(金) 15:11:34.91

>>531
何回も確認してるんですが、間違ってないんですよね・・・
CommandButton1.Clickも、>>526で間違えただけです
>>528で書いていただいたものをそっくりそのまま書いてるんですが、retにTrueが入ってくれないです
環境はエクセル2010のwin7です

2022/01/21(金) 15:17:23.81

>>532
新しい標準モジュールにtestだけ書いたらできました
何かが干渉してるってことなんでしょうか

2022/01/21(金) 15:22:29.45

自分はWin10(20H2)＋Excel2013とWin10(21H1)＋Office365(サブスクリプション版)の2つで試したけど
どちらもTrueになるね

ちなみに「ret = True」のretをマウスクリックして右クリックのメニューに出てくる「定義」を選択するとどこにジャンプする？
自分はpublic変数にとぶんだが

2022/01/21(金) 15:24:18.40

>>534
まさかイベントプロシージャの宣言部を自分で入力かコピペしてない？
フォームデザイナーでコマンドボタンをダブルクリックすると空のプロシージャが自動生成されるんだよ

あと、試したのはWin10 Excel2021 64bitだけど、この部分の仕様はずっと変わってないはず

>>533
悪いけど指摘の意味がよくわからん
スクショの通り、これでちゃんと動いてるんで
さらに細かいことを言うとCommandButton1_ClickじゃなくてCommandButton1.Clickね

2022/01/21(金) 15:30:59.33

>>529
Dimを外すとエラーが出るってことは、どこかで今回の件とは関係ない別の何かをタイプミスしてる
Option Explicitをコメントアウトした状態でステップ実行するとローカルウィンドウに使用中の変数の一覧が出るから、よーく見直せ

2022/01/21(金) 15:46:49.49

>>537
フォームデザイナー使ってます

>>536
Publicに飛びます

2022/01/21(金) 16:13:39.82

>>537
コントロールとイベントの接続文字はアンダーバーじゃない？
ピリオドで構文エラーになるけどならない場合もあるの？

>>539の作ってるサンプルは>>528通りなの？
自分のサンプルはこんな感じで作ったけど
１．新規ブック作成
２．開発メニューからエディター起動
３．プロジェクトツリーで新規フォーム作成
３．１．コマンドボタン追加
３．２．コマンドボタンダブルクリック
３．３．CommandButton1_Clickに「ret = True」を記述
結果ユーザーフォーム内のコードは下記の状態になる
Option Explicit
Private Sub CommandButton1_Click()
ret = True
End Sub
４．標準モジュール作成
４．１．下記のコードを貼り付け
Option Explicit
Public ret As Boolean
Sub test()
ret = False
UserForm1.Show
MsgBox ret
End Sub
５．test内をクリックしてF5押下で実行

2022/01/21(金) 16:23:57.05

ユーザーフォーム閉じるまでメッセージボックスまで行かないわけか
いつもモードレスだから気づかんかった

2022/01/21(金) 16:24:33.06

>>540
新規ブックで一からやったらできました
組み込みたい既存のブックでやろうとしたところ、Public retに入らない感じでしたが、新しい標準モジュールを作ってやったらできました
なので、最初に書いた先の標準モジュールが原因っぽいんですが、それが何か分からない状態です
上手く動いたコードをそのまま一番上に持ってきているんですが、エラーは出ずに実行されるもPublic retにTrueが入らずにFalseになります

2022/01/21(金) 16:40:12.64

理屈もわからずあちこちからコピペコピペとやってる奴によくある
そろそろ消えろや

2022/01/21(金) 16:45:47.13

ファイルもみてないからなんともいえないけどボタンに紐づけたイベントは正しく実行されるの？
ret = Trueの行でF9おすとブレークポイント設定されるからそこで止まるかたしかめたら？
それで止まったなら1行ステップ進めてretに何が入ってるか確認したほうがいいよ
モノづくりするときは1つずつつぶしていくのが大事よ

2022/01/21(金) 19:18:17.67

標準モジュールじゃなくてThisWorkbookに書いてる予感

2022/01/21(金) 19:27:54.79

インターネットのブラウザ　IEとかedgeとかで任意のページを開いてそこから日付とか番号とか特定の決まった箇所にある文字や数字をWordの特定の場所にコピー、挿入する方法はありますか？
できればボタンひとつでできるようになりたいです

2022/01/21(金) 19:45:58.42

あります。
「vba スクレイピング」「vba word 操作」でぐぐればいくらでもサンプル出てくると思うから好きなのえらぼう

2022/01/21(金) 22:29:10.29

>>546
Ruby馬鹿だろ

2022/01/21(金) 22:34:52.59

整然としてねえコーディングだな。

頭の中身が現れてるわ。

2022/01/21(金) 22:37:38.53

>>546

VBSか、JavaScript の方が
早いかもしれん。

2022/01/22(土) 00:26:58.95

コピペプログラマー

2022/01/22(土) 00:35:52.61

>>547
vbaでのスクレイピングは懲りた
標準だとIEしか使えないんだもん

2022/01/22(土) 01:04:10.75

>>552
どの言語でも外部ライブラリは必要

2022/01/22(土) 08:00:34.93

他社製のweb受注システムから社内の生産管理システムに流し込むときにやったな
CSVダウンロードくらい用意しろってんだ

2022/01/22(土) 08:21:46.11

>>550
同意
どうせ深くWeb系を扱うのであればJavascriptは必須になってくるから勉強するに越したことはないと思うよ。
VBSもVBAの知識があれば何とかなる・・・多分。
IISの知識があればそれでクラシックASPの出来上がりですよ。
本格的にやるならASP.NetだけどObject指向の概念が分かっていないとVBAからだとVB.Netでも少し敷居が高いかも。

どうせWeb版のEXCELとか弄るときはJavascriptだし、今の内に慣れておいた方がいいと思う。

2022/01/22(土) 08:34:08.56

>>554
同じく
csvDL自体がないってのはさすがに見たことないけど、
DLに項目が不足してる時はスクレイピングで抜いてるな

2022/01/22(土) 08:36:01.91

chromeの拡張機能でスクレイピングするのが最も安心安全
サーバーからすれば一番ユーザーに近い
IEは対応してないどころかもうすぐなくなる。

そういやvbaのブラウザはどうなるんだろ？

2022/01/22(土) 10:08:57.53

for i= 1 to 100 step 1
#If conEnv = 1 Then
　ans = d1 * d2
#Else
　ans = d1 / d2
#End If
Next i

こんな感じに条件付きコンパイルをしてる場合、
ループ毎にIF判定してるんですか？

2022/01/22(土) 10:56:45.31

>>558
しない
条件つきコンパイルってのは、実行前にコードを書き換えるようなものと思って良い。実行後は消えて無くなると思って良い。
>>558は、以下と同等に解釈される

Sub foo()
For i = 1 To 100 Step 1
conEnv = 1
ans = d1 + d2
Next i
End Sub

ちなみにこれも上記と同じ。　ans = d1 * d2 は実行されない
for i= 1 to 100 step 1
conEnv = 1
#If conEnv = 1 Then
　ans = d1 * d2
#Else
　ans = d1 / d2
#End If
Next i

分岐させたいならこう
for i= 1 to 100 step 1
#conEnv = 1
#If conEnv = 1 Then
　ans = d1 * d2
#Else
　ans = d1 / d2
#End If
Next i

2022/01/22(土) 11:00:33.05

あと、下手に条件つきコンパイルは本当にやめたほうがいい。絶対にややこしくなる
唯一使える最適な場面は、コンパイル時にエラーが起こる可能性がある箇所。
パッと思いつくのは、バージョン違いへの対応程度

テスト環境の切り替え～という人もいるけど、関数でどうこうするのと変わらん

2022/01/22(土) 12:09:48.37

>>559
ありがとうございます
質問の後で気付いてやってみたステップ実行でも
ループ毎にIF判定やってませんでした

2022/01/22(土) 12:12:56.15

>>557
フォームに貼り付けるブラウザコントロールが標準で入ってるから、これは簡単には廃止できない
アプリは消えてもオブジェクトは残り続ける

2022/01/22(土) 12:58:31.26

.netだとWebView2が使えて便利なんだけど実装されないかな
ついでにコントロールのスクロールをマウスでできるようにして欲しい

2022/01/22(土) 13:04:36.26

ID:DLYfLGcJ0

こいついつもの馬鹿か

2022/01/22(土) 13:13:07.59

笑ｗ

2022/01/22(土) 13:50:16.42

頭痛が痛い

2022/01/22(土) 19:51:56.45

バファリン飲め

2022/01/22(土) 22:48:31.49

頼んでもないのに長々と知識披露してくる人ってなんなんだろうね？

2022/01/22(土) 23:15:30.08

知識の共有だろ
俺は好きだから長文どんどん書いていいぞ
歴史的経緯とかがあると尚グッド

2022/01/23(日) 00:04:39.53

>>569
馬鹿が嘘を書くなよ

2022/01/23(日) 00:35:00.90

めっちゃ怒ってて草ｗ

2022/01/23(日) 00:38:42.06

>>569
TK80から語り出すがいいのか？

2022/01/23(日) 00:41:37.63

>>572
そこまで遡るとさすがにエクセル関係なくなるような
俺はいいけど、他の人には迷惑だと思うぞ

2022/01/23(日) 13:50:31.72

今時5chの専門版に張り付いてる異常者なんて現実じゃ誰にも相手にされない教えたがりおじさんぐらいしか居ないんだから
その辺弁えてもっと敬意持って質問しろよ

2022/01/23(日) 18:52:30.22

条件付きコンパイルで、OSのバージョン違い以外の使い方ってありますか？

2022/01/23(日) 19:43:03.21

>>575
Excelのバージョン違い
独自にデバッグモードなどを設定している場合

逆に、OSのバージョンによって作り分けるケースってそんなにないと思うなあ

2022/01/23(日) 23:04:13.46

ようやっと終わる

米Microsoftは1月19日（現地時間）、「Excel 4.0」（XLM）マクロを予定通りデフォルト無効化したと発表した。「Excel 4.0」マクロの利用を制限するオプションは昨年7
https://news.yahoo.co.jp/articles/8e4dd5e97b3b094d0d98e692b48e65864848136c

2022/01/24(月) 10:20:53.44

>>575
好きに使えばいいと思う

2022/01/24(月) 10:34:32.16

ClassモジュールとFunction と
多次元配列を使いまくると
優秀に見られるよ。

2022/01/24(月) 11:54:29.81

引き継いだ人が困るわ

2022/01/24(月) 12:20:26.60

コメント残せ

2022/01/24(月) 13:00:01.29

コメント残したけど、後任の者がそもそもマクロの知識がないパターンがあったよ
その内に部署でマクロ禁止令が入ったよ

2022/01/24(月) 13:33:12.64

程度にもよるけどVBAのマクロ程度で禁止とかかなしいね

2022/01/24(月) 17:18:50.82

Webやhtmlのメールも危険だから禁止かな

2022/01/24(月) 17:21:37.60

普通の事務員にメンテできるようなもの残せと言われればそうするしかない

2022/01/24(月) 17:27:47.92

1セルの中に長大な式を書くようにならないかそれ。

2022/01/24(月) 18:12:53.56

パソコンの苦手な人材が来てもいいように、みんな紙と電卓でやればいいんじゃない？

2022/01/24(月) 19:32:09.39

パソコン苦手な人にエクセル触らせんなよ

**デフォルトの名無しさん** (ｽﾌｯ Sd7f-N4O5) · 2022/01/24(月) 20:07:49.12

メインモジュールには処理の流れだけ書いて後はCall Function Classから引っ張れって言う風潮があるのがイマイチ理解出来ない。あと出来るだけ変数に入れて処理しろって言う風潮も。

人に引き継ぐ時に初見で見たこともない変数名や関数名を解読させたりいちいち流れをぶった斬ってあちこちプロシージャ間を行ったり来たりさせるのが本当に可読性を上げることに繋がんのか？

2022/01/24(月) 20:23:59.31

規模の大きなプログラミングをするなら重要
でもVBAで規模の大きなプログラミングをする時点で間違っているのでそんなことはしなくていい

2022/01/24(月) 20:25:55.48

は？
変数なんか使わずに Range("A1") を直接使ってるよ
分かりやすいからね

2022/01/24(月) 20:47:26.58

>>589
「グローバル変数」とか「構造化プログラミング」とか「オブジェクト指向」とかググってみればいいかも。

「関数型プログラミング」までは行かなくてもいいと思うけどｗ

2022/01/24(月) 21:02:33.82

そりゃ読む人による
知識と経験がある人にとってはセオリー通りに書かれてる方が読みやすい

**Mickey** (ｵｯﾍﾟｹ Sr7b-8IZx) · 2022/01/24(月) 21:25:54.13

Excel は使う人によっては、ただの表計算ソフトでしかないし、

優秀なプログラマーが、VBAを駆使すれば、大規模なデータベースのフロントエンドや
ActiveDirectory等、インフラ管理のツールにもなる。

Windows環境でなら、Excelがあれば、ほぼできない事は無いかと。
Accessなら、なおさらのこと。

2022/01/24(月) 21:31:57.98

>>592
VBA でオブジェクト指向は要らんやろ

2022/01/24(月) 21:32:13.51

シート参照難しいんですが…

フルパス必要な時とそうでないときのかき分けがさっぱりです

2022/01/24(月) 21:33:33.84

弘法筆を選ばずと言うが、
無能なプログラマに限って
プログラミング言語にこだわったり
たかが、Excelマグロだろ？ｗ
などと見下す。

もっとも安価に、いろんなシステムを組める
至極優秀なツールだよ。Excelは。

まあ、俺なら開発環境なんて、
メモ帳だけで十分だけどね。

2022/01/24(月) 21:34:37.02

わかんなかったら覚えろよ勉強しろよ　努力無しで成果が出るとでも思ってんのか？
工場の現場で加工機のプログラムわかんないから手動で加工していいか？ってダダこねてるのと一緒だぞ
だいたいこんくらいでいいか　なんてぇ精度で製品造るつもりか？1/1000精度求められる加工で？
それを認める上司も上司だ　一歩でも前に進む気概が無いから他の国に後れを取るってぇことにはよ気付け

2022/01/24(月) 21:36:18.43

>>595

ん？
VBA自体がオブジェクト指向言語だけどね。

まぁ、ここのあたりは、不毛な宗教論争になるので
ここまでとするが。

2022/01/24(月) 21:39:41.61

workbookという巨大なオブジェクトがあるじゃろ

2022/01/24(月) 21:43:12.08

WorkBook、正直邪魔だよね。

少人数の給料計算くらいなら良いけど

大量のデータ管理には重くて使えないし。

2022/01/24(月) 21:51:17.38

>>601
馬鹿にはわからん使い方があるのだろ

2022/01/24(月) 22:27:03.42

そういえば初心者の頃は、配列とか定数変数の代わりに
WorkBook を使ったりしてたな。
これはデメリットだらけ。

2022/01/24(月) 22:46:11.44

マクロ禁止になった理由はいろいろあるけど、一番は属人化になるからという理由でしたわ。
関数も長々とした入れ子はダメというローカルルールできた。

2022/01/24(月) 22:53:36.30

職場を無能だけで構成しようとすれば
そうせざるを得ない

そこが欧米企業と旧日本型企業との違い

2022/01/24(月) 22:58:12.91

セルに五重くらいのIF,OR文の関数を入れて
悦に浸ってるオッサン居たけど
アホにしか見えんかったわ

2022/01/24(月) 23:00:41.29

あと、上席が言うには「うちはVBAを書くのが仕事じゃないんだから、そればっかにとらわれて本来の業務を疎かにしないでくれ」と。

2022/01/24(月) 23:09:57.20

出たｗ
大多数の日本企業の実態がソレ。

業務効率化という
意識が３０年遅れてます、とね…

VBAは隠れてやった方がええよ。

2022/01/24(月) 23:10:32.49

アテクシなんざ
手作業で、一日かかる作業
（大量のドキュメント作成）を
マクロで１時間で終わらせて
残りの時間はVBAで遊んでましたぜ。

Word VBAも出来ると素敵だよ。

2022/01/24(月) 23:32:47.93

>>589
自己流だけどメインルーチンはあらすじ、グローバル変数は登場人物みたいな感じで使ってるわ
フォームやシートに書くコードはイベントハンドラくらいで、ちょっとでも長ければ似た名前のモジュール(Form1bみたいな)の中に
コントロールごとに分類して関数なりなんなりを作ってそれを呼んでる

複数のフォームで使い回せるものは複数のフォーム名が入ったモジュールを作って入れてる
プロシージャ名はフォーム名_コントロール名(略せれば略)_処理名で統一してる

グローバル変数もPbという名前の専用のモジュールに突っ込んでる
登場人物一覧みたいな感じで参照ができる

多分これでだいぶ解りやすくなると思うんだが……
VBAもxmlコメントが使えれば解りやすいんだけどな

2022/01/24(月) 23:42:30.31

VBAなんて自分の作業効率化するときだけにしとき
他人に使わせて良い事無い

2022/01/24(月) 23:43:46.42

>>607
最初の一回だけ構築すれば、後は全自動・ミスなしの瞬殺なのにねぇ

2022/01/24(月) 23:52:36.12

>>607の上席が、小手先の作業効率改善オナニーばっかりやってないで業務そのものを見直せという意味で言ってるんだとしたら極めて正しいと思うけどね
VBAで簡単に自動化できる業務なんてそもそもほとんどが無意味なんだよ

2022/01/24(月) 23:56:01.84

それが出来れば苦労せんわｗ
末端から少しずつ見直していく事で、大きな改善ができるようになる
いきなり改善しようとすると、大体無理が出る、というか出た。

2022/01/25(火) 00:50:53.14

excel VBAは手段であって目的ではない

2022/01/25(火) 01:30:31.84

日本の場合、会社組織そのものが、非効率の根源なんだけどね。

上層部は社内での自分の立場を確立するために、イエスマンで固める伝統が根付いてて
下から変えるのは、ほぼ不可能。

その意味から言って、コロナ禍は日本にとって救いの神だった。

コロナ禍がなかったら、マズゴミの情報鎖国で、あと１０年以上、変わらずに
気がついた時にはASEAN諸国にまで、IT技術と経済で抜かれてただろう。

おそロシア

2022/01/25(火) 02:03:41.94

>>613

まさに典型的な、俗人的業務の思考。

個人の力量に関係なく、最高パフォーマンスで会社がまわるのを考えるのが
企業としての真の効率化。

いまだに営業職がメインの日本型企業は特に糞。

ＧＡＦＡM等、欧米のトップ企業に、そんなカビ臭い会社が無いのを見れば明らか。

2022/01/25(火) 04:51:07.51

>>604
＞関数も長々とした入れ子はダメというローカルルールできた。

それはちょっと残念かも
呼び出す関数の役割が明確化されていれば
どんなに入れ子が多くなっていても
一度内容を理解してしまえば
そんなに読み込むの苦労しないと思うし
場合によっては途中から奥まで
読まなくても解るようになるのに。

デコレーターパターンみたいのを
使いたい場合はどうするの？

2022/01/25(火) 06:27:16.77

>>599
> VBA自体がオブジェクト指向言語だけどね。
VBAのオブジェクト指向はあまりにも中途半端
Workbook や Worksheet 等のオブジェクトを扱えるけどオブジェクト指向の知識はほとんど要らん
Let と Set の違いがわかれば充分

2022/01/25(火) 06:40:37.19

>>604
嫌がらせに100万行 x 1.6万列目のセルに途中の計算式入れて50万行目 x 8万列目辺りからoffset関数で参照だな

2022/01/25(火) 07:26:11.67

>>619
まぁMicrosoftが元々中途半端で終わらせるのが好きだからしょうがない。
旧VB6とVB.Netに切り替わったときもそうだった。

とは言ってもObject指向知ってるのと知らないのではロジック作成するときの視野の広がりが変わってくる。

何かのロジック組むときにどういう方法で組むのがモアベターか、取れる手段が増えてくるよ。

2022/01/25(火) 07:56:08.67

>>618
途中計算用のシートを作れば良いのでは