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

2022/01/20(木) 15:22:53.50

>>490
なるほどｗ

2022/01/20(木) 15:24:46.85

>>490

初心者はね。

最近は設計工程ばかりで、コーディングもしてないから
下流ビギナーの思考はわからんけど。

2022/01/20(木) 15:38:37.39

確かにグローバル変数は使わない方が良い。

ホーム・プロシージャからFunction へ飛ばして
処理させてあげて
戻り値を次のFunctionへ…

って感じで作ると、テスト工程の時に楽になる。

デッカいシステムを組むとそっちの方が絶対楽だし
改修の時も、解読に困らないからね。

2022/01/20(木) 15:56:22.20

>>491
いや、お前の能力が足りないだけだぞ

2022/01/20(木) 16:21:54.83

エクセルの場合は、エクセルという超グローバルオブジェクトがある
それをメインに据えれば良いと思うけどな

2022/01/20(木) 17:01:00.66

ホント、マクロは組む人によってその人のカラーや癖が出るとは言ったもんだね。

2022/01/20(木) 17:03:05.54

変数を日本語というか漢字とか使うのって邪道？
行とか列とかそのまま漢字文字で使ってるんだけど

2022/01/20(木) 17:03:18.69

>>497
んなもんプログラムならどれも一緒
エクセルは一段回上のファイルがあって、目に付きやすいだけ

2022/01/20(木) 17:06:10.63

>>498
2buyte文字ね
全然良い、というかむしろそっちの方が読みやすい
気をつけるのは、海外の漢字や絵文字
上でも出てたけど、半角ポンドなどエラーが起こりやすい文字がある

2022/01/20(木) 17:34:30.16

>>498
漢字をマクロ内で使って、
この5～6年くらいの間で知ってるだけで少なくとも2回、
MSのupdateで動かなくなってた記憶があるので
それに対処出来ればOKかと。

Rangeで引っ張る定義名とかsheet名は
特殊な記号は避けて漢字使っちゃってる。

2022/01/20(木) 17:50:55.00

日本語(漢字)でもいいんだ　へー　　　っていうレベルのが真似して安易に使い出したらカオス
他人事だから後は野となれ山となれ　　っていう発想としか思えない
日本語OSが出来てからやれよ　とは思う　　米語OS使わざるを得ないなら粛々と従ってろや　と
　ま、だからってローマ字に換えて30文字ぐらいのモジュールが40ヶぐらい並んでるのを見た時には一時間ぐらい気絶したけど
getsumatsukoushinn() nenjikoushintokuisakibetuhinmokubetsu()　　　あのさ、、、　これにOK出したの誰よ？

2022/01/20(木) 17:51:21.68

そういや何年か前、accessVBAだっけ？2byte文字あると全部エラーになるみたいなのあったな

2022/01/20(木) 18:02:49.63

>>502
ワロス

2022/01/20(木) 18:26:03.22

>>502
こういうの見るとoption explicit必須何やなって思わされる

2022/01/20(木) 18:30:19.80

開発現場のローカルルールは
2バイト文字禁止が普通だけどね。

色んな環境で使うことを想定したら
日本語とかありえん。

コーディングの時は日本語だけど、
最終的に全置換で英語表記に変える。

2022/01/20(木) 20:06:44.42

> 色んな環境で使うことを想定したら
Excel VBA でそんなことを気にしないといけない状況って相当珍しいだろw

2022/01/20(木) 20:09:21.62

俺が前に行ってた派遣先ではC#で漢字の変数名や関数名とか自由に使ってたわ
業界ではそれなりに知られた老舗のソフトメーカーなんだけど
まあ、そういう職場もあるってことで

2022/01/20(木) 20:34:21.90

日本語以外での展開を考えてるならまあ２バイト文字禁止で良いんじゃね
日本語環境で開発してる段階で漢字禁止とかあんまり見ないけどな

ただ、メソッド名に日本語は過去にえらいことになった例があるからなぁ...

2022/01/20(木) 23:42:09.41

ID:aoz8cIff0

いつもの馬鹿でしたとさ

2022/01/21(金) 02:47:14.61

派遣てなになに？
VBA技術者の派遣とかあるんだ？

2022/01/21(金) 03:05:10.67

派遣業（ピンハネ屋）を禁止にすれば
日本人の給料は上がります。

2022/01/21(金) 05:15:31.24

派遣て確か専門職だからめちゃめちゃ稼げると聞いたけど、どうなの？？
那須は出ないとは聞いたけど時給はめっちゃ高いと聞いたものでして。

2022/01/21(金) 07:53:02.69

>>513
1500-2000円ぐらいだったかな。ただもう募集自体がほとんどない。
ほぼ全てローカル環境での作業のため、リモートも出来ない

>>512
下がる

2022/01/21(金) 08:07:59.20

へえ、1500から2000円ねそうなんだ。
自分田舎住みだからその時給はかなり水準高いわ。
こっちなんてどんだけExcelの技術あっても良くて時給1200円前後。
マクロ書ける人材は貴重だからもっと給料上げるべきだと思う。

2022/01/21(金) 08:29:03.61

企業常駐型だから、基本かなり居づらいし
VBAでゴリゴリの開発や保守なんて絶対にやらんほうがいいわ

2022/01/21(金) 08:45:23.59

あ、常駐型SEを思い出した。
給料はもっと貰うべき。

2022/01/21(金) 08:51:43.72

適正が有るだけで大した労力使わないのに給料は高いんだよ
楽だよな

2022/01/21(金) 09:29:31.93

ExcelでEnumChildWindowsを使って他アプリの子ウィンドを取得するプログラムをテストしています。
と言っても知識がないのでネットからソースをコピーしてテストしているレベルです。
EnumChildWindowsの引数でコールバック関数をしているのですが、コールバック関数を実行した時に順調に
実行される時とEnumChildWindowsを実行した途端Excelが終了する時があります。
何かよくあるミスとかあれば教えてください。
APIの宣言、コールバック関数は標準モジュール、その他はシートモジュールに書いています。
プログラムを張り付けて良いか分からないので張り付けていませんが良いならご指示ください。
よろしくお願いします。

2022/01/21(金) 09:44:43.07

>>519
コードは貼ってくれ

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

519です。
長すぎると怒られるのでいくつかに分けます。
よろしくお願いします。

Sheet1モジュール

'///GetWindowの定数///
Const GW_HWNDFIRST = 0 '基準となるWindowと同じ種類のうち最前面のWindow
Const GW_HWNDLAST = 1 '基準となるWindowと同じ種類のうち最背面のWindow
Const GW_HWNDNEXT = 2 '基準となるWindowの次のWindow
Const GW_HWNDPREV = 3 '基準となるWindowの前のWindow
Const GW_OWNER = 4 　'基準となるWindowのオーナーWindow
Const GW_CHILD = 5 　　 '基準となるWindowの子WindowのうちトップレベルのWindow
Dim myHwnd As LongPtr　　'検索ボタンのハンドルを記憶

Sub Test1()
'アプリhogeの検索ボタンを探す
Dim Ret As LongPtr
Dim hwnd As LongPtr

hwnd = FindWindow(vbNullString, "hoge") 'トップウィンド
hwnd = FindWindowEx(hwnd, 0, vbNullString, "hoge_1")'検索ボタンが所属している子ウィンド

Ret = EnumChildWindows(hwnd, AddressOf EnumChildProc, 0)
myHwnd = GetWindow(myHwnd, GW_HWNDPREV)
End Sub

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

標準モジュール

Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWndParent As LongPtr, ByVal hwndChildAfter As LongPtr, ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function EnumChildWindows Lib "user32" (ByVal hwnd As LongPtr, ByVal callBackProc As LongPtr, ByRef lParam As LongPtr) As LongPtr
Declare PtrSafe Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As LongPtr, ByVal lpString As String, ByVal cch As LongPtr) As LongPtr
Declare PtrSafe Function GetWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal wCmd As LongPtr) As LongPtr

**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") を直接使ってるよ
分かりやすいからね