おしえて

excelマクロ教えてください

解決済

質問者：komtan
質問日時：2020/10/13 05:17
回答数：2件

作ったシートの月更新の為　時間のセルを削除しようと思い　記録でマクロを作り釦に登録しました。
Sub クリア()
>>
>> '
>>
>> ' クリアMacro
>>
>> '
>>
>> '
>>
>> Range("D8:D22,F8:F22,K8:K23,M8:M23").Select
>>
>> Range("M8").Activate
>>
>> Selection.ClearContents
>>
>> End Sub

しかし　間違って押してしまうと困るので　１度確認したいと考えました。
https://tripbowl.com/excel-vba/msgbox/#toc4
を見つけたのですが、
Private Sub CommandButton1_Click()
msg = MsgBox(“削除削除しますか？”, Buttons:=vbYesNo)
If msg = vbYes Then
をどの様に、使えば良いのでしょうか？

詳しい方、お教えください

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.2ベストアンサー

回答者： zongai
回答日時：2020/10/13 06:17

マクロの記録から自分で作って見てる感じでしょうか？

見つけた記事を参考に取り入れると。

Sub クリア()
' クリアMacro
　　msg = MsgBox("削除削除しますか？", Buttons:=vbYesNo)
　　If msg = vbYes Then
　　　　Range("D8:D22,F8:F22,K8:K23,M8:M23").Select
　　　　Range("M8").Activate
　　　　Selection.ClearContents
　　End If
End Sub

こんな感じになりますね。

で、余分と思われる処理を除外すると、
こんな感じに短くできます。

Sub クリア()
　　If MsgBox("削除しますか？", vbYesNo) = vbYes Then
　　　　Range("D8:D22,F8:F22,K8:K23,M8:M23").ClearContents
　　End If
End Sub

範囲を選択➙選択範囲をクリア
という処理を、
指定範囲をクリア
と簡略化できます。