あなたは仕事で毎回フォルダを作って、名前を付けるのが面倒だと思ったことはありませんか？
「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５．ボタンができた →ボタンを押す
ボタンができました。
６．「今日の日付（yyyymmdd）+セルの値」の新規フォルダができた
「問い合わせ」のセルを選択し、ボタンを押すと、「フォルダ作成が完了しました！」と出ます。
「20250329 問い合わせ」フォルダができました！
複数のフォルダも一気に作成できる！
次に複数セルを選択して、ボタンを押します。
複数フォルダも一気に作れました！
これならクリックだけでフォルダが作れるので、打ち込みの手間がゼロになります。
まとめ
エクセルでクリックだけで「今日の日付+選択したセルの値」のフォルダを新規作成するマクロボタンを作る方法です。
１．「開発」タブをクリック →「挿入」をクリック →「ボタン」をクリック
２．新規作成をクリック
３．コードを入れる画面が出る
４．コードを入力
５．ボタンができた →ボタンを押す
６．「今日の日付（yyyymmdd）+セルの値」の新規フォルダができた
これでフォルダ作成がグッと楽になりましたね！
定期的に大量のフォルダを作る場合で、今日の日付が要らない場合、リストを作っておいて、そこから一気に作ることもできます。
例えば、「1月、2月、3月・・・」や、「総務部、法務部、経理部・・・」のようなフォルダです。
下のリンク先でやり方を紹介していますので、参考にしてみて下さい。
コメント