Excel VBA質問箱 IV

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

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


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

43436 / 76735

←次へ　｜　前へ→


	【38347】Re:追加です。

Blue - 06/5/31(水) 15:56 -


	引用なし

	パスワード

Private Sub 登録_Click()

bunki

★こっから入力するコード

とかいても、メッセージボックスの結果にかかわらず、入力されてしまいます。

Private Sub 登録_Click()

　 Select Case MsgBox("本当にいいですか？", vbYesNo)
　 Case vbYes
　　 MsgBox "はいがクリックされました"
　 Case vbNo
　　 MsgBox "いいえがクリックされました"
　　 Exit Sub ' これ以降の処理はしない！
　 End Select

Range("a65536").End(xlUp).Offset(1).Select
.
.
.

というようにしてみてください。
　　

0 hits

▼

【38340】メッセージボックスの分岐について yukari 06/5/31(水) 15:30