No.2ベストアンサー
- 回答日時:
難しい質問ですね。
ご自身で参考にしたコードがあるのでしょうか。
ModalMode に関しては、なんとも言えないのは、UserForm 上で、Lable に命令を出しているからです。
それがなければ、後は補填するだけで済みます。
なお、Sleep を使っていらっしゃるようですが、Sleep 自体は、Win API ですから、もちろん、エラーが出ているはずです。
Load UserForm1
UserForm1.Label1.Caption = "ABC"
UserForm1.Show
Sleep 2000 --ここまでで、UserForm のメモリが安定しないので、Label の操作ができないのではないでしょうか。
ふつう、自己消去型のメッセージは、Win API を利用するのですが、UserForm を活かすなら、
Sub test2()
Application.OnTime Now + TimeSerial(0, 0, 2), "UserFormColse"
With UserForm1
.Label1.Caption = "ABC" 'マクロが一定の終了をしないと出てこない
.Show 'vbModeless 'この場合は、どちらでもよい。
End With
End Sub
Sub UserFormColse()
Unload UserForm1
End Sub
Label.Caption ="ABC" がなければ、問題はSleep の部分と余分な部分を切り落とすだけです。
こんなふうにしか私は思いつかなかったです。
その代用品として、このようなコードがあります。
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 dwMilliseconds As Long) As Long
Sub TimeOutMessage()
MessageBoxTimeoutA 0&, "ABC", "メッセージ", vbMsgBoxSetForeground, 0, 2000 '2秒
End Sub
参考まで。
早速有り難うございました。
全て了解です。
確かに、
>UserForm 上で、Lable に命令を出しているからです。
このとおりで、無ければ1番の方のとおりに動きました。
結局、例示いただいたように一度マクロを終了する必要があるのですね。
msgbox を入れてみたらlableが表示されました。
また、代用品ですが、これは持っていましたが、
今回はユーザーフォームの勉強なので別とします。
なお、sleepはお手数をかけてしまいましたが、
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)は書いてありました。
お世話になりました。
No.1
- 回答日時:
VBAのヘルプには、次のように記載されています。
ユーザー フォームがモードレスのとき、次のコードは中断されずに継続して実行されます。
ユーザー フォームがモーダルの場合、アプリケーション内の他の部分を使用する前に、ユーザーは必ず応答する必要があります。ユーザー フォームを非表示にするか、またはアンロードするまで、次のコードは実行されません。
ようするに、ユーザフォームをモードレスで表示しないと思った動作になりません。こんな感じです。
UserForm1.Show vbModeless
早速有り難うございました。
vbmodeless
helpを頂き、良く分かりました。
確かにそのとおりに動きました。
お世話になりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Mac OS Parallels Desktop for Mac 2 2023/06/22 04:32
- Excel(エクセル) ハイパーリンクの削除について 2 2022/11/10 07:32
- 英語 【 論・表 for the day の意味 】 She often took both of us 2 2022/08/14 17:36
- 英語 下記の英文を日本語に訳してください。 1 2023/03/10 13:04
- その他(SNS・コミュニケーションサービス) 爆サイやっていたら、下のような文字が出ました! これは何なのでしょうか? nginx error! 1 2023/06/09 12:27
- 英語 丁寧な伺い(参加可否を促したい)英文を知りたいです。 2 2022/06/28 06:57
- 英語 下記はなんていってますか? こんにちは以降、訳していただけたら助かります。 Hello, We’re 1 2023/01/14 00:09
- 車検・修理・メンテナンス 車のエンジンの警告灯について。 普通に運転していたら、エンジンの警告灯(黄色いやつ)がついて、距離数 6 2022/10/17 06:41
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
UserForm1.Showでエラーになります。
工学
-
エクセル VBA ユーザーフォームを閉じる
Excel(エクセル)
-
エクセルVBAでUserFormを起動した時
Excel(エクセル)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
6
VBA:ユーザーフォームのマルチページに色を付けたい。
Word(ワード)
-
7
マクロ実行時、ユーザーフォームにラベルのテキストが表示されません。
Access(アクセス)
-
8
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
9
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
10
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
11
ユーザーフォームで動的(Me.Controls.Add)に作成したコントロールの削除
Visual Basic(VBA)
-
12
ExcelのVBA。public変数の値が消える
Visual Basic(VBA)
-
13
vba Listviewでのチェックボックスのイベントを教えてください
Excel(エクセル)
-
14
ExcelVBA ユーザーフォーム
Excel(エクセル)
-
15
ListView 項目の選択/選択解除について
Visual Basic(VBA)
-
16
コンボボックス内の文字サイズ変更
Excel(エクセル)
-
17
ユーザーフォームに入力したデータを保持する方法
Visual Basic(VBA)
-
18
エクセルVBAで、MsgBox やInputBox は、画面の中央以外に表示させたい。
Excel(エクセル)
-
19
ListViewで複数選択された項目を一度に削除する方法
Visual Basic(VBA)
-
20
フォントの大きさ
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
雨の日以外でレインブーツを履...
-
街で女性が長靴(?)を履いて...
-
ハンターの長靴かエーグルの長...
-
☆レインブーツの素材について教...
-
通勤用のレインシューズ
-
高校生でも履ける長靴
-
「婦人 長靴21.5cm」を探し...
-
エーグルのレインブーツの購入...
-
20代女子がおしゃれに履ける長靴
-
長靴を探しています。
-
レインブーツの臭い
-
おしゃれな長靴を探しています
-
レインブーツの購入を検討して...
-
靴を履くこと
-
数量限定の品について。お店で...
-
飲食店で自分の靴を、他人が間...
-
なにか15kg以内の目安になるも...
-
大至急! この虫はなんですか?...
-
ゴキブリは外に干してある洗濯...
-
洋服のタグって、絶対左なんで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
雨の日以外でレインブーツを履...
-
街で女性が長靴(?)を履いて...
-
☆レインブーツの素材について教...
-
ハンターの長靴かエーグルの長...
-
通勤用のレインシューズ
-
おしゃれな長靴を探しています
-
20代女子がおしゃれに履ける長靴
-
レインブーツの購入を検討して...
-
レインブーツの臭い
-
エーグルのレインブーツの購入...
-
「婦人 長靴21.5cm」を探し...
-
長靴を探しています。
-
高校生でも履ける長靴
-
靴を履くこと
-
なにか15kg以内の目安になるも...
-
数量限定の品について。お店で...
-
大至急! この虫はなんですか?...
-
飲食店で自分の靴を、他人が間...
-
洋服のタグって、絶対左なんで...
-
タグを切った服は返品不可です...
おすすめ情報