エクセルで大量のフォルダを一度に新規作成するマクロボタンを作る方法

エクセル

あなたは決まったフォルダを定期的に作るのが面倒だと思ったことはありませんか?

報告書や予定表などで「1月」~「12月」のフォルダを作ったり、県別の「北海道」~「沖縄」のフォルダを作ったり、繰り返し同じフォルダを作るのは、意外と大変ですよね。

エクセルのVBA・マクロを使えば、一瞬で大量の新規フォルダを作れます。

今回は「エクセルで大量のフォルダを一度に新規作成するマクロボタンを作る方法」を紹介します。

エクセルで大量のフォルダを一度に新規作成するマクロボタンを作る方法

エクセルで大量のフォルダを一度に新規作成するマクロボタンを作る方法です。

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

下の画像のように1月~12月のフォルダを、デスクトップに新規作成する方法を例に紹介します。

1.「開発」タブをクリック →「挿入」をクリック →「ボタン」をクリック

2.「新規作成」をクリック

3.コード入力画面が開く

4.コードを入力

コードを入力します。

いろいろ書いてありますが、Sheet30のA2~A13セルの名前の新規フォルダを、デスクトップに作成する、という意味です。

赤枠部のコードです。

Dim fso As Object
Dim folderName As Range
Dim desktopPath As String

‘ デスクトップパスを取得
desktopPath = Environ(“USERPROFILE”) & “\Desktop\”

‘ FileSystemObjectを作成して、新しいフォルダを作成する
Set fso = CreateObject(“Scripting.FileSystemObject”)

‘ A2~A13セルに記載されたフォルダ名を使用して、Desktop上にフォルダを作成する
For Each folderName In ThisWorkbook.Sheets(“Sheet30”).Range(“A2:A13”)
   fso.CreateFolder desktopPath & folderName.Value
Next folderName

Set fso = Nothing

コードを入力したら、コードの入力画面を閉じて下さい。

5.ボタンができた

ボタンができました。

6.ボタンをクリック

7.デスクトップにフォルダができた

まとめ

エクセルで大量のフォルダを一度に新規作成するマクロボタンを作る方法です。

1.「開発」タブをクリック →「挿入」をクリック →「ボタン」をクリック

2.新規作成をクリック

3.コードを入れる画面が出る

4.コードを入力

5.ボタンができる

6.ボタンをクリック

7.デスクトップに大量の新規フォルダができる

これで定期的な大量のフォルダ作成が楽になりますね~。

ちなみに、1~12月以外にも、担当者別、ユーザー別、営業所別、部署別、店舗別、商品別など、色々なフォルダ作成に活用できますので、便利に使ってみて下さい。

大量のフォルダを作る場面も多いと思いますが、大量のシートを作る場面も意外と多くないですか?

それもマクロを使えば、一発でたくさんのシートを作れます。

作り方を知りたい方は下のリンクからどうぞ。

→エクセルで複数のシートを一度に作るマクロボタンを作る方法

たくさんあるフォルダのリストを作りたいときにも、エクセルマクロで一気に作れます。

フォルダ名をいちいちコピぺしていくのは面倒ですから、マクロで簡単にリスト化しましょう!

→エクセルでフォルダー内のフォルダーリストをシートに書き出すマクロボタンを作る方法

コメント

タイトルとURLをコピーしました