![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.3ベストアンサー
- 回答日時:
#2の回答者です。
メッセージボックスのMsgBox(MessageBox)は、ユーザーの反応を求めているものだから、その使用中はすべて停止してしまうので、不可能でした。プロセスを別にするにしても、命令をアクセス等からなされたら、それは、アクセスを停止させてしまうことが分かりました。おまけに、Modalモードになってしまいます。あえて、UserForm ではなく、ダミーをHTAで作ってみました。
ダミーではあっても、OKボタンにVBScipt マクロを組み込むことは可能です。
//BUTTON1.HTA//
'---------------------------------------------------
<html>
<head>
<title>DynamicMsgBox</title>
<HTA:APPLICATION
APPLICATIONNAME="DynamicMsgBox"
ID="DynamicMsgBox"
SCROLL="no"
SCROLLFLAT="no"
BORDER="dialog"
VERSION="1.0"/>
</head>
<script language="VBScript">
Sub Window_OnLoad
Dim width,height
width=150
height=150
self.ResizeTo width,height
self.MoveTo (screen.AvailWidth-width)/3,(screen.AvailHeight-height)/2
End Sub
Sub OnClickButtonOK()
Window.Close
End Sub
</script>
<body bgcolor="buttonface">
<table border=0 width=100% height=100%>
<font size="3"> 処 理 中</font>
<tr>
<td align="center">
<input type="button" style="width: 80px" name="OK" id="OK" value="OK" onclick="OnClickButtonOK">
</td>
</tr>
</table>
</body>
</html>
'------------------------------
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Const WM_QUIT = &H10
Sub StartMacro()
'実行マクロ
Dim HTAfile As String
Dim ID As Long
HTAfile = Application.DefaultFilePath & "\BUTTON1.HTA"
ID = Shell("mshta.exe " & HTAfile, vbNormalFocus)
Application.OnTime Now + TimeSerial(0, 0, 10), "Hta_Close"
End Sub
Sub Hta_Close()
'終了用
Dim hwnd As Long
Dim ret As Long
hwnd = FindWindow("HTML Application Host Window Class", vbNullString)
ret = SendMessage(hwnd, WM_QUIT, 0, 0&)
End Sub
No.2
- 回答日時:
あくまでも、メッセージボックスでこだわってみました。
'//
Private Declare Function MessageBoxTimeoutA Lib "user32" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long, ByVal wLanguageId As Long, ByVal dlliseconds As Long) As Long
Sub Test1()
Dim ret As VbMsgBoxResult
ret = MessageBoxTimeoutA(0&, "処理中です。5秒後に消えます!", "messagebox", vbMsgBoxSetForeground + vbOKCancel, 0, 5000)
If ret = vbCancel Then
MsgBox "Cancel が押されました。"
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセル 2つの列にある値の完全一致を抜き出すVBA 15 2022/12/15 03:22
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて 重複したものがあれば行を削除するとい 1 2023/02/27 18:49
- Visual Basic(VBA) Excel VBA シートを追加後に余分なシートを削除する、の意味 21 2022/05/19 22:46
- Visual Basic(VBA) vbaエクセルマクロについて RemoveDuplicatesを使わずに、重複行を削除すらマクロを作 3 2023/03/02 22:03
- Visual Basic(VBA) 【VBA】もし、値が0だったら左のセルと合わせて削除したい 3 2023/04/20 10:12
- Excel(エクセル) エクセルファイル中、ゴミ処分の件 2 2022/06/15 19:32
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成 6 2023/03/03 18:05
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
メッセージボックスのOKボタンをVBAでクリックさせたい
Visual Basic(VBA)
-
VBA ポップアップが表示されたら常に「はい」を選択したい
Access(アクセス)
-
VBAにて別ワークブック上の実行したマクロのメッセージボックスを操作
Visual Basic(VBA)
-
-
4
VBScriptでMsgBoxのYesNoボックスを自動的にクリックしたい
その他(プログラミング・Web制作)
-
5
VBA(エクセル)で自動的にボタンをクリックさせるには
その他(プログラミング・Web制作)
-
6
Access 無操作の場合、自動で閉じたいです。
Access(アクセス)
-
7
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
8
Excel VBA 自動的に閉じるMsgBox
Excel(エクセル)
-
9
VBSで応答不要のメッセージボックスを表示したい
その他(パソコン・スマホ・電化製品)
-
10
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
11
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
12
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
13
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
14
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
15
前のレコードの値を自動で入れたい
PowerPoint(パワーポイント)
-
16
フォントの大きさ
Visual Basic(VBA)
-
17
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
18
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
19
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
20
ACCESSのクエリで抽出条件「または」は9個までしかかけませんよね…
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESS側からEXCELの書式を設定...
-
thunderbirdのメッセージフィル...
-
VBSで応答不要のメッセージボッ...
-
[VC++] AfxBeginThreadで生成し...
-
FPS制御について
-
VC++ MFC フォルダサイズの表示
-
VBA メッセージボックスを自動...
-
マルチスレッドを実現したい
-
ASP.NETでのメッセージ画面を出...
-
VBA kernel32 の意味
-
逆コンパイルと逆アセンブルの...
-
Macターミナルで実行中のプログ...
-
USJでの割り込み
-
緯度、経度の 10進法と 60進法...
-
3のつく数字と3の倍数のみを表...
-
プログラミングの問題です。写...
-
【プログラミングScratch】で音...
-
他のアプリケーションをクリッ...
-
F-BASICからC言語への変換
-
OpenCvsharpについて。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBSの処理中一旦処理を止めて再...
-
メッセージボックスのボタン名変更
-
VBA kernel32 の意味
-
ACCESS側からEXCELの書式を設定...
-
VBSで応答不要のメッセージボッ...
-
エクセルVBAでクリップボード内...
-
Application.ScreenUpdating=Fa...
-
Excel VBA で処理中断(DoEvents...
-
VBA メッセージボックスを自動...
-
【C#】 あるイベントから別イ...
-
VBA、UserFormを前面に出力して...
-
ASP.NETでのメッセージ画面を出...
-
Excel VBA 自動的に閉じるMsgBox
-
スロットゲームのプログラミング
-
キーボード入力、マウス操作を...
-
<input type="file">タグで「キ...
-
Excelのワークシートに行を挿入...
-
ボタンが押された事を検知する...
-
VB6 コマンドボタン クリック...
-
VCでウエイトをミリ秒でかけ...
おすすめ情報