VBAなんでも質問スレ Part3

1 ：デフォルトの名無しさん：2021/09/09(木) 19:46:21.53 ID:zfiF925t.net

VBAを使った質問ならなんでもござれ
本来の対象であるオフィスアプリを操作する以外の話もＯＫ

ゲーム作り、Webアクセス、外部アプリの操作
COM(ActiveX)、Win32API、.NET Framework、DirectXなどなど
VBAで実行するものであればなんでも質問してください

VBAを開発環境としていろいろ作っちゃいましょう

前スレ
VBAなんでも質問スレ Part2
https://mevius.5ch.net/test/read.cgi/tech/1432173164/

VBAなんでも質問スレ
http://peace.2ch.net/test/read.cgi/tech/1342087380/

84 ：デフォルトの名無しさん：2022/09/20(火) 23:12:56.91 ID:E6px8L9o.net

良かったね

85 ：デフォルトの名無しさん：2022/11/05(土) 23:23:48.77 ID:q1vpSefi.net

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

86 ：デフォルトの名無しさん：2022/11/06(日) 11:57:27.78 ID:YZhV7ZFA.net

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

87 ：デフォルトの名無しさん：2022/11/06(日) 13:00:11.77 ID:mzFwuoQr.net

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

88 ：デフォルトの名無しさん：2022/11/06(日) 13:33:34.80 ID:BQYduCLI.net

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

89 ：デフォルトの名無しさん：2023/01/15(日) 17:27:39.34 ID:L0piBEvX.net

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

90 ：デフォルトの名無しさん：2023/01/15(日) 17:32:51.69 ID:oiU86Xgn.net

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

91 ：デフォルトの名無しさん：2023/01/15(日) 17:42:11.66 ID:L0piBEvX.net

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

92 ：デフォルトの名無しさん：2023/01/15(日) 19:16:10.22 ID:2OoagcjS.net

a=strconv(input…じゃだめ？

93 ：デフォルトの名無しさん：2023/01/15(日) 19:45:07.26 ID:wWThixkU.net

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

でどうですか？

94 ：デフォルトの名無しさん：2023/01/15(日) 21:24:53.31 ID:L0piBEvX.net

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

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

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

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

95 ：デフォルトの名無しさん：2023/01/15(日) 21:28:27.42 ID:L0piBEvX.net

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

96 ：デフォルトの名無しさん：2023/01/15(日) 21:34:46.40 ID:oiU86Xgn.net

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

97 ：デフォルトの名無しさん：2023/01/16(月) 21:05:42.36 ID:/FEcft61.net

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

98 ：デフォルトの名無しさん：2023/01/26(木) 00:20:48.77 ID:gEJbNrm3.net

初心者です。

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

教えて先輩方

99 ：デフォルトの名無しさん：2023/01/26(木) 01:01:02.55 ID:XU6i0xq0.net

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

100 ：デフォルトの名無しさん：2023/01/26(木) 09:05:46.22 ID:gEJbNrm3.net

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

101 ：デフォルトの名無しさん：2023/01/29(日) 18:23:10.90 ID:MSlBVOmY.net

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

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

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

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

102 ：デフォルトの名無しさん：2023/01/29(日) 21:03:58.49 ID:CDZO9Bih.net

>>101
.InitialFileName

103 ：デフォルトの名無しさん：2023/01/30(月) 10:59:25.24 ID:pg83Lxmz.net

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

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

104 ：デフォルトの名無しさん：2023/02/04(土) 13:27:56.94 ID:ILEoM5pM.net

ニワかAccess使いか

105 ：98：2023/02/05(日) 00:51:51.83 ID:x+/z83/X.net

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

106 ：デフォルトの名無しさん：2023/02/05(日) 09:32:39.38 ID:kGhYs+bB.net

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

107 ：98：2023/02/05(日) 11:03:04.93 ID:x+/z83/X.net

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

108 ：デフォルトの名無しさん：2023/02/07(火) 02:06:59.91 ID:HGM7cRGk.net

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

109 ：デフォルトの名無しさん：2023/02/07(火) 02:14:49.35 ID:u80ccXtt.net

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

110 ：44：2023/02/07(火) 14:59:58.45 ID:PRRTh57q.net

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

111 ：44：2023/02/07(火) 15:17:07.11 ID:PRRTh57q.net

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

112 ：デフォルトの名無しさん：2023/02/07(火) 20:55:59.99 ID:uVJ5qMcc.net

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

113 ：デフォルトの名無しさん：2023/02/07(火) 22:11:10.80 ID:n590V07Z.net

俺生まれてないや

114 ：デフォルトの名無しさん：2023/02/08(水) 02:12:46.19 ID:k9oPh+Xg.net

歳いくつよ？

115 ：デフォルトの名無しさん：2023/02/08(水) 07:56:50.95 ID:XG6Lxj8v.net

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

116 ：デフォルトの名無しさん：2023/02/08(水) 08:52:49.73 ID:8aAMf1oY.net

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

117 ：デフォルトの名無しさん：2023/02/08(水) 16:38:02.34 ID:WlEF04f4.net ?PLT(15000)

https://img.5ch.net/ico/u_sii_naname.gif
１．CommandButton1_Click
　ウインドウ作成
　GetWindowLongPtr→RegisterClassEx→CreateWindowEx
　作った窓のウインドウハンドルはパブリック変数に格納

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

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

何でかな？

118 ：デフォルトの名無しさん：2023/02/09(木) 15:34:22.41 ID:1BKoKxeD.net

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

119 ：デフォルトの名無しさん：2023/02/09(木) 18:57:14.99 ID:7UZecPSw.net

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

120 ：デフォルトの名無しさん：2023/02/27(月) 17:10:11.50 ID:GEmICUaj.net

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

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

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

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

121 ：デフォルトの名無しさん：2023/02/27(月) 19:15:10.33 ID:O7Tjun9K.net

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

122 ：44：2023/04/20(木) 13:04:53.21 ID:b7y+tf5m.net

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

123 ：デフォルトの名無しさん：2023/06/15(木) 22:14:40.39 ID:PF1syuwLY

誰た゛ったか国會で「軍隊は國民を守らない』って言ってたな
地球破壞テ囗リス├税金泥棒自閉隊か゛都心付近までクソへリやらC-130やらクソ爆音航空機飛は゛しまくって低周波騷音引き起こしてるしな
（低周波騒音kwsk→https://www.env.go.jp/content/900405730.pdf）
日本に原爆落とした世界最悪のならず者國家に見習うへ゛きことは、曰本に原爆落とした世界最悪のならす゛者國家憲法修正第ニ条だろ
税金という名目て゛金銭強奪して私権侵害して地球破壊するた゛けの地球に湧いた害蟲公務員と銃刀法ってのは覇権主義国家の典型なんだそ゛
某腐敗の権化か゛討ち取られた事件を日本に原爆落とした世界最惡のならず者国家では、銃刀法意味ねえし゛ゃん(直訳)って報道されとるわ
銃刀法廃止のみか゛防衛．軍事費増大とは税金泥棒どもによる侵略凖備であって軍拡竸争による壞滅リスクが高まるだけだと覚えよう！
核落とされたら軍隊など無意味、高価な通常ミサイルはウクラヰナて゛も分かるように―發撃ってほぼ死人セ゛囗，税金泥棒自閉隊存在価値ゼロ

創価学会員は，何百萬人も殺傷して損害を与えて私腹を肥やし続けて逮捕者まて゛出てる世界最惡の殺人腐敗組織公明党を
池田センセ━が囗をきけて容認するとか本氣で思ってるとしたら侮辱にもほどか゛あるぞ！
ｈＴТΡｓ：／／ｉ，ｉｍｇｕｒ、ｃоｍ／hnli1ga.jpeg

124 ：デフォルトの名無しさん：2023/10/12(木) 00:31:16.03 ID:DQl6JD4W.net

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

125 ：デフォルトの名無しさん：2023/10/12(木) 13:57:57.56 ID:UgjJPXcW.net

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

126 ：デフォルトの名無しさん：2024/02/11(日) 15:33:19.21 ID:xHqPXMK5.net

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

127 ：デフォルトの名無しさん：2024/02/11(日) 17:45:00.13 ID:XgIjLyiU.net

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

128 ：デフォルトの名無しさん：2024/02/11(日) 18:01:40.17 ID:RI7D2x7j.net

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

129 ：デフォルトの名無しさん：2024/02/11(日) 18:03:32.03 ID:ESz2cAkb.net

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

130 ：デフォルトの名無しさん：2024/02/11(日) 20:19:20.28 ID:xHqPXMK5.net

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

131 ：デフォルトの名無しさん：2024/02/12(月) 08:25:23.25 ID:RQTXNg3h.net

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

って前科もあるし

132 ：デフォルトの名無しさん：2024/02/12(月) 08:37:25.50 ID:B2pA3A78.net

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

133 ：デフォルトの名無しさん：2024/02/12(月) 08:51:46.03 ID:RQTXNg3h.net

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