エクセルでクリックだけで「今日の日付+選択したセルの値」のフォルダを新規作成するマクロボタンを作る方法

You

4日前

あなたは仕事で毎回フォルダを作って、名前を付けるのが面倒だと思ったことはありませんか？

「20250329　問い合わせ」

「20250329　見積依頼」

「20250329　見積回答」　

　・・・など、「yyyymmdd　〇〇」の形で、新しいフォルダを作って資料を保存することは多いですよね。

ファイル名やフォルダ名はテキトーに付けると行方不明になるので、ちゃんとつけておきたいですが、つい後回しにしがちです。

エクセルマクロなら、フォルダを作る時に名前も付けて自動作成してくれます。

今回は「エクセルでクリックだけで「今日の日付+選択したセルの値」のフォルダを新規作成するマクロボタンを作る方法」を紹介します。

エクセルでクリックだけで「今日の日付+選択したセルの値」のフォルダを新規作成するマクロボタンを作る方法
複数のフォルダも一気に作成できる！
まとめ

エクセルでクリックだけで「今日の日付+選択したセルの値」のフォルダを新規作成するマクロボタンを作る方法

エクセルでクリックだけで「今日の日付+選択したセルの値」のフォルダを新規作成するマクロボタンを作る方法です。

今回は下の画像のようなフォルダを、デスクトップに新規作成+フォルダ名を付けて保存するのを例に紹介します。

「20250329　問い合わせ」

「20250329　見積依頼」などのフォルダを作ります。

マクロを作るときは、「開発」タブを使います。
開発タブが出ていない方は、下のリンクで出し方を紹介していますので、まずは準備をお願いします。
→エクセルで開発タブを表示する方法

１．「開発」タブをクリック　→「挿入」をクリック　→「ボタン」をクリック

２．「新規作成」をクリック

３．コード入力画面が開く

４．コードを入力

コードを入力します。

赤枠部のコードです。

    Dim cell As Range
    Dim folderPath As String
    Dim desktopPath As String
    Dim todayDate As String
    
    ' デスクトップのパスを取得
    desktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
    
    ' 今日の日付を取得（yyyyMMdd形式）
    todayDate = Format(Date, "yyyymmdd")
    
    ' 選択されたセルをループ処理
    For Each cell In Selection
        ' セルの値が空白でない場合
        If cell.Value <> "" Then
            ' フォルダのパスを作成
            folderPath = desktopPath & "\" & todayDate & " " & cell.Value
            
            ' フォルダが存在しない場合に作成
            If Dir(folderPath, vbDirectory) = "" Then
                MkDir folderPath
            End If
        End If
    Next cell
    
    MsgBox "フォルダ作成が完了しました！", vbInformation

５．ボタンができた　→ボタンを押す

ボタンができました。