VBAなんでも質問スレ Part3

**デフォルトの名無しさん** · 2022/06/17(金) 17:05:38.65

それはOption Explict化をミスってるんじゃないか

広域で定義（または利用されて暗黙的に定義）されてる変数を
ローカルで定義したとかの可能性が高い

つか1000以上のモジュールがあって販売してるようなプログラムとは思えん作りだな

**デフォルトの名無しさん** · 2022/06/17(金) 17:25:09.27

「ごっこ」って言葉を免罪符にしてるんだろうけど
直せないならやらなきゃいい

**デフォルトの名無しさん** · 2022/06/17(金) 22:53:08.85

>>44
Option Explicitはあえてエラーをエラーとするようにするための記述だからな
HTMLでいうstrictだよ

44 · 2022/06/18(土) 08:43:08.28

>>51
> 広域で定義（または利用されて暗黙的に定義）されてる変数を
> ローカルで定義したとかの可能性が高い
でも、Compileは通るんですよねえ。
あとで実験してみますね。

>>つか1000以上のモジュールがあって販売してるようなプログラムとは思えん作りだな
愚痴らせて下さい。
金取るくせにOption Expliciじゃないモジュールが多数。変数がなんでもかんでもVariant。変数の使い回しし放題。インデントがめちゃくちゃ。
命名規則がメチャクチャでバラバラ。
古いコードがコメントアウトで多数残ってる。何十行ものコメントアウトがたくさんあって読みにくいたらありゃしない。
戻り値を返さないFunction。戻り値が返ったと思ったら、受け取る変数はどこでも読まれない。Subでいいだろうが。
宣言だけして利用されない変数多数。空のプロシジャーを呼び出すなど無意味なコード。

とりあえず読み書きされない変数は全部削除しましたが3日かかりました。
全部変数宣言するには1週間かかりました。
分析ツールは他にも多数のDead Codeを指摘していますが、全部はできません。
酷すぎます。

44 · 2022/06/18(土) 08:49:13.02

>>52
おいら、プログラマーじゃないんだよ。だから「ごっこ」と書いた。でも本はちゃんと買ってあるよ。
業務で利用しているAccessを改良しているうちに泥沼にはまったんだよ。
Accedssを初めて使ったときは変数という言葉も知らなかったよ。

**デフォルトの名無しさん** · 2022/06/18(土) 10:39:04.86

なんにせよAccess VBAはスレチ
Explicitの綴り間違えすぎてるのも怪しいし

**デフォルトの名無しさん** · 2022/06/18(土) 11:58:55.45

ここはVBAなら何でもありだと思うけどな
「Excel VBA」スレと間違えてないか？

**デフォルトの名無しさん** · 2022/06/18(土) 12:55:52.02

>>57
まさにそっちと間違えてた
ごめんなさい

**デフォルトの名無しさん** · 2022/06/18(土) 13:38:21.35

>>54
あるあるだね
とくに若手に作らせるとそんなもんだよ
命名規則とかインデントとか、とにかく余裕がなくて勉強してるヒマがない
納期に追われて、とりあえず動く物を作るのでせいいっぱい

まあ自分の担当になったんなら、気長に直していくこったな
俺はひどいコード直すの嫌いじゃない
最近はいいツールあるしね
インデントぐらいならほぼ一発で綺麗に直してくれるし

**デフォルトの名無しさん** · 2022/06/18(土) 18:52:07.80

購入品なら不具合出たら責任取らせればそれで済む話
リファクタリングなんて自分の勉強目的以外は無意味
自分の勉強目的ならここに愚痴だか何だかわからない書き込みをするのも無意味

44 · 2022/06/18(土) 22:31:48.14

書いてみて反応がなければよし、あれば語らう。
自由な空間で試行錯誤をすることを否定するなよ老人脳。

**デフォルトの名無しさん** · 2022/06/19(日) 10:16:32.15

スレも理解できない奴が他人を批判するのもどうかと思うけどな
そもそもソースすら満足に直せない奴も低能なのではないか

44 · 2022/06/19(日) 13:49:52.36

ソースは差し障りがないように改変して皆さんに相談してみたいと思います

**デフォルトの名無しさん** · 2022/06/19(日) 14:32:35.71

>Option Explicitの有無でサブフォームの選択の仕方
選択の仕方ってのがどういった状況を指してるのかわからんけど
正常に動作してる状況で宣言の有無でそれが変わる例が思いつかんわ
そこだけでもコード曝せ

44 · 2022/06/19(日) 14:36:56.35

私も非常に驚いたので晒したいです。
今日は家族サービスでできないので近いうちに。

**デフォルトの名無しさん** · 2022/06/19(日) 14:56:20.29

>>44
それは解決とは言えんのだな

バグり上等でとりあえず動けばいいなら

**デフォルトの名無しさん** · 2022/06/19(日) 17:19:29.91

さしあたり1200以上のモジュールってのは行数のことだよね

**デフォルトの名無しさん** · 2022/06/19(日) 17:50:53.92

オプエクで動かなくなるのって、デフォルトプロパティあたりのタイプミスとかじゃないのかなあ
晒せるように改変してたらあっさり解決したりして

**デフォルトの名無しさん** · 2022/06/20(月) 12:29:08.41

若手って何歳を指しているのよ？
まさか40代を指して若手とか定義しているのか？

**デフォルトの名無しさん** · 2022/06/20(月) 12:49:30.22

年齢でも勤続年数でもないのは確か
何ができたら一人前とか定義するのも不可能だし

**デフォルトの名無しさん** · 2022/06/20(月) 12:58:01.87

初心者の定義ならできそう

マニュアルを読まない
型を適切に使い分けない
コーディングルールを意識しない(インデントやコメント、命名規則も含む)
エラーメッセージを読まない
とにかくググらない

**デフォルトの名無しさん** · 2022/06/20(月) 13:20:31.60

いきなりあのマニュアルは敷居が高すぎる
とは思う。

**デフォルトの名無しさん** · 2022/06/20(月) 13:30:03.87

マニュアルってどれ？

**デフォルトの名無しさん** · 2022/06/20(月) 13:49:54.68

https://docs.microsoft.com/ja-jp/office/vba/api/overview/excel?redirectedfrom=MSDN
とか。

**デフォルトの名無しさん** · 2022/06/20(月) 14:10:44.70

>>71
それは初心者でなくバカなだけでしょ
自分ができない事の原因にそれがあったら直せといいたい

**デフォルトの名無しさん** · 2022/06/20(月) 17:54:51.35

ググるっつても、見るのは当然MSヘルプのみ。
上級者はこれ。
他の訳の分からないサイトは一切見ないと聞いた

**デフォルトの名無しさん** · 2022/06/20(月) 18:15:51.33

それは構文なんかのお作法が頭に入っているから出来る話

**デフォルトの名無しさん** · 2022/06/20(月) 20:25:16.63

>>74
リファレンスマニュアルのことをマニュアルって呼んだり読むっていう文化無かったからびっくりした
リファレンスって呼んでたし見るって言ってる
確かにマニュアルだけど

**デフォルトの名無しさん** · 2022/06/20(月) 22:02:44.18

上級者はMSヘルプだけで解決と聞いた
訳の分からないサイトは参考にしないと

**デフォルトの名無しさん** · 2022/07/27(水) 10:15:37.10

PowerPointのVBAについてご教示ください
・達成したいこと
社内作成のファイルを顧客に送付するための処理としてスライドに表示されている情報以外(個人情報、非表示スライド、ノート)を削除したい
・うまくいかないところ
ノートのスライドイメージを残しつつ、それ以外を削除すること
・試したこと
NotePage.Shapesを全削除→スライドイメージごと削除されてしまう
DocumentInspectors(4)でノート削除→ノートに貼られた図などが残る

**デフォルトの名無しさん** · 2022/08/06(土) 17:28:00.48

ワードVBAでの質問です．
ワードの連番フィールド（SEQフィールド）の結果を文字列で固定したいのですがどうすればいいでしょうか？
多くのフィールドは
ActiveDocument.Fields.Unlink
で固定化できるのですがSEQフィールドは対象外です．
よい方法があれば教えてください．

**デフォルトの名無しさん** · 2022/08/06(土) 17:36:58.95

>>81
自己レスです。
Ctrl + a、Ctrl +shift +F 9でできました。
マクロでCtrl +shift +F 9の操作を記録したのですが何も記録されませんでした。VBA には対応するコマンドはないようですね。

お騒がせしてすいませんでした。

**デフォルトの名無しさん** · 2022/09/20(火) 17:19:44.79

今日ろくに考えずに書いたのが
上手く動いて驚いた

しかも期待する以上の働きを
してたわ

本当に大丈夫か心配だけど
じっくり見る気力がないわ

**デフォルトの名無しさん** · 2022/09/20(火) 23:12:56.91

良かったね

**デフォルトの名無しさん** · 2022/11/05(土) 23:23:48.77

WORD　VBAでハイパーリンクをクリックする処理はどうすればいいでしょうか．
ハイパーリンクをクリックしたときに処理Aを同時に実行したいのですが，エクセルVBAはのようにハイパーリンクのクリックイベントがWORDVBAにはないので，逆にボタンに処理Aと塀パーリンククリックの処理を書こうとしています．
ご存知ならば教えてください．

**デフォルトの名無しさん** · 2022/11/06(日) 11:57:27.78

こことか詳しいんじゃね？
https://www.tipsfound.com/word/02301
VBA絡みならこっちとかも
https://draft.ecophysical.com/?p=4409

**デフォルトの名無しさん** · 2022/11/06(日) 13:00:11.77

>>85
環境ないから試せてないけど follow じゃないの？
https://learn.microsoft.com/ja-jp/office/vba/api/word.hyperlink.follow

**デフォルトの名無しさん** · 2022/11/06(日) 13:33:34.80

>>87
ありがとう
followで上手くいきました

**デフォルトの名無しさん** · 2023/01/15(日) 17:27:39.34

a=Application.InputBox(”英数字を入力して下さい”,“～を入力“)
この入力の時に、全角モードになっていても半角英数字の入力に自動で変更する方法はないでしょうか？
sendkeys “%{kanji}“を使用すると、半角英数字になっていた時に全角モードにされてしまいます。
よろしくお願いします。

**デフォルトの名無しさん** · 2023/01/15(日) 17:32:51.69

>>89
https://infith.com/system/excel/ime_validation/

**デフォルトの名無しさん** · 2023/01/15(日) 17:42:11.66

>>90
ありがとうございます。
ここのページも見て試したのですが、実行した後に手動でセルに直接入力する場合には確かに半角英数字になるのですがinputboxからの入力ではIMEの方が強いみたいです

**デフォルトの名無しさん** · 2023/01/15(日) 19:16:10.22

a=strconv(input…じゃだめ？

**デフォルトの名無しさん** · 2023/01/15(日) 19:45:07.26

if IMEStatus=vbIMEModeOn then
sendkeys “%{kanji}“
end if

でどうですか？

**デフォルトの名無しさん** · 2023/01/15(日) 21:24:53.31

ありがとうございます
>>92
試してみますね
>>93
そのやり方と

If IMEstatus<>vbIMEModeOff then
Sendkeys “%{kanji}“
End If

のやり方も駄目でした
inputbox後や前に

msgbox IMEstatus
を置いてみると常に3を吐いています

**デフォルトの名無しさん** · 2023/01/15(日) 21:28:27.42

>>92
入力後の半角英数字化ではなくて、入力時には半角英数字になっている状態にしたいです

**デフォルトの名無しさん** · 2023/01/15(日) 21:34:46.40

>>95
http://officetanaka.net/excel/vba/tips/tips16.htm

**デフォルトの名無しさん** · 2023/01/16(月) 21:05:42.36

ユーザフォームで作るのはだめなのか？

**デフォルトの名無しさん** · 2023/01/26(木) 00:20:48.77

初心者です。

Excelシート上に、activeXコントロールのボタン、コンボボックス、テキストボックス貼り付け
そのプロパティ見ても、タブインデックスが見当たらない？
Excelシート上では、タブインデックスは設定不可なのですか？

教えて先輩方

**デフォルトの名無しさん** · 2023/01/26(木) 01:01:02.55

>>98
自動でやるのは不可能
Tabが押されたらカーソルを移動するプログラムを1つずつ自分で書く必要がある

**デフォルトの名無しさん** · 2023/01/26(木) 09:05:46.22

>>99
ありがとうございます

**デフォルトの名無しさん** · 2023/01/29(日) 18:23:10.90

アクセスVBAの質問です。
目的のフォルダーにカレントフォルダ―を変更してからファイル選択ダイアログを開こうとしていますが、カレントフォルダーが変更されません。

ChDir "C:\" & 目的フォルダー名

With Application.FileDialog(msoFileDialogOpen)
If .Show = True Then
フルパスのCSVファイル名 = .SelectedItems(1)
Else
Exit Sub
End If
End With

どこがおかしいのでしょうか？

**デフォルトの名無しさん** · 2023/01/29(日) 21:03:58.49

>>101
.InitialFileName

**デフォルトの名無しさん** · 2023/01/30(月) 10:59:25.24

>>102
ありがとうございました。
できました。

ChDir "C:\" & 目的フォルダー名
はいらないのですね。

**デフォルトの名無しさん** · 2023/02/04(土) 13:27:56.94

ニワかAccess使いか

98 · 2023/02/05(日) 00:51:51.83

>>99
フォーカスのセットができないですね
うーん

**デフォルトの名無しさん** · 2023/02/05(日) 09:32:39.38

>>105
フォーカスの移動だけならこのへんがヒントになるかな
https://excel-ubara.com/excelvba1/EXCELVBA437.html
ただしEnterでクリック(確定)はまたちょっとハードルが高い

98 · 2023/02/05(日) 11:03:04.93

>>106
ありがとうございます
調査してみます

**デフォルトの名無しさん** · 2023/02/07(火) 02:06:59.91

VBAが壊れたファイルってもう駄目ですか？
何か壊れた時の対策はしてますか？

**デフォルトの名無しさん** · 2023/02/07(火) 02:14:49.35

VBAに限った話では無いけどデータ破損に備えてファイル履歴残しておくのは最低限の心構えだと思うけどな

44 · 2023/02/07(火) 14:59:58.45

>>108
何か改造する度にコピーを作成してクラウドで二重化しているなあ｡
コマンドボタンを1個置いただけでmdbが壊れて途方に暮れてからそうしている｡

44 · 2023/02/07(火) 15:17:07.11

外国のサイトを巡っているときに壊れたmdbを修復すると謳うユーティリティーソフトを見た覚えがあるなあ｡
フリーの奴をダウンロードして使った記憶がある｡俺の場合は役に立たなかったけど､試す価値はあると思う｡

**デフォルトの名無しさん** · 2023/02/07(火) 20:55:59.99

昔に比べりゃだいぶ減ったよねブック破損やマクロ破損は。

**デフォルトの名無しさん** · 2023/02/07(火) 22:11:10.80

俺生まれてないや

**デフォルトの名無しさん** · 2023/02/08(水) 02:12:46.19

歳いくつよ？

**デフォルトの名無しさん** · 2023/02/08(水) 07:56:50.95

5chは年寄の巣窟ですよ。
子供は他所で遊んだ方が良いですよ。

**デフォルトの名無しさん** · 2023/02/08(水) 08:52:49.73

>>111
バックドアが結構入ってるから会社ではやらん方がいいよ

**デフォルトの名無しさん** · 2023/02/08(水) 16:38:02.34

１．CommandButton1_Click
　ウインドウ作成
　GetWindowLongPtr→RegisterClassEx→CreateWindowEx
　作った窓のウインドウハンドルはパブリック変数に格納

２．CommandButton2_Clickで削除
　ウインドウ破棄
　DestroyWindow

３．ウインドウハンドル確認ソフトでもウインドウが消えてることを確認し、
　手順１に戻るとRegisterClassExが失敗(戻り値ゼロ)になる

何でかな？

**デフォルトの名無しさん** · 2023/02/09(木) 15:34:22.41

>>117
「何で」がどこを差しいているかわからんが、　2で破棄したからじゃね

**デフォルトの名無しさん** · 2023/02/09(木) 18:57:14.99

>>118
自己解決したわ
手順３でDestroyWindowの後、UnregisterClassを入れないと駄目らしい

**デフォルトの名無しさん** · 2023/02/27(月) 17:10:11.50

購入さたパソコンはオフィス非搭載
VBAは以前簡単なモノは作ってましたが、すっかり忘れてます。

再び勉強してみようかと思ってますが、
無料ソフトのカルクでVBAがある程度学習できるとネットでみつけましたが、これは本当に可能ですか？

pythonは大学が無料テキストを公開してますが、VBAの無料テキストは検索しても見つかりませんでした。

どこか無料テキスト公開しているサイトを知りませんか？

**デフォルトの名無しさん** · 2023/02/27(月) 19:15:10.33

>>120
https://learn.microsoft.com/ja-jp/office/vba/api/overview/language-reference
https://learn.microsoft.com/ja-jp/office/vba/language/glossary/vbe-glossary

44 · 2023/04/20(木) 13:04:53.21

みなさん､Accessに外部からLoadFromTextを行うときに出てくる｢この操作を実行するとプロジェクトがリセットされます。実行しますか?｣を出なくする方法を知ってますか？
1000以上のモジュールをインポートしないと行けないので､1000回以上ボタンをクリックするのが面倒くさいです｡

**デフォルトの名無しさん** · 2023/10/12(木) 00:31:16.03

>>120
私もVBAの勉強中です
こちらのサイトは軽くて読みやすい気がします
https://www.tipsfound.com/vba/01003-vba

**デフォルトの名無しさん** · 2023/10/12(木) 13:57:57.56

>>120
MSのサイトでリファレンス公開されてるじゃん

**デフォルトの名無しさん** · 2024/02/11(日) 15:33:19.21

VBAが廃止予定とマイクロソフトから予告めいたことが出てるらしいですが、実際はどうなんでしょうか？

**デフォルトの名無しさん** · 2024/02/11(日) 17:45:00.13

>>125
その予告によるとVBAの移行先は何処と言ってるの？

**デフォルトの名無しさん** · 2024/02/11(日) 18:01:40.17

>>125
それ5年前にも10年前にも聞いたけど、10年たってもあんまり進んでないからあわてる必要は全然ない

**デフォルトの名無しさん** · 2024/02/11(日) 18:03:32.03

>>122
そもそも、手動で1個ずつインポートして「ダイアログを出なくする方法」を探すこと自体が間違ってる
1回で済むようにまとめるか完全自動化するのが正解

**デフォルトの名無しさん** · 2024/02/11(日) 20:19:20.28

>>126
Office系がWebView I/Fになり、
JavaScriptになると言ってます

**デフォルトの名無しさん** · 2024/02/12(月) 08:25:23.25

>>125
VBA廃止してPythonにすっからよろしくな！
↓
Python導入辞めるわ、使いたかったら優れたアドオン2つあるから使ってな！

って前科もあるし

**デフォルトの名無しさん** · 2024/02/12(月) 08:37:25.50

Python導入辞めるって公言したの？

**デフォルトの名無しさん** · 2024/02/12(月) 08:51:46.03

>>131
大分前に公式フォーラムで開発者が発言してる
MS広報としての発言ではないけど

**デフォルトの名無しさん** · 2024/10/15(火) 12:50:14.73

Python上げVBA下げしてる気持ち悪い奴ら
http://mevius.5ch.net/test/read.cgi/tech/1660599572/

**デフォルトの名無しさん** · 2025/02/03(月) 22:35:13.90

そもそもPython導入って正式にアナウンスされたのか？

**デフォルトの名無しさん** · 2025/05/05(月) 04:29:54.64

されてない
中の人がブログに個人の感想を書いたら勝手に尾ヒレが付いて噂が広まっただけ

**デフォルトの名無しさん** · 2025/05/05(月) 08:07:23.10

Pythonは別の形で導入済み
py関数に生まれ変わった

**デフォルトの名無しさん** · 2025/05/07(水) 23:13:39.71

VBA廃止とPythonでの機能追加は関係のない話

VBAを廃止したいのは当然のこと