Excel VBA質問箱 IV

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

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


12039 / 13645 ツリー ←次へ | 前へ→

【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 -

引用なし
パスワード
   マクロを登録したのですが。マクロを実行する前に、3回YES、NOで選ばせるようなことはできますか?おしえてください。困ってます。

【12727】Re:ループについて教えてください。
回答  IROC  - 04/4/13(火) 13:56 -

引用なし
パスワード
   選択されたときの条件(動作)が良く分かりませんが・・

Sub test()
 MsgBox "1回目", vbYesNo
 MsgBox "2回目", vbYesNo
 MsgBox "3回目", vbYesNo

 '処理

End Sub

【12730】Re:ループについて教えてください。
発言  シェフチェンコ  - 04/4/13(火) 14:17 -

引用なし
パスワード
   ▼IROC さん:
>選択されたときの条件(動作)が良く分かりませんが・・
>
>Sub test()
> MsgBox "1回目", vbYesNo
> MsgBox "2回目", vbYesNo
> MsgBox "3回目", vbYesNo
>
> '処理
>
>End Sub

処理をかける前に、選択させてYESなら実行してNOなら処理しないようにしたいです。わかりずらくてすみません。

【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

12039 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free