yes no の確認
本文sub yes no の確認()
dim kotae as integer
kotae=msgbox “データを削除しますか”、＿
vbyesno+vbquestion+vbdefaultbutton2,”確認”)
if kotae =vbyes then
range(“a4:c6”).clearcontents
msgbox “データを削除しました”
else
msgbox “操作をキャンセルしました”
end if
end sub