https://kuuur.net/tech/excel/vbyesno
https://excel-vba.work/2021/11/18/%E3%80%90vba%E3%80%91%E3%80%8C%E3%81%AF%E3%81%84-%E3%81%84%E3%81%84%E3%81%88%E3%80%8D%E3%81%A7%E5%9B%9E%E7%AD%94%E3%81%A7%E3%81%8D%E3%82%8B%E8%B3%AA%E5%95%8F%E3%82%92%E3%81%97%E3%81%A6%E3%80%81/
https://uxmilk.jp/61379
-- 1. 開発タブの挿入でボタンを作成
※ActiveXコントロールのものを使用する
-- 2. デザインモードONで作成したボタンをダブルクリックするとエディタが開くので下記コードを記載。デザインモードOFFで実行
Private Sub CommandButton1_Click()
'画面を更新しない
Application.ScreenUpdating = False
'確認メッセージを表示しない
Application.DisplayAlerts = False
Dim Result As Long
Result = MsgBox("処理を続行しますか？", vbYesNo + vbQuestion)
If Result <> vbYes Then
GoTo endsub
End If
Dim path As String
Dim dirpath As String
path = ActiveWorkbook.path
dirpath = path & "\" & "dir_" & Format(Now, "yyyymmdd_hhnnss")
Debug.Print (dirpath)
If Dir(dirpath, vbDirectory) = "" Then
MkDir dirpath
End If
endsub:
'確認メッセージを表示する
Application.DisplayAlerts = True
'画面を更新する
Application.ScreenUpdating = True
End Sub
