Excel VBA 質問スレ Part82

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/ 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