Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1656 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【72820】クリアボタンについて show 12/9/22(土) 6:19 質問[未読]
【72821】Re:クリアボタンについて かみちゃん 12/9/22(土) 7:05 発言[未読]
【72826】Re:クリアボタンについて show 12/9/23(日) 4:29 質問[未読]
【72831】Re:クリアボタンについて かみちゃん 12/9/23(日) 10:35 発言[未読]
【72820】クリアボタンについて
質問  show  - 12/9/22(土) 6:19 -
引用なし
パスワード
   おはようございます。
VBAの編集についての質問です。
入力した値をクリアするのに、クリアボタンを下記の式にて作成しました。
Sub クリア()
'
' クリア Macro
' 入力領域をクリアするマクロ
'
'
　 Range("E7:E11").Select
　 Selection.ClearContents
　 Range("E14:E18").Select
　 Selection.ClearContents
End Sub

そこで、クリアする際に『消去しますか？』などの確認メッセージを表示したいのですが、どのようにすればよいでしょうか？？
どなたかご教授願います。
【72821】Re:クリアボタンについて
発言  かみちゃん E-MAIL  - 12/9/22(土) 7:05 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>クリアする際に『消去しますか？』などの確認メッセージを表示したい

MsgBox関数を使って、以下のような感じにします。

Sub Sample()
　If MsgBox("消去しますか？", vbYesNo) = vbYes Then
　　MsgBox "はいのときの処理"
　Else
　　MsgBox "いいえのときの処理"
　End If
End Sub
【72826】Re:クリアボタンについて
質問  show  - 12/9/23(日) 4:29 -
引用なし
パスワード
   ▼かみちゃん さん：
　
ありがとうございます。

ただ、『いいえ』のときの処理でもクリアされてしまうのですが、『いいえ』のときはクリアしなようにしたいです。

どのようにすればよいか教えてください。

お手数ですが、よろしくお願い致します。
【72831】Re:クリアボタンについて
発言  かみちゃん  - 12/9/23(日) 10:35 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

> 『いいえ』のときの処理でもクリアされてしまう

どのようなコードにしたのですか？
できないことがあるなら、どのようにしているのかは、具体的に説明していただいたほうがいいと思います。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1656 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free