Excel VBA 質問スレ Part82

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2ch.scのread.cgiへ]
Update time : 11/17 16:56 / Filesize : 280 KB / Number-of Response : 1024
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

1 名前：デフォルトの名無しさん [2025/01/24(金) 03:31:15.25 ID:l239yW+P.net]: ExcelのVBAに関する質問スレ
コード書き込みや作成依頼もOK

次スレは>>980が立てること
無理なら細かく安価指定

関連スレ
Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)
https://mevius.5ch.net/test/read.cgi/tech/1674875532/
Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり)
https://mevius.5ch.net/test/read.cgi/tech/1700826110/

※前スレ
Excel VBA 質問スレ Part79
https://mevius.5ch.net/test/read.cgi/tech/1674874007/
Excel VBA 質問スレ Part80
https://mevius.5ch.net/test/read.cgi/tech/1685489018/
Excel VBA 質問スレ Part81
https://mevius.5ch.net/test/read.cgi/tech/1713416618/
816 名前：デフォルトの名無しさん [2025/05/23(金) 19:54:42.34 ID:ybuGJY2P.net]: C言語育ちのワイ、VBA始めた頃「えっ、ポインタってどうやって使うの？」って戸惑った思い出
自分の仕事が楽になる�
817 名前：p途で使いまくってるからまぁ属人化しまくりだけど、 自分が退職した後(2年後)は知らんと思っている []: [ここ壊れてます]
818 名前：デフォルトの名無しさん mailto:sage [2025/05/23(金) 20:17:02.36 ID:dHvUhuhP.net]: この辺がつらい

・tryがない
・for eachがバリアントのみ
・continueがない
819 名前：デフォルトの名無しさん mailto:sage [2025/05/23(金) 21:01:05.99 ID:61koEGUg.net]: まぁ、なければないで何とかやっていけるもんだよ。
このスレではそう言っておくのが無難。
820 名前：デフォルトの名無しさん [2025/05/23(金) 21:05:52.61 ID:fxCKrz9G.net]: >>799
Ｃ言語にはfor eachがない、なぜならもっと原始的、シンプルな言語だからってCopilotに聞いたのですが本当なのでしょうか？
821 名前：デフォルトの名無しさん mailto:sage [2025/05/23(金) 21:21:09.60 ID:eG6EJpyW.net]: >>802
ポインタに++すれば次の要素になるからむしろCのほうが融通が効く
822 名前：デフォルトの名無しさん [2025/05/23(金) 22:01:59.52 ID:ai481srR.net]: 4行以上のレスは読む必要無いってマジだな
823 名前：デフォルトの名無しさん [2025/05/23(金) 22:09:05.20 ID:4KSUIwLz.net]: ぬるぽ
824 名前：デフォルトの名無しさん [2025/05/23(金) 23:17:20.35 ID:fxCKrz9G.net]: >>793
データアナリストならパワークエリーしてほしいな
825 名前：デフォルトの名無しさん [2025/05/24(土) 06:17:34.64 ID:OSW0csek.net]: 属人化し易い言語と言うことは融通の利く言語と言うことでもある。
例えば、CやC++ではポインタが使えたけどC#では「それは危険だ」ということで使えなくなってしまった。
代わりにデリゲートを使ってセーフティーに参照しなさい、ってことなんだろうけど、まぁお仕事用の開発だったらそれでもいいのかもしれないけど、
昔PS-VITAってゲーム機があって、これがエクスペリアってスマホとクロスプラットフォームで開発できるように開発言語をC#にしてしまった。
ポインタは確かに参照先間違えると吹っ飛んだりメモリリーク起こしたりと危険なものではあったけど、扱いが面倒ではないし融通の利く機能だった。
それを潰してしまったことがPSPシリーズがVITAで終わってしまった原因ではないかと今でも思ってる。
826 名前：デフォルトの名無しさん [2025/05/24(土) 06:41:52.12 ID:OSW0csek.net]: >>798
JavaScriptをやったときには
前から.Net系の言語や、まぁVBAでもそうなんだけど、
何でクラスのインスタンスや文字列とかは変数に入れられるのにメソッドは入れられないんだろ？
って思ってた時期があって、
JavaScriptに当たったとき、
あ、出来る言語もあるんだってなって、あれVBAに欲しいなぁとは思った。
後はスクリプト系の言語はスカラー変数で型の指定がないから型の指定に慣れてると逆にそれが面倒だったかな。
VBAで言えば全部Variantで扱ってるようなもんだし。厳密には違うらしいけど。
827 名前：デフォルトの名無しさん mailto:sage [2025/05/24(土) 10:35:16.26 ID:sJ/mZ3mU.net]: 若いコにはやっぱPython辺りが人気とか？
828 名前：デフォルトの名無しさん mailto:sage [2025/05/24(土) 13:44:59.73 ID:3VNn3d5Y.net]: スピル周りやLET,LAMBDAなどの関数が充実し
Excel＝ビジュアルな関数型言語だと勝手に思っている
829 名前：デフォルトの名無しさん [2025/05/24(土) 14:39:09.90 ID:a4AdJqTs.net]: ビジュアルな関数型言語はemacs-lispだろ
830 名前：デフォルトの名無しさん [2025/05/24(土) 15:44:49.02 ID:0gUvgwlc.net]: 表検索するのにSQL使ってたけど、FILTER覚えたら単純な検索ならこれでいいかー、ってなった
831 名前：デフォルトの名無しさん [2025/05/24(土) 20:17:19.55 ID:c7V+L981.net]: このスレはバカの話はなぜ長いのか考えるスレになりました
832 名前：デフォルトの名無しさん mailto:sage [2025/05/24(土) 20:41:36.84 ID:6QA0+Pxw.net]: 頭の良い人は難しいことを簡単に説明出来る
馬鹿は簡単なことを長々と判り難くする
833 名前：デフォルトの名無しさん [2025/05/24(土) 20:44:24.68 ID:OSW0csek.net]: >>813
正直すまんかった
久しぶりにVBAスレ来たからつい・・・
でもVBAはいい言語だと思うよ
834 名前：デフォルトの名無しさん mailto:sage [2025/05/24(土) 21:07:47.86 ID:cYe6QRvj.net]: VBAは言語なのだろうか
VBは言語だけども
835 名前：デフォルトの名無しさん [2025/05/24(土) 21:42:51.33 ID:ZMjSY/PV.net]: A1セルはこのフォルダのパスを記入する
A2セルはこのフォルダのパスを記入する

流石にこれは通じる、、、よね？
836 名前：デフォルトの名無しさん [2025/05/24(土) 21:44:12.53 ID:ZMjSY/PV.net]: >>816
チューリング完全がプログラム言語の定義なのでしょう？
だったらVBAはプログラミング言語なのでは
837 名前：デフォルトの名無しさん mailto:sage [2025/05/24(土) 22:37:10.39 ID:iK5rs3WU.net]: A1 Write this folder pass.
838 名前：デフォルトの名無しさん [2025/05/25(日) 12:18:28.20 ID:IvH5YvLQ.net]: dictionaryやFileSystemObjectのfunction関数を使っているけど、dictionaryに登録する処理や取得したファイル名やファイルパスに対する操作は事なる

こう言う場合、どうすれば個別の条件にも対応できるfunction関数が作れますか？
839 名前：デフォルトの名無しさん mailto:sage [2025/05/25(日) 12:36:22.85 ID:ubpRgCst.net]: 異なる操作をひとつの関数で行いたいという質問ですね！
まずはどういう操作を行っているのか教えてください！
840 名前：デフォルトの名無しさん mailto:sage [2025/05/25(日) 12:45:27.58 ID:czPn1bap.net]: dictionaryは死ぬ予定だから使うのやめなよ
841 名前：デフォルトの名無しさん mailto:sage [2025/05/25(日) 12:53:50.40 ID:ubpRgCst.net]: >>822
そうですね！
Excelなのだからデータはワークシートに格納するのがスジですね！
842 名前：デフォルトの名無しさん mailto:sage [2025/05/25(日) 13:20:14.05 ID:fZ8kzLje.net]: AIみたいな解答ワラタ
843 名前：デフォルトの名無しさん [2025/05/25(日) 16:48:27.92 ID:zOE9ehCa.net]: ホントにAIに聞いた。
個別の条件にも柔軟に対応できる function を作るには、いくつかのアプローチが考えられます。例えば、以下のような方法を試してみてはいかがでしょうか。
1. パラメータを活用する
2. Enum または定数を使う
3. コールバック関数を使う
844 名前：デフォルトの名無しさん mailto:sage [2025/05/25(日) 17:36:59.25 ID:QBoxveBd.net]: 何をしたいのかが謎
型によって処理を分岐させたいってことかね

Function 関数(処理対象)
　型名 = TypeName(処理対象)
　Select Case 型名
　　Case "Dictionary"

　　Case "File"

　　Case "Folder"

　End Select
End Function
845 名前：デフォルトの名無しさん mailto:sage [2025/05/25(日) 18:31:50.10 ID:czPn1bap.net]: >>823
そういう話じゃなくVBS廃止の副作用で連想配列や正規表現が死ぬって話
846 名前：デフォルトの名無しさん [2025/05/25(日) 18:42:26.13 ID:rOBfPREU.net]: >>827
VBS廃止の副作用で死ぬのは噂や推測じゃなくて公式の情報なの？
847 名前：デフォルトの名無しさん [2025/05/25(日) 19:07:30.81 ID:IvH5YvLQ.net]: ファイルシステムオブジェクトでフォルダの中のファイル名一覧と、ファイルパスを取得したい時もあれば、
ファイル名に部分一致するファイルのパスを取得したい時もある
848 名前：デフォルトの名無しさん [2025/05/25(日) 19:13:49.79 ID:5C/Jye7Q.net]: 従来の正規表現の代用って無いの
849 名前：デフォルトの名無しさん mailto:sage [2025/05/25(日) 19:54:07.08 ID:czPn1bap.net]: >>828
逆にあれだけ情報出ててなんで死なないと思うの？
https://techcommunity.microsoft.com/blog/windows-itpro-blog/vbscript-deprecation-timelines-and-next-steps/4148301

>>830
vba-regex by sihlfallっていう、
RegExp代替のフルVBAで書かれた正規表現エンジンがある
850 名前：デフォルトの名無しさん mailto:sage [2025/05/25(日) 19:58:13.45 ID:bo3VS07C.net]: >>829
はい！
if文で条件分岐すれば、簡単に実現できます！
851 名前：デフォルトの名無しさん [2025/05/25(日) 20:04:43.89 ID:IvH5YvLQ.net]: 私はVBAの正規表現が死んだら、パワークエリーでJavaScriptの正規表現を使うわ

set オブジェクト = nothingって必ずした方が動作が確実になるのでしょうか？
Wordのドキュメントやアプリ
852 名前：ケーションを処理する時にエラーが出たのでそう思いました。 []: [ここ壊れてます]
853 名前：デフォルトの名無しさん mailto:sage [2025/05/25(日) 22:03:34.39 ID:QBoxveBd.net]: 正規表現はREGEX関数が実装されたのでVBAでやる必要なし
854 名前：デフォルトの名無しさん [2025/05/25(日) 22:32:05.60 ID:d/seLvao.net]: >>822
知ったか乙
良く調べて書き直せ
855 名前：デフォルトの名無しさん mailto:sage [2025/05/26(月) 02:34:52.38 ID:J879X3+V.net]: >>835
Microsoft Scripting Runtimeに依存してるからVBSと共に死ぬ
FSOなんかはScripting Runtimeには依存してないから引き続き使える
間違ってるなら指摘して
認識改めるから
856 名前：デフォルトの名無しさん mailto:sage [2025/05/26(月) 09:38:22.00 ID:G1Vrdcz4.net]: >>820　が聞きたいのは
https://www.limecode.jp/entry/syntax/bind-set-filesystemobject
この辺の処理の仕方なんでは？　最後まで精読すれば、どういう書き方をすれば
より都合が良くなるか、それなり理解が深まるような
857 名前：デフォルトの名無しさん [2025/05/26(月) 09:53:10.39 ID:wHcYCN0P.net]: >>833
＞set オブジェクト = nothing
それ書かないで過去に何度か問題起きてたような
ファイルopenして、close書かなくても勝手に閉じてくれるとしても、書いたほうがいいようなもん
たった1行各程度で未然にトラブル防げるなら書いとけと
（かと言って、親オブジェクトから連なる小オブジェクトはいちいちnothingせずに、親オブジェクトだけ書いちゃうことも多いけどな。小さい処理だと特に）
858 名前：デフォルトの名無しさん [2025/05/26(月) 12:08:21.83 ID:chNfFSjB.net]: >>836
間違えている
どのDLLに何が入っているかだ
859 名前：デフォルトの名無しさん [2025/05/26(月) 13:55:33.90 ID:cvwCoF8H.net]: >set オブジェクト = nothingって必ずした方が動作が確実になるのでしょうか？

した方が良いじゃなくてするべき
860 名前：デフォルトの名無しさん [2025/05/26(月) 17:21:30.90 ID:c1JRhLC0.net]: コピペ荒らしこのスレだけ来ないの面白いな
861 名前：デフォルトの名無しさん [2025/05/26(月) 18:35:02.01 ID:FaOK97dk.net]: >>837
すみません
今の私は例えばファイルシステムで言えば、
フォルダの中の全てのフォルダ名とフォルダパスを取得
フォルダの中の全てのファイル名とファイルパスを取得
フォルダの中に指定のファイル名と異なるファイルがあれば削除
と言う様に、
それぞれのサブプロシージャを作成する事しかできていません
なので、一つのサブプロシージャに条件に応じて複数の処理が行えないかなと思いました
原作論で言えば、一つの処理しかできないサブプロシージャこそ正しいのかもしれませんが
あと、それぞれのプロシージャでファイルシステムオブジェクトを宣言とセットをしてしまっています

nothingは今までプロシージャを抜けた時点で解放されるから特にする必要がないと思っていましたが、Wordを操作する様になって、nothingをしないと処理が止まってしまうので意識する様になりました
862 名前：デフォルトの名無しさん mailto:sage [2025/05/26(月) 19:11:18.49 ID:mCaBFscc.net]: Sub Yaritai(i as integer)
if (i and 1) <> 0 then
Call Sub1()
elseif (i and 2) <> 0 then
Call Sub2()
End Sub
863 名前：デフォルトの名無しさん [2025/05/26(月) 20:30:26.44 ID:sP5+kUYx.net]: >>842
ご自分で言ってる通り、ひとつのモジュール、関数、メソッド等にはひとつの役割を与えて作るのがセオリーです。ちなみにそれを単一責任原則と言います。
ひとつのプロシージャ内で出来るかと言えば、再起処理やStaticな変数を上手く使えば恐らく出来ないことは無いでしょうが、そうするメリットをあまり感じません。
ひとつのプロシージャで処理するのではなく、ひとつのクラスとしてその辺の処理を行うことを検討しては如何でしょうか？
そうすればメンバ変数として宣言したもののインスタンスをコンストラクタで生成することも出来ますし、デストラクタで解放することも出来ますよ
864 名前：デフォルトの名無しさん [2025/05/26(月) 20:36:57.49 ID:sP5+kUYx.net]: ×再起処理
◯再帰処理
誤変換すまんこ
865 名前：デフォルトの名無しさん [2025/05/26(月) 21:18:23.47 ID:FaOK97dk.net]: >>844
クラスモジュールを一通りやった事がありますが、いまいちクラスモジュールの使い方を知りません
どうすればそれぞれの機能をクラスモジュールで効率的に実装できるでしょうか？
866 名前：デフォルトの名無しさん mailto:sage [2025/05/26(月) 22:59:03.14 ID:Eh03XDLb.net]: セルから機種依存文字を直接拾ってくるのは難しいですか？

例えば☐(unicode:2610)が入ってるセルをクリックすると☑(unicode:2611)に書き換える、みたいなのを実装する場合、
if(Range("A1").text="☐")then
だとRange("A1").textでセルの文字は取得できませんよね？
（もちろん「="☐"」で直接比較することもできませんが）

どうにかしてセルの機種依存文字を拾ってきてその種類を判定することは可能でしょうか？
867 名前：デフォルトの名無しさん mailto:sage [2025/05/26(月) 23:15:54.66 ID:MWZ/4kNq.net]: >>847
Hex(WorksheetFunction.Unicode(Range("A1")))
868 名前：デフォルトの名無しさん mailto:sage [2025/05/27(火) 15:49:48.18 ID:j5Gfr/Ar.net]: >>847
>Range("A1").textでセルの文字は取得できませんよね？
取得はできる。ＶＢＥで使えない文字だからソースに直接その文字を書けないだけ

Dim CHECK_ON As String: CHECK_ON = ChrW(&H2610)
Dim CHECK_OFF As String: CHECK_OFF = ChrW(&H2611)

If Range("A1").Value = CHECK_ON Then
Range("A1").Value = CHECK_OFF
Else
Range("A1").Value = CHECK_ON
End If
869 名前：デフォルトの名無しさん mailto:sage [2025/05/27(火) 17:59:07.28 ID:2OPk25Mu.net]: >>848
解決しました。
ありがとうございます。
870 名前：デフォルトの名無しさん [2025/05/27(火) 20:17:39.42 ID:3QS90eHP.net]: Excelの話ではないからスレ違いなんですが、 Wordのドキュメントの2ページ目の行に文字列を挿入するにはどうしたらいいでしょうか？
2ページ目の〜行目にと言う様な指定はできないのでしょうか？
871 名前：デフォルトの名無しさん [2025/05/27(火) 20:38:35.17 ID:0hlUsnMF.net]: >>851
スレチとわかっていて厚かましい
死ね
872 名前：デフォルトの名無しさん [2025/05/27(火) 20:52:46.35 ID:OuONf5SF.net]: >>852
この馬鹿モンが!

>>851
いい質問ですね
ExcelのほうがメジャーでWordはマイナーなのだけど
WordのVBAをはじめた人にとっては初期段階でやりたい操作なのではないでしょうか?

簡単ではないですが解決策はあります
たしかinformationみたいな名のプロパティを使ったような気がする
(もうWordVBAは数年使ってないから忘れた)
ChatGPT使えば教えてくれるかも
873 名前：デフォルトの名無しさん mailto:sage [2025/05/27(火) 20:54:35.84 ID:DtCiAPP8.net]: >>853
死ね
874 名前：デフォルトの名無しさん mailto:sage [2025/05/27(火) 22:13:59.20 ID:JUnNHiQe.net]: >>851
ActiveWindow.ActivePane.Pages(2).Rectangles(1).Range = "文字列" & ActiveWindow.ActivePane.Pages(2).Rectangles(1).Range
875 名前：デフォルトの名無しさん [2025/05/28(水) 00:45:03.58 ID:7WzKj5D7.net]: フォームを作るのに標準のコントロールやAPIでは動かないことがあったから、ついにPowershellで作り始めちゃった
876 名前：デフォルトの名無しさん mailto:sage [2025/05/28(水) 01:00:15.46 ID:+7HocyMO.net]: PowerShellは
System.Collections.Genericが使えるからかなり楽だよなぁ
VBAと違ってフォームデザイナが標準で付いてないのが難だが
877 名前：デフォルトの名無しさん [2025/05/28(水) 07:40:29.71 ID:LbsE8EcH.net]: VSの方が楽なんでは
PS使ったことないけど
878 名前：デフォルトの名無しさん [2025/05/28(水) 08:42:06.86 ID:WNN+73zR.net]: PowerShellはbatと違って、一手間や権限設定が必要と聞いたからやめた震え声
本当にそうなのですか？
879 名前：デフォルトの名無しさん [2025/05/28(水) 08:58:57.33 ID:DZlhdmsz.net]: 震え声で言ってるの?
880 名前：デフォルトの名無しさん mailto:sage [2025/05/28(水) 09:02:42.36 ID:3/66YXCT.net]: スレタイを音読してみよう
881 名前：デフォルトの名無しさん [2025/05/28(水) 09:56:27.88 ID:0RI44N1Y.net]: エグザイル　ビバ　しつもんしる
882 名前：デフォルトの名無しさん [2025/05/28(水) 20:05:51.40 ID:WNN+73zR.net]: VBAでファイルやフォルダのパスはいつも一覧表で利用しているのですが、当然属人化するリスクがあるので、もっと柔軟にパスを設定できる方法を探しています。
今考えているのは、ファイルやフォルダが見つからなかった時にダイアログを開いてフォルダやファイルを選択させ、選択したファイルやフォルダのパスをセルに記入する、と言う方法なのですが、もっと簡単で確実で柔軟な方法はないでしょうか？
883 名前：デフォルトの名無しさん mailto:sage [2025/05/28(水) 20:44:52.08 ID:Z5h4paoG.net]: 自分は設定シートを用意して、そこに記述してあるものを参照してる
884 名前：デフォルトの名無しさん mailto:sage [2025/05/28(水) 20:50:09.42 ID:bd87TuSw.net]: ログインユーザーのマイドキュメントをルートにして開く
具体的には「HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders\Personal」
のパス
885 名前：デフォルトの名無しさん [2025/05/28(水) 21:40:10.79 ID:WNN+73zR.net]: >>864
その設定用シートに
例えばフォルダやファイルを複数選択した状況で右クリックのパスをコピーでシートに貼り付ける
という事さえも出来ない、わからない人も想定しないといけない訳で、、、
886 名前：デフォルトの名無しさん [2025/05/28(水) 21:58:53.67 ID://Fv0twK.net]: >>863
エクスプローラーからファイルをドラッグドロップ
887 名前：デフォルトの名無しさん [2025/05/28(水) 22:16:15.52 ID:WNN+73zR.net]: >>867
知らなかったです
これができるなら本当に希望が見えてきました
888 名前：デフォルトの名無しさん [2025/05/28(水) 22:18:57.59 ID:QfAx2JsO.net]: 馬鹿ばっか
889 名前：デフォルトの名無しさん [2025/05/28(水) 23:46:46.18 ID://Fv0twK.net]: >>868
https://excel.syogyoumujou.com/memorandum/d_and_d_1.html
このやり方が簡単そう
890 名前：デフォルトの名無しさん [2025/05/29(木) 07:11:07.31 ID:cC95Jm/J.net]: >>870
よくよく考えれば当たり前なんだけど、ドラッグ&ドロップで追加する機能もあるんだ
これは便利だ
891 名前：デフォルトの名無しさん [2025/05/29(木) 17:25:49.51 ID:fp+yAGdo.net]: FileSystemObject の TextStream が使えないなら ADODB の Stream を使えばいいじゃない
と思ったら挙動が違ってびっくり
892 名前：デフォルトの名無しさん [2025/06/01(日) 20:16:56.40 ID:wTah86rB.net]: 初歩的な質問で申し訳ないですが、マクロ実行中にエラーなどでデバック画面、エディタ画面に移動せずに、エラーハンドリングなどを実行してプロシージャを終了するにはどうしたらいいですか？
893 名前：デフォルトの名無しさん mailto:sage [2025/06/01(日) 21:54:45.65 ID:fzXRF4Kq.net]: >>873
On Error Resume Next
894 名前：デフォルトの名無しさん mailto:sage [2025/06/02(月) 00:34:11.70 ID:14Td775l.net]: [ツール] [オプション] [全般]
エラーでトラップ
●エラー処理対象外のエラーで中断

ということではなくて？
895 名前：デフォルトの名無しさん mailto:sage [2025/06/02(月) 00:35:28.23 ID:14Td775l.net]: ×エラーでトラップ
◯エラートラップ
896 名前：デフォルトの名無しさん [2025/06/02(月) 07:36:05.35 ID:hx4qvUMZ.net]: >>614
on error goto ラベル名
vba エラーハンドリングで検索して例を見た方が早いよ
897 名前：デフォルトの名無しさん mailto:sage [2025/06/02(月) 08:46:36.26 ID:IeMpK/LE.net]: >>614
そんなひとつのモジュールに詰め込んだら管理しにくいでしょ。
モジュールは分ける。
898 名前：デフォルトの名無しさん mailto:sage [2025/06/02(月) 09:24:06.39 ID:3Ov4fjqk.net]: >>878
何を基準にかを書かかないと役立たずじゃない？
899 名前：デフォルトの名無しさん mailto:sage [2025/06/02(月) 15:03:33.91 ID:DSKTrfoz.net]: 馬鹿はそんなことも判らないのか
900 名前：デフォルトの名無しさん mailto:sage [2025/06/02(月) 15:07:32.82 ID:OjGRkHiP.net]: >>880
スレタイ読めない馬鹿ｗ
901 名前：デフォルトの名無しさん [2025/06/02(月) 19:50:00.14 ID:K2UVQp3e.net]: >>614
ひとつのモジュールにはひとつの役割を
ひとつのプロシージャにもひとつの役割を
与えて書けばいいんじゃない？
もちろん、モジュールとプロシージャでは
与える役割が全然変わってくるけど

例えばモジュールに車という役割を与えたら
プロシージャには走る役割を与えたり

後はセンス
902 名前：デフォルトの名無しさん [2025/06/02(月) 20:06:38.96 ID:Xhmb9taU.net]: ありがとうございます
やはり　on error goto ラベル名　なのですね
903 名前：デフォルトの名無しさん [2025/06/02(月) 20:25:45.14 ID:gI3jZeU7.net]: on error resume next
ヤバそうな処理
if err.number<>0 then
エラーリカバリー
end if
on error goto0
904 名前：デフォルトの名無しさん [2025/06/02(月) 20:45:44.86 ID:Xhmb9taU.net]: >>884
エラーが発生している、あるいはしそうな処理がある、というよりは、マクロ実行中にどんなバグでも発生したら、発生した時点で終了させる必要があります
905 名前：デフォルトの名無しさん mailto:sage [2025/06/02(月) 21:35:59.74 ID:nQl9pEtd.net]: 終了前に
err.number = エラー番号
をセットしてジャンプさせるハンドラがいる
こわー
906 名前：デフォルトの名無しさん mailto:sage [2025/06/02(月) 22:06:18.54 ID:ZCDsMgZ+.net]: Sub Div0()
On Error GoTo Err
MsgBox 1 / 1
MsgBox 1 / 0
MsgBox 1 / -1
Err:
MsgBox "ゼロで割るな、クソが"
End
End Sub
907 名前：デフォルトの名無しさん mailto:sage [2025/06/02(月) 22:26:41.07 ID:ncJUEcFA.net]: Err: の前で Exit Sub しないと
908 名前：デフォルトの名無しさん [2025/06/03(火) 07:35:55.27 ID:o/OLh2ct.net]: 異常が起きる前にファイル開いてた場合、closeしないで終了してしまうとかある
909 名前：デフォルトの名無しさん [2025/06/03(火) 07:39:00.03 ID:/ZJ1mBw3.net]: VBAのツール作りは時間がかかるのが当たり前でしょうか？
作り方は分かっているし、作るツールもたいしたものではないのに、それでも1日2日では終わらないです
910 名前：デフォルトの名無しさん [2025/06/03(火) 10:48:59.43 ID:Kk3A2bVT.net]: ものによる、人による、まともにテストしてるかにもよる
911 名前：デフォルトの名無しさん mailto:sage [2025/06/03(火) 10:57:06.67 ID:Q0vXXWY4.net]: どうせ著作権侵害や不正アクセスツールだろ
912 名前：デフォルトの名無しさん [2025/06/03(火) 19:25:30.47 ID:gpacmpqZ.net]: >>890
まぁそうだね
だから綺麗に部品化しておくことが大事なんだよ
それを後で使い回せるようにね
913 名前：デフォルトの名無しさん [2025/06/03(火) 20:26:44.49 ID:/ZJ1mBw3.net]: 自分が勤めている会社で理解者や協力者を増やそうと、少しでもVBAに興味を示した人や、VBAを齧っている人を相手に勉強会を開催しても、結局VBAがわかる人は少ない
という話を聞きますが、やっぱりVBAといえど、難しいのでしょうか？
Power Queryでもそういう話を聞きます
914 名前：デフォルトの名無しさん mailto:sage [2025/06/03(火) 21:02:42.93 ID:cgHky4oh.net]: VBAが難しくないんだったらさっさとVBA卒業して本職のITエンジニアになった方が稼げるからねえ
向上心がありすぎてもいけない、中途半端なツールなので
915 名前：デフォルトの名無しさん [2025/06/03(火) 21:09:44.47 ID:Kk3A2bVT.net]: チンタラ残業代稼いでる人にとって効率化は最大の敵
VBAにしろRPAにしろ最大の抵抗勢力よ
916 名前：デフォルトの名無しさん [2025/06/03(火) 22:04:21.82 ID:gr7bEf2i.net]: >>872 で愚痴って終わりなのもアレだから一応書いとく

・事象
　FileSystemObject.TextStream.ReadLine と ADODB.Stream.ReadText(adReadLine) が同じ結果にならない

・原因
　改行コードが CRLF と LF が混じったお行儀のよろしくないファイルだった

・対処
　LineSeparator = adLF として Replace(ReadText(adReadLine), vbCr, "")
　とやったらOKだった
917 名前：デフォルトの名無しさん mailto:sage [2025/06/03(火) 23:26:25.06 ID:aKU11sxP.net]: >>897
Microsoftのマニュアルよりも詳しい説明
ADODB.Stream: https://atsumitm.iobb.net/its/its-050.php
TextStream:　 https://atsumitm.iobb.net/its/its-051.php
918 名前：デフォルトの名無しさん [2025/06/03(火) 23:46:58.61 ID:gpacmpqZ.net]: >>894
VBAは比較的間口が広くてとっつき易い言語ではあるとは思うよ
ただ、何の言語でもそうだけど教える人がいると受動的になりがちで聞いてりゃ分かるようになると思ってしまうのはマズい
聞いてりゃ分かるようになる言語なんて存在しない
分かる人が少ないのは結局、VBAを本当に必要であることを迫られる立場に無いからだと思う
VBA出来なきゃ今いる会社をクビになるくらいに迫られたら大概の人は理解する
でも教えてくれる人がいるということは恵まれたことだと思うよ
このスレにいる大多数の人は恐らく独学で仕事場で使えるようにならざるを得なかった立場なんじゃないかな
919 名前：デフォルトの名無しさん [2025/06/03(火) 23:58:42.71 ID:/ZJ1mBw3.net]: >>899
私も完全独学で覚えました
というプログラミングは独学で学んでいる人ばかりではないのですか？
プログラミングスクールは役に立たないし、かと言って会社は教えてくれない
920 名前：897 [2025/06/04(水) 00:06:22.21 ID:/Ak3M73b.net]: >>898
このサイトぐぐるとよく見かけるようになったけど、詳しすぎて理解できないw
921 名前：デフォルトの名無しさん mailto:sage [2025/06/04(水) 00:40:57.38 ID:b8XC2mTd.net]: 自学できない人はダメだよね
922 名前：デフォルトの名無しさん mailto:sage [2025/06/04(水) 05:30:19.54 ID:3c6clsCg.net]: 独学って、大半の人は言語に固有の文法と、開発環境に依存する実行方法を覚えただけでしょ
だからデータ型の違いとか文字コードとかアルゴリズムとかファイルシステムとか、基本がわかってないから別の言語に手を出せない
923 名前：デフォルトの名無しさん [2025/06/04(水) 06:02:44.09 ID:/hC9EQXc.net]: ここ見てりゃわかるけど、コピペで動いて偉くなったつもりの馬鹿ばっかだから
924 名前：デフォルトの名無しさん [2025/06/04(水) 07:11:35.77 ID:jKpT1SFo.net]: >>903
そうね
それはその通りだと思うわ
だから>>894の言ってる教えている人が
そもそものVBAの基本的な型やら
分岐や演算とかよく使うObjectの扱いとかを
最初に教えていることを切に願うわ
925 名前：デフォルトの名無しさん [2025/06/04(水) 07:34:51.95 ID:BFbm2+Cn.net]: >>900
覚えるのは自分、教わったのに覚えてないようでは学べてない
あと文法は覚えてもアルゴリズムは考えるもの
教わってないからできないって言ってるのは初心者以下な
926 名前：デフォルトの名無しさん [2025/06/04(水) 07:44:26.54 ID:f2CAL3f8.net]: やる必要性がないからやらないけど、Pythonが簡単というならPythonだってわかる気がするし、Ｃ言語がFor eachもない様な単純な言語だというならそれはそれでできそうな気もする（Copilotがあるから尚更）。
ローコードにしろスクラッチにしろそれは同じ。

既製品のソフトウェアを導入するか、VBAで作成するかならどちらが安いと思いますか？
もしVBAの方が安いなら世の中マクロだらけだと思うのです。
927 名前：デフォルトの名無しさん mailto:sage [2025/06/04(水) 08:21:45.39 ID:B6zQeN2g.net]: 誰も責任を負いたくない、率先して矢面に立ちたくない方々だらけだから
928 名前：デフォルトの名無しさん mailto:sage [2025/06/04(水) 08:50:54.30 ID:yTwvetl9.net]: >>907
マクロだらけだよ
それらを管理する人（作成者）が抜けていくから管理不能になる
そういった事象を解決する銀の弾丸としてRPAやノーコードツールが喧伝されたけど、
管理する人がいないって意味では同じなので同じことが繰り返されてる
929 名前：デフォルトの名無しさん mailto:sage [2025/06/04(水) 10:16:27.04 ID:pOYKhOcI.net]: >改行コードが CRLF と LF が混じったお行儀のよろしくないファイル

CSVなら普通にあるな
行儀の問題じゃない
930 名前：デフォルトの名無しさん mailto:sage [2025/06/04(水) 10:36:26.59 ID:yTwvetl9.net]: 行儀だよ
少なくともRFC上においては行末がCRLFであると規定されてる
ファイルの最後のみがどうでもよい
931 名前：デフォルトの名無しさん mailto:sage [2025/06/04(水) 11:22:31.03 ID:ZuFYF6Nx.net]: >>907
どっちが安いって、保守コストまで考えて言ってる？
そりゃ作りっぱなしならVBAのが安上がりだけど、それじゃ後で困るって話をしてるんでしょ
932 名前：デフォルトの名無しさん [2025/06/04(水) 12:21:29.23 ID:pOYKhOcI.net]: LFは行末じゃないよ
933 名前：デフォルトの名無しさん [2025/06/04(水) 14:36:42.79 ID:p0LJP29f.net]: CSVの行改行と項目内改行が使い分けられてないわけが無い
使い分けられてなければ復元不可能になる
934 名前：デフォルトの名無しさん [2025/06/04(水) 14:39:56.22 ID:p0LJP29f.net]: >>914
"あれば可能だが無いの見たことあるのよね…
935 名前：デフォルトの名無しさん mailto:sage [2025/06/04(水) 16:28:29.01 ID:3c6clsCg.net]: 標準の改行コードはOSによって違う
CR、LF、CR+LF、LF+CR、すべてのパターンが実在する
フィールドに改行やコンマを含めたい場合、レコードの区切りと違うコードを割り当てる場合もあれば、クォートなどの記号でフィールドの範囲を明示する場合もある
Windows版Excelはダブルクォートでフィールドの範囲を指定するのが基本
936 名前：デフォルトの名無しさん mailto:sage [2025/06/04(水) 16:30:20.58 ID:3c6clsCg.net]: >>915
それは固定長かセパレータ(コンマ)の数をカウントしてるかどっちかかな
937 名前：デフォルトの名無しさん mailto:sage [2025/06/04(水) 18:23:31.04 ID:RQn0r/Lq.net]: >>916
CR　MacOS（UNIX化前）
LF　UNIX、MacOS（UNIX化後）
CR+LF　Windows、DOS
LF+CR　← なんてOS？
938 名前：デフォルトの名無しさん [2025/06/04(水) 18:39:20.47 ID:f2CAL3f8.net]: >>909
RPAにしろ、ノーコードにしろ、なんにしろ、そうなりますよね。
結局社内でどれだけ学習意欲のある人を揃えるかによりそう。
939 名前：デフォルトの名無しさん mailto:sage [2025/06/04(水) 19:22:49.50 ID:7S8kDVf/.net]: >>913
由来のタイプライターを鑑みたらLFは本来行頭に来るべきものだけど、
現実的には行末
940 名前：デフォルトの名無しさん mailto:sage [2025/06/04(水) 19:55:51.24 ID:frrYvMiA.net]: 頑張ってVBA勉強したところでプログラミングスキルとしては流石に時代遅れ&最底辺だし、
事務員としてスキルアップしたいならツールに入れ込むより業務知識を強化した方がいいし、
組織の中で出世したいなら自分でVBA書くより他人に書かせて継続的にスケールする仕組みを作るべき
そして、めでたく業務効率化できたとして、いず」行き着く先は「脱Excelで属人化解消&業務効率化」でVBA職人は悪者扱いだ
本当にVBAを広めたいのなら、個人の意欲に頼るのではなく、組織として適切なインセンティブを設けることだな
941 名前：デフォルトの名無しさん [2025/06/04(水) 20:02:53.71 ID:f2CAL3f8.net]: >>921
結局、経営者次第だよね
まるでITや業務効率化に興味がないなら何もできない
社員の進言に耳を傾けないなら騙されもするし、せ
942 名前：っかく導入したツールは社員にとって非常に使いづらい []: [ここ壊れてます]
943 名前：デフォルトの名無しさん [2025/06/05(木) 00:29:50.41 ID:Nu77Yg2O.net]: >>921
そっか
あなたはこのスレ卒業だね
944 名前：デフォルトの名無しさん mailto:sage [2025/06/05(木) 08:17:29.72 ID:FSpPjL7A.net]: 四行目までは自虐だろ？　言いたいのは五行目だけって意味と捉えたが、どうなんだ
まあ、ちょっと過剰に反応し過ぎなきらいは否めないが
945 名前：デフォルトの名無しさん mailto:sage [2025/06/05(木) 08:45:28.01 ID:Lp1WVm/I.net]: >>921
組織の中で継続してスケールする仕組み作ったなら属人化してないんだから悪者になる理由なくない？
946 名前：デフォルトの名無しさん mailto:sage [2025/06/05(木) 09:07:39.20 ID:FSpPjL7A.net]: お利口さんに成ろうとしてアタマでっかちに成り過ぎ
大工だっていろんなレベルもあるし色んな層が大工してる
その場しのぎのやっつけ大工も居れば、客の要望を叶えるために青写真から描ける熟練大工もいる
新人大工なら木の特性とか部材同士の相性とかもよく理解しないまま最新部材使って威張ってみたり
ガルバリウムには使ってはいけない釘平気で使って1～2年後にはその部分からサビを拡げる原因作って顰蹙買うし
それでも世の中は回ってる
改善なんか数年で変化してくものだ、という前提を踏まえてれば、それに見合うコストで運用出来てれば御の字
947 名前：デフォルトの名無しさん mailto:sage [2025/06/05(木) 10:31:37.20 ID:1teg7ITB.net]: >>925
コンサルはいわゆるExcelバケツリレーの非効率さを指摘してくるのが常道
VBAで個々人の作業が省力化されてようとフローは変わらないので、実際非合理だから仕方ない
その上で現行業務の調査として関係者全員にヒアリングして介在するワークシートやマクロをつぶさに調査するのにかかる莫大な費用の見積りを提示されると、
もう経営層からはVBA職人なんて非効率な業務を助長するだけの排除すべき敵としか見えなくなるわけよ
948 名前：デフォルトの名無しさん mailto:sage [2025/06/05(木) 10:49:41.34 ID:1teg7ITB.net]: あと、業務を見直してシステム化しようとした際にVBAが悪者になる大きな原因として、
一見簡単な処理に見えて蓋を開けたらたまに複雑怪奇な難攻不落の化け物が出てくる、ってのがある
これ、Excel中心のワークフローをシステム化する際にはよくある話で、スケジュール遅延や予算超過を引き起こすことが多い
そうなるとシステム部門や現場が経営層に頭下げるのは当然として、上場企業だと株主に経営層が謝罪なんてケースもある
ここまでくるともうVBAなんて悪者もいいとこよ
949 名前：デフォルトの名無しさん mailto:sage [2025/06/05(木) 10:55:09.32 ID:Lp1WVm/I.net]: それらは継続してスケールする仕組みを作れていない場合の話じゃないの？
複雑怪奇な難攻不落の化け物って、それスケールできる仕組み作れてなくない？
そもそもの話が噛み合ってないよ
950 名前：デフォルトの名無しさん mailto:sage [2025/06/05(木) 11:09:55.37 ID:1teg7ITB.net]: >>929
隅々まで適切にガバナンスを効かせながら使うならいいんじゃない？
それができるほどの優秀なリーダーがVBAを選ぶかは疑問だけどな
どんな組織でも、人が増えれば馬鹿も増えるし目も行き届かなくなるものだ
951 名前：デフォルトの名無しさん mailto:sage [2025/06/05(木) 11:27:50.93 ID:Z5osrhWk.net]: Excelバケツリレーは業務や人員を追加していく分にはスケールするよ
後から変更するのが困難でありシステム化が前提なら極めて非合理だけ
952 名前：デフォルトの名無しさん [2025/06/05(木) 17:48:57.22 ID:lb5raFks.net]: >>928
IR出すレベルのVBAは確実に一見簡単そうな処理では無いと思います。
そこまでの規模のシステムなら、それこそ何かしらの製品やサービスを導入してください。
953 名前：デフォルトの名無しさん [2025/06/05(木) 17:54:18.01 ID:lb5raFks.net]: ローコードツールや多言語の方がいいのはその通りだと思います
VBAはOfficeしか扱えないのだから
954 名前：デフォルトの名無しさん mailto:sage [2025/06/05(木) 18:20:52.21 ID:uYkJABQ4.net]: > VBAはOfficeしか扱えないのだから
AutoCAD、SOLIDWORKS、・・・
955 名前：デフォルトの名無しさん mailto:sage [2025/06/05(木) 18:33:57.70 ID:Lp1WVm/I.net]: >>933
そうなんだ？知らなかった
956 名前：デフォルトの名無しさん [2025/06/05(木) 20:15:40.58 ID:r0Qxvap7.net]: そもそもパッケージやクラウドサービス使えば、中身は全くわからない
手の出しようがない
自前なら何とかなる
そこをどう捉えるかよ
そもそも基幹システムをVBAで作らないし
（小企業は知らんが）
作っても枝葉よ
957 名前：デフォルトの名無しさん [2025/06/05(木) 20:29:53.99 ID:lb5raFks.net]: >>936
C、CSVで吐き出せればなんとか（震え声）

TYPEを全く使ってこなかったのです。
しかし、この度同じモジュールで多数のstring型の変数を宣言する必要があります。
TYPEデビューしようと思うのですがどうでしょうか？
958 名前：デフォルトの名無しさん [2025/06/05(木) 23:29:45.76 ID:fxlZJI+h.net]: ここで聞かなきゃいけないような馬鹿はやめとけ
959 名前：デフォルトの名無しさん [2025/06/05(木) 23:53:54.23 ID:r0Qxvap7.net]: >>937
type稀にしか使わないので調べたら
CollectionやDictionaryに格納できないと
マジか、知らなかったわ
これに使うならクラスにしたらいいかもね
960 名前：デフォルトの名無しさん mailto:sage [2025/06/05(木) 23:57:55.29 ID:0HOZWCXV.net]: >>920
リアルタイプライターではLFの位置は任意だよ
行頭とか行末とか関係なく、行の途中でも好きな所でline feedは可能
961 名前：デフォルトの名無しさん mailto:sage [2025/06/06(金) 01:00:59.18 ID:gfk/0ela.net]: >>940
CRLFはCRが来る時点でLFが行末じゃなくなるって話
962 名前：デフォルトの名無しさん mailto:sage [2025/06/06(金) 08:39:00.12 ID:cx/TERMm.net]: Enterキーの矢印ってLF-CRだよね
　 ↓
←
CR-LFならこういう向きじゃないとおかしい
　 ←
↓
963 名前：デフォルトの名無しさん mailto:sage [2025/06/06(金) 09:32:23.47 ID:rGtsPzUl.net]: VBAでクラスモジュールを使っていろいろやるのもなしとは言わないけれど、それなら正直JavaとかPythonとかの普通の言語を勉強した方が良いような気もするかな。クラスモジュールって、よくある普通の言語とはちょっと違ったVBA固有の仕様に過ぎないし。
964 名前：デフォルトの名無しさん mailto:sage [2025/06/06(金) 09:44:39.10 ID:4a1tHPn5.net]: >>943
JavaScript様のプロトタイプに喧嘩売る気か
965 名前：デフォルトの名無しさん mailto:sage [2025/06/06(金) 10:07:22.76 ID:NfW6LToZ.net]: クラスモジュールはVBA固有というかCOMの仕様
COMの絡まない処理で無理に使う必要は全く無いし、COMを理解してないと不可解な仕様が多い
966 名前：デフォルトの名無しさん mailto:sage [2025/06/06(金) 10:45:07.80 ID:c6RrnkVo.net]: 他言語でクラス使ってたらクラスモジュール作りたくなる病
967 名前：デフォルトの名無しさん mailto:sage [2025/06/06(金) 11:16:07.96 ID:FmZludjM.net]: COMってどう勉強するんだろ
漠として簡潔な説明がなかなかなく
IUnknownやらなんやら、
968 名前：デフォルトの名無しさん [2025/06/06(金) 11:35:48.78 ID:3VaYoART.net]: InsideCOMを辛抱強く読むのが唯一の道
それ以上の資料もかみくだいた解説書もない
969 名前：デフォルトの名無しさん [2025/06/06(金) 18:33:04.93 ID:lAxJJHmL.net]: っ https://learn.microsoft.com/ja-jp/cpp/mfc/ole-in-mfc?view=msvc-170
https://learn.microsoft.com/ja-jp/windows/win32/learnwin32/module-2--using-com-in-your-windows-program
970 名前：デフォルトの名無しさん mailto:sage [2025/06/06(金) 18:52:09.71 ID:4a1tHPn5.net]: COMの解説
https://learn.microsoft.com/ja-jp/windows/win32/com/component-object-model--com--portal
971 名前：デフォルトの名無しさん [2025/06/06(金) 19:13:06.68 ID:fJneNGsq.net]: >>939
TYPEは他のオブジェクトに引き渡せないとは聞いていました

結局ディクショナリーで登録しました
972 名前：デフォルトの名無しさん [2025/06/06(金) 20:17:15.03 ID:tc8PGxli.net]: >>951
ディクショナリだとインテリ使えんけど、まあそれでいいなら
973 名前：デフォルトの名無しさん mailto:sage [2025/06/06(金) 20:34:48.52 ID:2QLQ97JJ.net]: たまにいる勘違い人間　「自分、CやJavaできるから低レベルのVBA（笑）なんてすぐマスターできるし」とか豪語するヤツ
974 名前：デフォルトの名無しさん [2025/06/06(金) 21:03:29.16 ID:fJneNGsq.net]: 私はファイルパスやフォルダパスの取得や設定、ファイル名やフォルダ名の作成に冗長なコードを書いている気がしてならないのですが、何かいいコードはないでしょうか？
975 名前：897 [2025/06/06(金) 21:52:26.62 ID:CfJ/EVmD.net]: Typeの代わりにRecordSet使ったりする Field設定いちいちするの面倒だけど
Filterとか使えるしCopyFromRecorSetとかできるし
976 名前：デフォルトの名無しさん [2025/06/07(土) 01:20:40.40 ID:hTJ86lb5.net]: >>954
昔はdirやnameだったけど、今はfso使ってればいいんじゃね
977 名前：デフォルトの名無しさん mailto:sage [2025/06/07(土) 04:19:49.26 ID:GCIZhVy1.net]: >>954
その程度の処理なら、冗長で困ることなんかほとんどないよ
自分に理解できる形で書くのが、長い目で見れば一番保守性が高いんだから
ちゃんと
978 名前：動いてる物を直そうとして壊すことも多いから、そっとしとけ []: [ここ壊れてます]
979 名前：デフォルトの名無しさん mailto:sage [2025/06/07(土) 07:03:08.54 ID:QQtzQfGp.net]: >>954
末尾の円マーク有無で毎回処理を分岐させてるのならBuildPathを使え
980 名前：デフォルトの名無しさん mailto:sage [2025/06/07(土) 09:36:28.54 ID:zGsllLLl.net]: >>954
その冗長なコードとやらを貼ってみれば何が悪いか指摘してもらえると思うぞ
981 名前：デフォルトの名無しさん mailto:sage [2025/06/07(土) 10:26:27.74 ID:pGBLBsE0.net]: .netの文字列操作ライブラリとか見たらいたせりつくせりで贅沢過ぎるわ！って怒り出しそう
982 名前：デフォルトの名無しさん mailto:sage [2025/06/07(土) 12:33:58.98 ID:NHsDgqoS.net]: タスクバーのアイコンを取得したくて、下記のサイトのC#をVBAに移植しても、Excelがハングアップする
C#ではちゃんと動く
なぜ？

Dim pUIAutomation As New CUIAutomation
Dim windowElementTray As IUIAutomationElement
Set windowElementTray = pUIAutomation.ElementFromHandle(ByVal hTaskBar)
↓

https://learn.microsoft.com/en-us/answers/questions/115440/how-to-find-taskbar-button-screen-rect-of-a-window
983 名前：デフォルトの名無しさん mailto:sage [2025/06/07(土) 13:25:32.25 ID:QQtzQfGp.net]: https://qiita.com/Mrs_P/items/5c8070fd880b9deb284a
↑ここの人がVBAで似たようなことやってますね
GetReferenceElementという関数の中に >>961 と同等のコードが書かれているから
hTaskBarの値がおかしいんじゃないの？

これでブラウザの自動操縦できるのかぁ　便利そうだな
984 名前：デフォルトの名無しさん mailto:sage [2025/06/07(土) 13:32:49.76 ID:NHsDgqoS.net]: >>962
このサイトも見た
hTaskBarの値は、C#版とVBA版で同じ値だったので、正しいと思う。

Chromeのウィンドウハンドルでやった場合は、ちゃんと動いた
985 名前：デフォルトの名無しさん mailto:sage [2025/06/07(土) 13:58:10.47 ID:QQtzQfGp.net]: これで最後の行まで動いたよ

Dim hWndTray As LongPtr: hWndTray = FindWindow("Shell_TrayWnd", vbNullString)
Dim hWndRebar As LongPtr: hWndRebar = FindWindowEx(hWndTray, 0, "ReBarWindow32", vbNullString)
Dim hWndMSTaskSwWClass As LongPtr: hWndMSTaskSwWClass = FindWindowEx(hWndRebar, 0, "MSTaskSwWClass", vbNullString)
Dim hWndMSTaskListWClass As LongPtr: hWndMSTaskListWClass = FindWindowEx(hWndMSTaskSwWClass, 0, "MSTaskListWClass", vbNullString)

Dim pUIAutomation As New CUIAutomation
Dim windowElementTray As IUIAutomationElement
Set windowElementTray = pUIAutomation.ElementFromHandle(ByVal hWndMSTaskListWClass)
MsgBox "終わり"
986 名前：デフォルトの名無しさん mailto:sage [2025/06/07(土) 14:07:56.34 ID:QQtzQfGp.net]: もうひとつの方もこれで動いた

Dim hWndTray As LongPtr: hWndTray = FindWindow("Shell_TrayWnd", vbNullString0)
Dim hWndTrayNotify As LongPtr: hWndTrayNotify = FindWindowEx(hWndTray, 0, "TrayNotifyWnd", vbNullString)
Dim hWndSysPager As LongPtr: hWndSysPager = FindWindowEx(hWndTrayNotify, 0, "SysPager", vbNullString)
Dim hWndToolbar As LongPtr: hWndToolbar = FindWindowEx(hWndSysPager, 0, "ToolbarWindow32", vbNullString)

Dim pUIAutomation As New CUIAutomation
Dim windowElementTray As IUIAutomationElement
Set windowElementTray = pUIAutomation.ElementFromHandle(ByVal hWndToolbar)
MsgBox "終わり"
987 名前：デフォルトの名無しさん mailto:sage [2025/06/07(土) 15:15:58.64 ID:NHsDgqoS.net]: >>965
あ、
Windows 11だと動かないな…

>>964のタスクバーのボタンは動いたけど、
>>965のトレイアイコンは、最後の1行で、やっぱExcelごとハングアップで強制終了するわ
（Set windowElementTray = pUIAutomation.ElementFromHandle(ByVal hWndToolbar)）

C#版は、>>965のトレイアイコンもちゃんと動くんだけど…
988 名前：デフォルトの名無しさん [2025/06/07(土) 16:04:31.64 ID:I++ihMYF.net]: >>959
例えばファイルシステムで
フォルダ1の中から指定の文字列を含むフォルダを探して
見つかったフォルダのパスを取得して
さらにそのフォルダの中から指定の文字列を含むフォルダを探して
見つかったフォルダのパスを取得して
そのフォルダの中に指定のフォルダがあるか確認してなかった場合はフォルダを作成するコードです
2〜3回同じ様な事を繰り返しているので冗長な気がしてなりません
989 名前：デフォルトの名無しさん mailto:sage [2025/06/07(土) 16:09:10.87 ID:WTKqP7i+.net]: >>967
それそのままAIに投げたら一瞬で書いてくれるよ
990 名前：947 mailto:sage [2025/06/07(土) 16:28:51.74 ID:ADmBeqPj.net]: >>948, 949, 950
ありがとうございます

マイクロソフトのサイトは機械翻訳がどうも…、と敬遠していましたが、参照してみます
それから洋書、かぁ…
991 名前：デフォルトの名無しさん [2025/06/07(土) 17:36:52.86 ID:hTJ86lb5.net]: >>967
それを平で書いてるなら冗長
再帰処理でやるのがあるべき姿
まずは指定フォルダ下の全フォルダを出力する再帰処理書いてみ
（全てが再帰処理ではない。呼び出し元処理と再帰処理の2つ書くことになる。念の為）
992 名前：デフォルトの名無しさん mailto:sage [2025/06/07(土) 17:47:31.26 ID:QQtzQfGp.net]: >>966
Windows11はタスクバーに使われてるクラスが変わってるらしいから関係あるかもよ
https://www.autohotkey.com/boards/viewtopic.php?style=19&t=108539
AHKにクラス名を調べるツールがついてたような
993 名前：デフォルトの名無しさん mailto:sage [2025/06/07(土) 17:55:49.45 ID:nK7i38Q0.net]: >>967
こんなのかな
＞フォルダ1(Path1)の中から指定の文字列を含むフォルダ(Pattern1)を探して見つかったフォルダのパス(Path2)を取得する

Path2 = GetPatternPath(Path1, Pattern1) As String

＞さらにそのフォルダ(Path2)の中から指定の文字列(Pattern2)を含むフォルダを探して
＞見つかったフォルダのパス(Path3)を取得する

Path3 = FindPatternPath(Path2, Pattern2) As String

＞そのフォルダ(Path3)の中に指定のフォルダ(Pattern3)があるか確認してなかった場合はフォルダを作成するコードです

result = CheckPatternPath(Path3, Pattern3) As Boolean
If result Then
Call MakePatternPath(Path3, Pattern3)
End If
あとは関数の中身を書くだけ
994 名前：デフォルトの名無しさん mailto:sage [2025/06/07(土) 18:21:21.32 ID:QQtzQfGp.net]: >>967
ShiteiNoMojiretsu = "指定の文字列"
Shitei = "指定"
Path = "C:\フォルダ1"
Path = Path & "\" & Dir(Path & "\*" & ShiteiNoMojiretsu & "*", vbDirectory)
Path = Path & "\" & Dir(Path & "\*" & ShiteiNoMojiretsu & "*", vbDirectory)
If Dir(Path & "\" & Shitei, vbDirectory) = "" Then
MkDir Path & "\" & Shitei
End If
995 名前：デフォルトの名無しさん mailto:sage [2025/06/07(土) 18:49:45.58 ID:NHsDgqoS.net]: >>971
んー

でも、C#ではちゃんと動くので、VBA側の問題な気が…
クラスが変わってるのも知ってる。
996 名前：デフォルトの名無しさん [2025/06/07(土) 22:19:45.07 ID:I++ihMYF.net]: >>970
やっぱりそうですよね
再帰処理を頑張って覚えます
997 名前：デフォルトの名無しさん [2025/06/08(日) 02:30:07.18 ID:bVJzS0fI.net]: >>975
そやね
たったこれだけでフォルダ階層どこまでも潜れるのかと感動すると思う
（かもしれないw）
フォルダ再帰ができたら各全ファイル名列挙も再帰処理の中に追加しとき
いつか使う時が来る
998 名前：デフォルトの名無しさん [2025/06/08(日) 03:49:16.50 ID:kACuu3za.net]: こんなので偉そうにする馬鹿
999 名前：デフォルトの名無しさん [2025/06/08(日) 10:13:48.24 ID:szoadHGe.net]: >>977
わざわざ「私バカです」って手を挙げて出てきてどうした
1000 名前：897 [2025/06/08(日) 10:59:09.81 ID:BE7fUg1L.net]: >>976
昔だったら stack overflowとか心配してたけど今はあまり気にしなくて良さそうだね
1001 名前：デフォルトの名無しさん mailto:sage [2025/06/08(日) 11:01:04.08 ID:j4jIPbHU.net]: .netのAPIラッパー関数もソース見ると大抵泥臭い事やってんのよね
1002 名前：デフォルトの名無しさん mailto:sage [2025/06/08(日) 11:03:50.75 ID:4qkaLQIW.net]: スタック領域は昔からほとんど変わってないから気にする必要はある
1003 名前：デフォルトの名無しさん mailto:sage [2025/06/08(日) 11:07:37.10 ID:j4jIPbHU.net]: Excel VBA 質問スレ Part83
https://mevius.5ch.net/test/read.cgi/tech/1749348402/
1004 名前：897 [2025/06/08(日) 11:11:01.02 ID:BE7fUg1L.net]: >>982
乙彼
>>981
共有サーバのアドレス変わった時、全フォルダの奥までショートカット探して書き換えたけど
何ともなかったからそんなもんだと思ってた
1005 名前：デフォルトの名無しさん [2025/06/08(日) 12:43:48.49 ID:gXHyLlYW.net]: >>976
再帰処理のコード自体はわかるのですが、If文で再帰処理をする、しないまでは考えてなかったです
1006 名前：デフォルトの名無しさん [2025/06/08(日) 14:43:09.01 ID:bVJzS0fI.net]: >>984
if?
途中から折り返す時のこと?
それなら必要
1007 名前：デフォルトの名無しさん mailto:sage [2025/06/08(日) 16:28:21.07 ID:46RFXcFD.net]: 2階層しか掘らないのにわざわざ再帰処理にするかなぁ
1008 名前：デフォルトの名無しさん [2025/06/08(日) 16:56:20.91 ID:DI4VVn6/.net]: >>978
構ってもらうのも大変なんだぞ
察してあげなきゃ
1009 名前：デフォルトの名無しさん mailto:sage [2025/06/08(日) 17:17:56.33 ID:8915HtnW.net]: >>983
スタックさせたまま全ファイル走査なんてしないだろうから、
ファイルの数何個あろうが同じでは？
1010 名前：デフォルトの名無しさん mailto:sage [2025/06/08(日) 19:19:30.01 ID:4BwIalv3.net]: ソース的に簡単にするなら全ファイルのフルパス取って正規表現だな
1011 名前：デフォルトの名無しさん [2025/06/09(月) 07:30:24.52 ID:UIpY0QNU.net]: フォルダのショートカットファイルがある場合の動作確認はした方がいいぞ
1012 名前：デフォルトの名無しさん mailto:sage [2025/06/09(月) 08:19:56.01 ID:EHQrQQev.net]: シンボリックリンクとジャンクションとハードリンクも動作確認した方がいいぞ
パスが255文字超えた場合も動作確認した方がいいぞ
1013 名前：デフォルトの名無しさん [2025/06/10(火) 20:52:05.68 ID:RKOrDLCJ.net]: VBAのfor eachやfor nextでif文を使用して条件に合わなかった時にnext するにはどうしたらいいでしょうか？
1014 名前：デフォルトの名無しさん mailto:sage [2025/06/10(火) 21:05:38.20 ID:94f6xD2K.net]: forの中をDo-Loopで囲んで脱出したい時はExit Doする
1015 名前：デフォルトの名無しさん mailto:sage [2025/06/10(火) 21:05:45.22 ID:zK5HBYNC.net]: >>992
VBAでFor EachやFor Nextループ中に条件に合わない場合に次のループに進むには、If文を使い、条件が合致した場合のみ処理を記述します。
' For Each の例
For Each item In collection
If 条件 Then
' 条件に合った場合の処理をここに書く
End If
Next item

' For Next の例
For i = 1 To 10
If 条件 Then
' 条件に合った場合の処理をここに書く
End If
Next i

Elseブロックを記述しないことで、条件が合わない場合は自動的に次のループへ進みます。
1016 名前：デフォルトの名無しさん mailto:sage [2025/06/10(火) 21:17:29.25 ID:KLsW+s5l.net]: next の手前にgoto
1017 名前：デフォルトの名無しさん [2025/06/10(火) 21:35:49.89 ID:chtn5cci.net]: gotoでnext前のラベルに飛ぶ。ラベルは
CONTINUE_1:
など
1018 名前：897 [2025/06/10(火) 21:41:20.79 ID:4RtejL7X.net]: C言語の呪いから解けずにGoTo使いにくい俺
1019 名前：デフォルトの名無しさん mailto:sage [2025/06/10(火) 21:55:14.34 ID:qJv58WHL.net]: 無理して使うもんじゃない
そもそもifで処理せずにnextさせたいなら、
逆にifで処理させれば条件に当てはまらなければnextになるんだし
1020 名前：デフォルトの名無しさん [2025/06/10(火) 21:57:34.45 ID:YNq6kTxr.net]: 馬鹿ばっかで呆れるスレ
1021 名前：デフォルトの名無しさん [2025/06/10(火) 21:58:07.04 ID:YNq6kTxr.net]: 馬鹿ばっか
1022 名前：1001 [Over 1000 Thread.net]: このスレッドは１０００を超えました。
新しいスレッドを立ててください。
life time: 137日 18時間 26分 52秒
1023 名前：過去ログ ★ [[過去ログ]]: ■ このスレッドは過去ログ倉庫に格納されています

[ 新着レスの取得/表示 (agate) ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef