Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54073 / 76738

←次へ　｜　前へ→


	【27467】Re:合図を送るまで処理を止める

kobasan - 05/8/10(水) 6:48 -


	引用なし

	パスワード

みなさん　おはようございます。

>画面のどこかをクリックするかENTERキーを押すかで、処理を再開したいのですが、何か良い方法はありますか？

ではないけど、
CommandBarではどうですか

Sub Show_cmdBar()
　　cmdBar
　　Range("A1").ClearContents
End Sub
Sub Auto_Close()
　　On Error Resume Next
　　Application.CommandBars("MyMenu").Delete
End Sub

Private Sub cmdBar()
　　Dim MycmdBar As CommandBar
　　On Error Resume Next
　　Application.CommandBars("MyMenu").Delete
　
　　Set MycmdBar = Application.CommandBars.Add(Name:="MyMenu", _
　　　　　　　　　　　　temporary:=True, Position:=msoBarTop)
　
　　Set btn1 = CommandBars("MyMenu").Controls.Add(Type:=msoControlButton)
　　With btn1
　　　　.Style = msoButtonIconAndCaption
　　　　.Caption = "Next"
　　　　.FaceId = 59
　　　　.OnAction = "macro1"
　　End With
　
　　Set btn2 = CommandBars("MyMenu").Controls.Add(Type:=msoControlButton)
　　With btn2
　　　　.Style = msoButtonIconAndCaption
　　　　.Caption = "終了"
　　　　.FaceId = 266
　　　　.OnAction = "macro2"
　　End With
　
　　MycmdBar.Visible = True　　'コマンドバーを表示
　　
　　Set MycmdBar = Nothing
End Sub

Private Sub macro1()
　　If Range("A1").Value >= 10 Then Exit Sub
　　Range("A1").Value = Range("A1").Value + 1
　　MsgBox "画像の代わり"　 '画像を表示させるコード
End Sub

Private Sub macro2()
　　Application.CommandBars("MyMenu").Delete
End Sub

0 hits

▼

【27445】合図を送るまで処理を止める 田村亮 05/8/9(火) 17:46