No.2ベストアンサー
- 回答日時:
以下のようにして下さい。
-----------------------------------
Private Sub CommandButton1_Click()
Dim i As Long
For i = 3 To 0 Step -1
MsgBox (i)
Next
End Sub
-----------------------------------
CommandButton1はあなたのボタン1の名前です。
デフォルトではCommandButton1になっています。あなたの環境にあわせてください。
ボタンの名前_Click()というプロシージャ名になっていればOKです。
No.4
- 回答日時:
>For...Next文をつかってボタン1を、押したら3.2.1.0.と順にカウントダウンするメッセージボックスが表示されるようなプログラムのコードを書きなさい。
VBAの問題としては、Step の使い方を覚えさせるためなのですが、課題の内容が、どこか間違えているようですから、もう一度、読みなおしてください。
#3さんの仰るとおりです。
そういう私は、そういうコードは、Excelでは作ったことがないような気がします。
今回は「メッセージボックス」と、カタカナで書いていますから、そこであえて、「メッセージボックス」を使ってみました。
たぶん、私のは提出できません。学校では教えないからです。
ボタンは、フォームコントロールのボタンを使います。
'//
#If VBA7 And Win64 Then
'64bit
Private Declare PtrSafe 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
#Else
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
#End If
Sub ボタン1_Click()
Dim i As Long
For i =3 To 0 Step -1
MessageBoxTimeoutA 0&, CStr(i), "msgbox", vbMsgBoxSetForeground, 0, 800
Next i
MessageBoxTimeoutA 0&, "Bom!", "msgbox", vbMsgBoxSetForeground, 0, 1000
End Sub
No.3
- 回答日時:
メッセージボックスって、OKボタンを押さないと引っ込まないですよね?
ということは、ボタン1を押すとメッセージボックスで「3」を表示し、OKを押すと再度メッセージボックスで「2」を表示し・・・ということですか?・・・随分、ショボい課題ですね?
課題の内容と質問の内容に齟齬は無いですか?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
VBA CommandButtonの文字ずれ
-
リストボックス 何も洗濯され...
-
アセンブリコードの表示
-
セルをマクロのボタンにしたい。
-
[VB.NET]3つ以上のフォームを一...
-
VBAで多数のプログラムを一つの...
-
プロシージャからイベントをコ...
-
VBS でユーザーからいくつかの...
-
ボタン(コントロール)を丸くしたい
-
角の丸いボタン作成について質...
-
CheckBox1による選択 VBA
-
チェックボックスで指定出来る...
-
C#で動的に作ったtextboxを消す。
-
vb.net タイマーに引数を渡す
-
BorlandC++Builderでのタイマー...
-
ユーザフォーム AfterUpdate処...
-
[Excel VBA]コマンドボタンの入...
-
Excel VBA Application.caller...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートのボタン名を変更し...
-
VBA(エクセル)で自動的にボタン...
-
ユーザーフォームに別シートか...
-
VBA CommandButtonの文字ずれ
-
フォームの再読み込み
-
アイコンとボタンの違い
-
VBAのボタンの位置が変わって困...
-
閉じると「+」になり開くと「-...
-
Excel VBA Application.caller...
-
Access VBA でデータペーストを...
-
セルをマクロのボタンにしたい。
-
コマンドボタンやイメージにマ...
-
VBAでオプションボタンによって...
-
ボタンをマウスで押し続けたと...
-
[Excel VBA]コマンドボタンの入...
-
VBA IE ダウンロード ダイアロ...
-
プロシージャからイベントをコ...
-
チェックボックスで指定出来る...
-
+ボタンの名称は?
-
VBA でのボタンの移動について
おすすめ情報
作ってあります!