Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12040 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【12726】ループについて教えてください。 シェフチェンコ 04/4/13(火) 13:53 質問
【12727】Re:ループについて教えてください。 IROC 04/4/13(火) 13:56 回答
【12730】Re:ループについて教えてください。 シェフチェンコ 04/4/13(火) 14:17 発言
【12733】Re:ループについて教えてください。 Jaka 04/4/13(火) 14:56 回答
【12735】Re:ループについて教えてください。 IROC 04/4/13(火) 15:02 回答
【12726】ループについて教えてください。
質問  シェフチェンコ  - 04/4/13(火) 13:53 -
引用なし
パスワード
   マクロを登録したのですが。マクロを実行する前に、３回ＹＥＳ、NOで選ばせるようなことはできますか？おしえてください。困ってます。
【12727】Re:ループについて教えてください。
回答  IROC  - 04/4/13(火) 13:56 -
引用なし
パスワード
   選択されたときの条件（動作）が良く分かりませんが・・

Sub test()
　MsgBox "１回目", vbYesNo
　MsgBox "２回目", vbYesNo
　MsgBox "３回目", vbYesNo

　'処理

End Sub
【12730】Re:ループについて教えてください。
発言  シェフチェンコ  - 04/4/13(火) 14:17 -
引用なし
パスワード
   ▼IROC さん：
>選択されたときの条件（動作）が良く分かりませんが・・
>
>Sub test()
>　MsgBox "１回目", vbYesNo
>　MsgBox "２回目", vbYesNo
>　MsgBox "３回目", vbYesNo
>
>　'処理
>
>End Sub

処理をかける前に、選択させてＹＥＳなら実行してＮＯなら処理しないようにしたいです。わかりずらくてすみません。
【12733】Re:ループについて教えてください。
回答  Jaka  - 04/4/13(火) 14:56 -
引用なし
パスワード
   新しく作ったスレッドは削除してね。

Sub ndmmm1()
　 If MsgBox("YES or No ?", vbYesNo, "タイトル") = vbYes Then
　　　MsgBox "Yesを選択"
　 Else
　　　MsgBox "Noを選択"
　 End If
End Sub

Sub ndmmm2()
　 Dim ans As Variant
　 ans = MsgBox("YES or No ?", vbYesNoCancel, "タイトル")
　 If ans = vbYes Then
　　　MsgBox "Yesを選択"
　 ElseIf ans = vbNo Then
　　　MsgBox "Noを選択"
　 Else
　　　MsgBox "キャンセルされました。"
　 End If
End Sub
【12735】Re:ループについて教えてください。
回答  IROC  - 04/4/13(火) 15:02 -
引用なし
パスワード
   Sub Sample()
Dim i As Long

　　For i = 1 To 3
　　　　If vbNo = MsgBox(i & " 回目", vbYesNo, "確認") Then
　　　　　　MsgBox "終了"
　　　　　　Exit Sub
　　　　End If
　　Next i
　　
　　MsgBox "マクロ実行"
End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12040 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free