Excel VBA 質問スレ Part74

1 名前：デフォルトの名無しさん mailto:sage [2021/12/20(月) 01:40:59.22 ID:jnlr9GaR0.net] !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 449 名前：デフォルトの名無しさん [2022/01/18(火) 15:40:58.30 ID:CJu6lFHP0.net] >>445 聞いたことはないけど、合ってもおかしくないと思う OSや別アプリと並行処理させ、並行処理が終わってないままvbaだけ処理すすめる・・・ことで落ちていると思う DoEventsで解決するはずなんだけど、DoEvents自体も挙動がどこかおかしい。 多分だけど、 applicaion.calcurate=false とか高速化入れてない？あれを設定しなければ落ちなくなる可能性があると思う 450 名前：デフォルトの名無しさん [2022/01/18(火) 18:06:02.41 ID:2NZPk0PK0.net] フォーカスがなくなって裏で動いているのに気づかなかったってだけじゃね 451 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 02:44:48.77 ID:J6vWAZC60.net] >>94 自己レスだけど検証してる動画があった https://youtu.be/FSS94HnW3Dk 452 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 08:14:43.10 ID:SKsqr1XrM.net] >>448 見たけど画面描画してるからその分遅くなってることを考慮してない、やり直し、と言いたい。 まあそれでも結論は変わらんと思うが。 というか、たぶん結論有りきで動いてるよなこの人。 453 名前：94 mailto:sage [2022/01/19(水) 12:40:48.58 ID:U3XJgxPOM.net] >>449 画面更新止めるコマンドもあるので別に気にはしてないですが、エクセルの関数が実数になるまでそれなりに、時間かかりますよね まぁ、でも�Aの方法（外部リンク参照）で作り変えて行こうかと思います。 454 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 16:06:12.24 ID:wLv0/dLh0.net] 取得したデータをどう使いたいのかにもよるけど 参照するExcelブックの数が増減する場合はVBA使って特定のフォルダにぶち込まれたExcelブックを全部取得するようにすると楽 個人で使う分にはこれでいいが、仕事などで自分以外の社員が触る機会がある場合は、周りのスキルを考えてVBAを使わず数式で参照させて済ますのも良いと思う だが、環境にもよるが、外部参照を含む数式を書いたExcelブックを開いたまま参照先のExcelブックを開くと参照エラー(#REF!)になる場合があるので注意 455 名前：デフォルトの名無しさん [2022/01/19(水) 16:34:49.01 ID:x+9vZ6k00.net] MSGBOXが表示された時、必ず最前面にする方法ってありますか？ alt+tabでタスクを切り替えないとMSGBOXが表示されない事があります 処理が止まっているのか進んでるのか分からなくて、困ってしまう 456 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 17:15:49.65 ID:O8ktC4tSM.net] >>452 VBAのMsgBoxでは不可能 Win32APIのMessageBoxAをTopMost=Trueに設定して呼び出すしかない VBAからMessageBoxAを呼び出す方法はぐぐればすぐ出てくる 457 名前：デフォルトの名無しさん [2022/01/19(水) 17:21:36.62 ID:ZRK6Alb6M.net] そんなフラグ効果あんのか？ 458 名前：デフォルトの名無しさん [2022/01/19(水) 17:56:37.68 ID:x+9vZ6k00.net] >>453 ありがとうございます、そういう方法があったのですね。 処理完了のメッセージボックス、そちらにしていきます。助かりました。 459 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 18:35:22.31 ID:DmIv8IzU0.net] いちおうMsgBoxでシステムモーダルの指定があるにはあるんだけどな 期待通りに動かんことが多い いちアプリケーションがシステム全体にかかわる動作をするなって風潮だからな 460 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 18:45:15.60 ID:F2K8Y8lc0.net] >>451 他ブックへの参照はgotoより使いたくないかも 461 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 19:04:03.23 ID:DmIv8IzU0.net] >>457 複数のブックで構成されてるような資料だとまあなくはないかと しかしリンクとコピーが比較対象になるのが理解できん 速度とかで選択するようなものじゃないだろ 462 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 19:59:02.99 ID:wLv0/dLh0.net] >>457 わかるけど、それはプログラミングの知識がある人が職場に当たり前にいるという前提の話 まったくVBAを知らない社員に一から教え込むよりまし ていうか個人的には、Excelブックを100個も参照させるようなのが仕事上の事情なら、まずはその運用を見直した方がいいと思うけど 463 名前：94 mailto:sage [2022/01/19(水) 20:45:45.55 ID:U3XJgxPOM.net] 他ブックの参照がなぜ駄目なのかさっぱりわからないです。。教えて下さい。 参照後の処理の内容になにか前提条件があるのですか？ 自分の前提は、Excelブックを参照、みんな同じExcelバージョン、同じフォーマットを使うです 464 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 20:58:42.62 ID:B4PAoBE9M.net] リンク切れで機能しないゴミとなったブックをお目にかかったことがないなら幸せなことだな 465 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 22:01:47.23 ID:K9C4LDWb0.net] エクセルは詳しくないけど、「存在しない可能性すらある グローバル変数」ってこと？ ちょっと学んで、「どこからでもセルの書き換え効くの？ グローバル変数地獄じゃない？」と思ったけど、もっと 大規模に起こり得るってこと？ 466 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 22:31:45.36 ID:wLv0/dLh0.net] >>460 フォルダ名（参照・被参照のExcelブックが別々のフォルダにある場合）、ファイル名、シート名、（使用しているなら）テーブル名、あとセルの配置 どれか一つでも変えるとリンク切れになるので、できればあまり使いたくない ただ、先にも書いたけど状況次第ではやむを得ないこともあるし、もしそのあたりのリスクを払拭できるなら選択肢としてはあるかなと思って書いたけど、 もし、そういうことをそれほど把握する必要がない程度に重要性が高くなく、かつパフォーマンス（速度）重視の話なのであれば、あまり気にしなくていい でも、これが仕事で何度も使用するような類のものの話だとすれば、パフォーマンスを考える前に運用をよく考えた方がいい 例えば、ファイル数（100個）や参照セル数（ブック1つにつき60セル）が固定で、シートやブックなんかはパス付で保護かけて構造を弄れないようにして、できたらファイル名なんかもアクセス権を設定して変更できないようにするか、ファイルを扱う人に絶対変えないようにしっかり申し送りするとか もしくは構造を弄られたとしてもすぐ元どおりにできるぐらいのシンプルな作り、あるいは壊されてもすぐ復元できるようにしておくとか どんな状況なのかは分からないけど、何を優先すべきなのかをよく整理した方がいい、という話になると思う 467 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 22:43:22.55 ID:zGHKrub60.net] >>460 親からひ孫世代まで参照が繋がってるファイル群なんてものが存在した 468 名前：デフォルトの名無しさん mailto:sage [2022/01/19(水) 22:52:36.39 ID:TxiQul+S0.net] >>464 参照繫ぐくらいなら、ファイルパスもセルに記入して上書きさせるように実装するわ。それくらいリンクは嫌だわ。 469 名前：94 mailto:sage [2022/01/19(水) 23:01:56.42 ID:J6vWAZC60.net] なるほど。理解出来ました。 ありがとうございます。 運用的には VBAでファイル名算出する シート名が違っていたり、フォーマットズレしていたら検出したいチェックツールにしたいので問題なさそうです。 参照エラーがでたら壊した人のところに殴り込みに行くシステムですね。 470 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 00:15:58.14 ID:gV+Fwxtn0.net] まあ、まともに作ったファイルサーバなら shadow copy くらいは残ってるだろうがね。 471 名前：デフォルトの名無しさん [2022/01/20(木) 06:56:43.44 ID:AmtKyR6La.net] 無理して変な機能追加するから 後で見返した時にワケわからなくなる 472 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 08:28:58.94 ID:mCK9tQrM0.net] >>468 それはみんなそう なので少しでもわかりやすいように書いておくことが必要 慣れてないうちはコメント付けまくるのもありだと思う これは何の変数かとか、大きく何をしているか、この行は何をしているか書いとけばリファクタリングするのにも楽になる 473 名前：デフォルトの名無しさん [2022/01/20(木) 08:52:11.33 ID:aoz8cIff0.net] >>466 毎日カチコミになるのが目に見えているゾ 474 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 09:39:15.12 ID:+AoyW20h0.net] どうしても100個のファイルに分けなければならないのか 一つのブックに100シート突っ込むことはできないのか とか考えたりはするかも 475 名前：デフォルトの名無しさん [2022/01/20(木) 12:41:49.38 ID:NS2MNDvFr.net] ファイルコピーか、シートのコピーで バックアップ取っておくとかは考えるかも。 476 名前：デフォルトの名無しさん [2022/01/20(木) 12:47:52.34 ID:aoz8cIff0.net] 取引先一件につき、ファイル一つ それをマクロで集計 最初30個ぐらいだったファイルが、 会社が成長して、100ファイルになったことはあったな フォーマットやファイルは全て自分で管理してたから問題なかったけど、 今も大丈夫かなぁ あれ手で計算するのは大変すぎ 477 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 13:46:34.45 ID:BPf7HX0l0.net] 1ファイル45個のクエリーを含む同様のファイルが 13地点×6ヶ年分＝78個あって、 これをシーケンシャルに1つずつ、For Nextで更新するよう組んだ。 最初の2ヶ月目くらいまでは7時間くらいで更新出来てたが、 3ヶ月目以降は毎回どこかの、 　Set tblQ = ThisWorkbook.Worksheets(ws).ListObjects(q) と、ワークシート名とクエリー名を変数に代入するところでコケる・・・ その都度、コードを削除していったん保存、 再度貼り付けてデバッグし続行させる 沼にはまった。 478 名前：デフォルトの名無しさん [2022/01/20(木) 13:49:08.24 ID:aoz8cIff0.net] >>474 そういう時は、ファイル保存を挟むと良い エクセルは立ち上げっぱなしだと、どんどんテンポラリファイルが巨大化する 保存すると、それが一旦整理される 479 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 13:57:12.27 ID:BPf7HX0l0.net] >>475 アドバイス、ありがとう。 一応、開く78個のファイルは1個ずつ保存して閉じているけど、 大元のVBAを持つbookをその都度保存せよ ということかしら？ そういや、プロジェクトエクスプローラーに 既に処理が終わって閉じたbookのファイル名が残って どんどん増えて行ったような・・・ こっちは1ファイル処理後ごとに上書き保存とかの処理は入れてなかった。 480 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 13:57:52.65 ID:HwD0Q83s0.net] なんで全部Excelでやろうとするかね　ボリューム見て将来鑑みて、どっかの時点で「これはパンクする」 ってぇ判断をしなかったツケだろ　経費抑制？　むしろ無駄な経費が膨大に掛かってるのには目を瞑るんだ　へー 481 名前：デフォルトの名無しさん [2022/01/20(木) 14:17:24.56 ID:gV+Fwxtn0.net] >>474 変数は毎処理ごとに開放してる？ 482 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 14:28:11.68 ID:mCK9tQrM0.net] >>477 本人はやれる中で頑張ってるんだと思う、きっと でも確かにそれはAccessのほうがってことはあるよね VBAできる人なら覚えるのも簡単だと思うし 483 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 14:32:45.01 ID:bfB7zVPYM.net] kintoneとかでいいでしょ 484 名前：デフォルトの名無しさん [2022/01/20(木) 14:40:11.29 ID:aoz8cIff0.net] >>476 ＞一応、開く78個のファイルは1個ずつ保存して閉じているけど、 もし、 set foo = workbook.open~~~) みたいにしてたら、最後に set foo = nothing を挟まないと、ずっとメモリ残り続けることになると思う。>478さんの指摘がこれ ＞大元のVBAを持つbookをその都度保存せよ これはかなりオススメ。 コードの内容がわかって無くても、エクセルファイルを保存すると大体うまくいく ※保存時に色々とうまくやってくれてるっぽい >>477 それ言い出すと全企業が大企業並の設備を整える必要がある ある程度拡張性を備えた上で、「5年後は別システムに移行しているだろう」のような判断ができればいいね 基本、要素（営業や取引先）がドカドカ増えないなあ、システムは特に移行しなくていいと思う。 多少使いにくくても、ノウハウが切り捨てられる方が惜しい 485 名前：デフォルトの名無しさん [2022/01/20(木) 14:41:43.21 ID:aoz8cIff0.net] >>480 使ってから言えよ あれ柔軟性が全くない 柔軟性の必要がない、タピオカ屋さん、ワッフル屋さんなんかにはドンピシャだろうね 486 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 14:41:48.98 ID:BPf7HX0l0.net] >>478 してなくて、ぼんやり「まずはこのあたりをやらなきゃアカンのかなぁ・・・」とは思って 487 名前：た。 次に更新する月初めまでにやりまする。 大元のbookで、 "For i To k" より後の、 "Next i" までに使った変数全てについて 　Set 変数名 = Nothing を "Next i" の直前に入れる感じで？ [] [ここ壊れてます] 488 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 14:48:42.80 ID:bfB7zVPYM.net] >>482 本当にその柔軟性必要？勝手にそう思い込んでるだけじゃない？ 方眼紙に自由自在にレイアウトできなくても情報は伝わるんだぞ 489 名前：デフォルトの名無しさん [2022/01/20(木) 14:49:07.12 ID:gV+Fwxtn0.net] 一つのプロシージャで全処理するより Class とか、Function 使う方が良いかもね。 490 名前：デフォルトの名無しさん [2022/01/20(木) 15:07:43.50 ID:aoz8cIff0.net] >>484 必要 もちろん100社で100通りじゃない。100社で10通りぐらい。今後も増えるだろう この柔軟性は、エクセルだとかなり受け入れやすい >>485 正直、なるだけ1プロシージャは維持したほうが良いと思う エクセルVBAは他の言語と違って、あまりにファイルへの依存性が強すぎる 491 名前：デフォルトの名無しさん [2022/01/20(木) 15:16:04.35 ID:gV+Fwxtn0.net] ふーん。 オレなら処理毎にFunction プロシージャに引数で渡してあげて ループ処理終わったら、変数開放するけどな。 変に長ったらしいのより、そっちの方が解読性がよくなる。 492 名前：デフォルトの名無しさん [2022/01/20(木) 15:19:27.67 ID:n5KSDES60.net] >>481 お前みたいな奴がメンテできないシステムを作り出すのだぞ 493 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 15:20:13.56 ID:gV+Fwxtn0.net] まあ、オレはAccess VBA専門なので Excel VBA は遠い記憶ですが… シンプル・イズ・ベスト。 494 名前：デフォルトの名無しさん [2022/01/20(木) 15:20:30.61 ID:/dOetE+CM.net] バカがやると引数地獄かグローバル地獄になんだよ 495 名前：デフォルトの名無しさん [2022/01/20(木) 15:21:57.99 ID:aoz8cIff0.net] >>488 言いたい事は分かるんだけど、エクセルはOSの依存が妙に強くて OSの機能借りないとキツイ部分が多々ある 未だにMSGBOXがどうしようもなかった 496 名前：デフォルトの名無しさん [2022/01/20(木) 15:22:53.50 ID:aoz8cIff0.net] >>490 なるほどｗ 497 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 15:24:46.85 ID:gV+Fwxtn0.net] >>490 初心者はね。 最近は設計工程ばかりで、コーディングもしてないから 下流ビギナーの思考はわからんけど。 498 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 15:38:37.39 ID:gV+Fwxtn0.net] 確かにグローバル変数は使わない方が良い。 ホーム・プロシージャからFunction へ飛ばして 処理させてあげて 戻り値を次のFunctionへ… って感じで作ると、テスト工程の時に楽になる。 デッカいシステムを組むとそっちの方が絶対楽だし 改修の時も、解読に困らないからね。 499 名前：デフォルトの名無しさん [2022/01/20(木) 15:56:22.20 ID:n5KSDES60.net] >>491 いや、お前の能力が足りないだけだぞ 500 名前：デフォルトの名無しさん [2022/01/20(木) 16:21:54.83 ID:aoz8cIff0.net] エクセルの場合は、エクセルという超グローバルオブジェクトがある それをメインに据えれば良いと思うけどな 501 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 17:01:00.66 ID:ovHTHlPT0.net] ホント、マクロは組む人によってその人のカラーや癖が出るとは言ったもんだね。 502 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 17:03:05.54 ID:GNfzU0ds0.net] 変数を日本語というか漢字とか使うのって邪道？ 行とか列とかそのまま漢字文字で使ってるんだけど 503 名前：デフォルトの名無しさん [2022/01/20(木) 17:03:18.69 ID:aoz8cIff0.net] >>497 んなもんプログラムならどれも一緒 エクセルは一段回上のファイルがあって、目に付きやすいだけ 504 名前：デフォルトの名無しさん [2022/01/20(木) 17:06:10.63 ID:aoz8cIff0.net] >>498 2buyte文字ね 全然良い、というかむしろそっちの方が読みやすい 気をつけるのは、海外の漢字や絵文字 上でも出てたけど、半角ポンドなどエラーが起こりやすい文字がある 505 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 17:34:30.16 ID:BPf7HX0l0.net] >>498 漢字をマクロ内で使って、 この5〜6年くらいの間で知ってるだけで少なくとも2回、 MSのupdateで動かなくなってた記憶があるので それに対処出来ればOKかと。 Rangeで引っ張る定義名とかsheet名は 特殊な記号は避けて漢字使っちゃってる。 506 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 17:50:55.00 ID:HwD0Q83s0.net] 日本語(漢字)でもいいんだ　へー　　　っていうレベルのが真似して安易に使い出したらカオス 他人事だから後は野となれ山となれ　　っていう発想としか思えない 日本語OSが出来てからやれよ　とは思う　　米語OS使わざるを得ないなら粛々と従ってろや　と 　ま、だからってローマ字に換えて30文字ぐらいのモジュールが40ヶぐらい並んでるのを見た時には一時間ぐらい気絶したけど getsumatsukoushinn() nenjikoushintokuisakibetuhinmokubetsu()　　　あのさ、、、　これにOK出したの誰よ？ 507 名前：デフォルトの名無しさん [2022/01/20(木) 17:51:21.68 ID:aoz8cIff0.net] そういや何年か前、accessVBAだっけ？2byte文字あると全部エラーになるみたいなのあったな 508 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 18:02:49.63 ID:mCK9tQrM0.net] >>502 ワロス 509 名前：デフォルトの名無しさん [2022/01/20(木) 18:26:03.22 ID:aoz8cIff0.net] >>502 こういうの見るとoption explicit必須何やなって思わされる 510 名前：デフォルトの名無しさん [2022/01/20(木) 18:30:19.80 ID:NS2MNDvFr.net] 開発現場のローカルルールは 2バイト文字禁止が普通だけどね。 色んな環境で使うことを想定したら 日本語とかありえん。 コーディングの時は日本語だけど、 最終的に全置換で英語表記に変える。 511 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 20:06:44.42 ID:KxaVQnjRM.net] > 色んな環境で使うことを想定したら Excel VBA でそんなことを気にしないといけない状況って相当珍しいだろw 512 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 20:09:21.62 ID:WDmMC3D+M.net] 俺が前に行ってた派遣先ではC#で漢字の変数名や関数名とか自由に使ってたわ 業界ではそれなりに知られた老舗のソフトメーカーなんだけど まあ、そういう職場もあるってことで 513 名前：デフォルトの名無しさん mailto:sage [2022/01/20(木) 20:34:21.90 ID:NL1fx3HA0.net] 日本語以外での展開を考えてるならまあ２バイト文字禁止で良いんじゃね 日本語環境で開発してる段階で漢字禁止とかあんまり見ないけどな ただ、メソッド名に日本語は過去にえらいことになった例があるからなぁ... 514 名前：デフォルトの名無しさん [2022/01/20(木) 23:42:09.41 ID:n5KSDES60.net] ID:aoz8cIff0 いつもの馬鹿でしたとさ 515 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 02:47:14.61 ID:XETJK2Tn0.net] 派遣てなになに？ VBA技術者の派遣とかあるんだ？ 516 名前：デフォルトの名無しさん [2022/01/21(金) 03:05:10.67 ID:iDAtgXvmr.net] 派遣業（ピンハネ屋）を禁止にすれば 日本人の給料は上がります。 517 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 05:15:31.24 ID:XETJK2Tn0.net] 派遣て確か専門職だからめちゃめちゃ稼げると聞いたけど、どうなの？？ 那須は出ないとは聞いたけど時給はめっちゃ高いと聞いたものでして。 518 名前：デフォルトの名無しさん [2022/01/21(金) 07:53:02.69 ID:U4E8wi5/0.net] >>513 1500-2000円ぐらいだったかな。ただもう募集自体がほとんどない。 ほぼ全てローカル環境での作業のため、リモートも出来ない >>512 下がる 519 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 08:07:59.20 ID:XETJK2Tn0.net] へえ、1500から2000円ねそうなんだ。 自分田舎住みだからその時給はかなり水準高いわ。 こっちなんてどんだけExcelの技術あっても良くて時給1200円前後。 マクロ書ける人材は貴重だからもっと給料上げるべきだと思う。 520 名前：デフォルトの名無しさん [2022/01/21(金) 08:29:03.61 ID:U4E8wi5/0.net] 企業常駐型だから、基本かなり居づらいし VBAでゴリゴリの開発や保守なんて絶対にやらんほうがいいわ 521 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 08:45:23.59 ID:XETJK2Tn0.net] あ、常駐型SEを思い出した。 給料はもっと貰うべき。 522 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 08:51:43.72 ID:k97g2FVL0.net] 適正が有るだけで大した労力使わないのに給料は高いんだよ 楽だよな 523 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 09:29:31.93 ID:KSflUQH80.net] ExcelでEnumChildWindowsを使って他アプリの子ウィンドを取得するプログラムをテストしています。 と言っても知識がないのでネットからソースをコピーしてテストしているレベルです。 EnumChildWindowsの引数でコールバック関数をしているのですが、コールバック関数を実行した時に順調に 実行される時とEnumChildWindowsを実行した途端Excelが終了する時があります。 何かよくあるミスとかあれば教えてください。 APIの宣言、コールバック関数は標準モジュール、その他はシートモジュールに書いています。 プログラムを張り付けて良いか分からないので張り付けていませんが良いならご指示ください。 よろしくお願いします。 524 名前：デフォルトの名無しさん [2022/01/21(金) 09:44:43.07 ID:U4E8wi5/0.net] >>519 コードは貼ってくれ 525 名前：519 mailto:sage [2022/01/21(金) 11:25:52.95 ID:KSflUQH80.net] 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 526 名前：519 mailto:sage [2022/01/21(金) 11:29:13.91 ID:KSflUQH80.net] 標準モジュール 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 527 名前：519 mailto:sage [2022/01/21(金) 11:35:16.64 ID:KSflUQH80.net] 標準モジュールの続きです。 Public Function EnumChildProc(ByVal hwnd As Long) As Long Dim Ret As LongPtr Dim Leng As LongPtr Dim Name As String * 255 528 名前：519 mailto:sage [2022/01/21(金) 11:39:21.83 ID:KSflUQH80.net] 書込みができないようで中途半端なところで切れてしまいすみません。 残り数行なのですがもう少し後で投稿します。 よろしくお願いします。 529 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 12:02:38.78 ID:Pj4yIAd6M.net] >>524 長くなる時はコードをシェアできるサービス使って https://collabedit.com/3dgh5 530 名前：デフォルトの名無しさん [2022/01/21(金) 12:24:55.64 ID:R2BsGPNsa.net] 標準モジュールからユーザーフォームを呼び出して、そこで入力された値を持ってきて処理したいです 試しにシンプルにこんな感じでやっても駄目なんですが、どうすればいいでしょうか？ 標準モジュール 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をメッセージボックスに表示するようにしたいです 531 名前：519 mailto:sage [2022/01/21(金) 12:37:47.66 ID:KSflUQH80.net] >>525 指示してもらったことろへ貼り付けました。 よろしくお願いします。 532 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 12:39:51.71 ID:aZlF8gD40.net] >>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 533 名前：デフォルトの名無しさん [2022/01/21(金) 12:47:38.25 ID:R2BsGPNsa.net] >>528 Dimを抜くと、変数が定義されていませんと出てしまうんです Option Explicitを入れなければ通りますが、やはりTrueは返ってこないでFalseになります 534 名前：デフォルトの名無しさん [2022/01/21(金) 14:13:07.69 ID:U4E8wi5/0.net] >>519 多分引数が間違っている。ノートパッドを起動して以下を試して、 返り値の違いを確かめてみて。 修正前は0が返ってるけど、修正後はポインタか参照が返ってるはず hwnd = FindWindow(vbNullString, "hoge") 'トップウィンド ↓ hwnd = FindWindow("notepad", vbNullString) 'トップウィンド 後は、検索ボックスがどうこう書いてるけど、そういうプログラムを持ってないから検証できないわ 535 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 14:50:07.67 ID:RFcu/rPfd.net] >>526>>529 ユーザーフォーム側で「Dim ret As Boolean」を宣言するとスコープの近い変数に格納されてしまうから不要 自分も同じようなコードをかいたがなくても正しくretにTrueが入る （「CommandButton1.Click」は構文エラーになると思うが「CommandButton1_Click」だよね） 変数がどうとかいわれるならそもそも変数がpublicでないか参照している変数名がまちがってるとかないか？ 536 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 14:57:28.11 ID:aZlF8gD40.net] >>529 528は、ちゃんと動作確認してから貼ったんだけど コード書く場所間違ってない？ https://i.imgur.com/76hGtGx.png 537 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 15:01:17.70 ID:RFcu/rPfd.net] >>532 細かくてすまんが CommandButton1_Clickの代入先って最初大文字にしても勝手に小文字にならない？ 538 名前：デフォルトの名無しさん [2022/01/21(金) 15:11:34.91 ID:R2BsGPNsa.net] >>531 何回も確認してるんですが、間違ってないんですよね・・・ CommandButton1.Clickも、>>526で間違えただけです >>528で書いていただいたものをそっくりそのまま書いてるんですが、retにTrueが入ってくれないです 環境はエクセル2010のwin7です 539 名前：デフォルトの名無しさん [2022/01/21(金) 15:17:23.81 ID:R2BsGPNsa.net] >>532 新しい標準モジュールにtestだけ書いたらできました 何かが干渉してるってことなんでしょうか 540 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 15:22:29.45 ID:RFcu/rPfd.net] 自分はWin10(20H2)＋Excel2013とWin10(21H1)＋Office365(サブスクリプション版)の2つで試したけど どちらもTrueになるね ちなみに「ret = True」のretをマウスクリックして右クリックのメニューに出てくる「定義」を選択するとどこにジャンプする？ 自分はpublic変数にとぶんだが 541 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 15:24:18.40 ID:aZlF8gD40.net] >>534 まさかイベントプロシージャの宣言部を自分で入力かコピペしてない？ フォームデザイナーでコマンドボタンをダブルクリックすると空のプロシージャが自動生成されるんだよ あと、試したのはWin10 Excel2021 64bitだけど、この部分の仕様はずっと変わってないはず >>533 悪いけど指摘の意味がよくわからん スクショの通り、これでちゃんと動いてるんで さらに細かいことを言うとCommandButton1_ClickじゃなくてCommandButton1.Clickね 542 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 15:30:59.33 ID:aZlF8gD40.net] >>529 Dimを外すとエラーが出るってことは、どこかで今回の件とは関係ない別の何かをタイプミスしてる Option Explicitをコメントアウトした状態でステップ実行するとローカルウィンドウに使用中の変数の一覧が出るから、よーく見直せ 543 名前：デフォルトの名無しさん [2022/01/21(金) 15:46:49.49 ID:R2BsGPNsa.net] >>537 フォームデザイナー使ってます >>536 Publicに飛びます 544 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 16:13:39.82 ID:RFcu/rPfd.net] >>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押下で実行 545 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 16:23:57.05 ID:IxcxpS5S0.net] ユーザーフォーム閉じるまでメッセージボックスまで行かないわけか いつもモードレスだから気づかんかった 546 名前：デフォルトの名無しさん [2022/01/21(金) 16:24:33.06 ID:R2BsGPNsa.net] >>540 新規ブックで一からやったらできました 組み込みたい既存のブックでやろうとしたところ、Public retに入らない感じでしたが、新しい標準モジュールを作ってやったらできました なので、最初に書いた先の標準モジュールが原因っぽいんですが、それが何か分からない状態です 上手く動いたコードをそのまま一番上に持ってきているんですが、エラーは出ずに実行されるもPublic retにTrueが入らずにFalseになります 547 名前：デフォルトの名無しさん [2022/01/21(金) 16:40:12.64 ID:1Ed+zt1pM.net] 理屈もわからずあちこちからコピペコピペとやってる奴によくある そろそろ消えろや 548 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 16:45:47.13 ID:uPLc80ynd.net] ファイルもみてないからなんともいえないけどボタンに紐づけたイベントは正しく実行されるの？ ret = Trueの行でF9おすとブレークポイント設定されるからそこで止まるかたしかめたら？ それで止まったなら1行ステップ進めてretに何が入ってるか確認したほうがいいよ モノづくりするときは1つずつつぶしていくのが大事よ 549 名前：デフォルトの名無しさん mailto:sage [2022/01/21(金) 19:18:17.67 ID:vzv4Kcp20.net] 標準モジュールじゃなくてThisWorkbookに書いてる予感

---

---

[ 続きを読む ] / [ 携帯版 ]

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