メインコンテンツへスキップ

Excelのセル値に基づいてフォルダをすばやく作成するにはどうすればよいですか?

ワークシートの範囲にスタッフ名のリストがあり、セル内に各スタッフの情報を記録するためにいくつかのフォルダーを作成するとします。 フォルダをXNUMXつずつ作成すると、多くの時間を浪費します。 しかし、どうすればこれらのフォルダをすばやく作成できますか? 今日は、いくつかの簡単なトリックを紹介します。

VBAコードを使用してセル値に基づいてフォルダーを作成する

Kutools for Excelを使用して、セル値に基づいてフォルダーをすばやく作成する良いアイデア3


VBAコードを使用してセル値に基づいてフォルダーを作成する

たとえば、ワークシートにさまざまな名前があり、それぞれにフォルダーを作成し、VBAコードを使用して指定したパスに保存すると、このタスクを完了できます。

1。 アクティブなブックを、作成したフォルダーを配置する特定のディレクトリに配置します。 ブックを開き、使用するセルの範囲を選択します。

doc-create-folders1

2に設定します。 OK をクリックします。 Developer > ビジュアルベーシック、新しいです アプリケーション用のMicrosoftVisual Basic ウィンドウが表示されたら、をクリックします インセット > モジュール、および次のコードをモジュールに入力します。

VBAコード:セルの値に基づいてフォルダーを作成する

Sub MakeFolders()
Dim Rng As Range
Dim maxRows, maxCols, r, c As Integer
Set Rng = Selection
maxRows = Rng.Rows.Count
maxCols = Rng.Columns.Count
For c = 1 To maxCols
r = 1
Do While r <= maxRows
If Len(Dir(ActiveWorkbook.Path & "\" & Rng(r, c), vbDirectory)) = 0 Then
MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))
On Error Resume Next
End If
r = r + 1
Loop
Next c
End Sub

3に設定します。 OK をクリックします。 doc-乗算-計算-3 ボタンを押してコードを実行します。 選択したすべてのセルが、それらの値とともにフォルダーに作成されました。 また、フォルダはアクティブなブックと同じパスに配置されます。 スクリーンショットを参照してください:

doc-create-folders2


Kutools for Excelを使用して、セル値に基づいてフォルダーをすばやく作成する

ツール-Kutoolsfor Excelを使用すると、セル値に基づいてフォルダを作成するのが簡単で便利です。

Kutools for Excel, 以上で 300 便利な機能は、あなたの仕事をより簡単にします。 

インストールした後 Kutools for Excel、以下のようにしてください:(今すぐExcel用のKutoolsを無料でダウンロードしてください!)

1。 フォルダを作成する範囲を選択します。

2に設定します。 OK をクリックします。 クツールズプラス > インポート・エクスポート > セルの内容からフォルダを作成する…、スクリーンショットを参照してください:

doc作成フォルダ1

3。 の中に セルの内容からフォルダを作成する ダイアログボックスで、をクリックします。 doc-create-folders3ボタンをクリックして、フォルダを保存するパスを指定します。 見られるスクリーンショット:

doc作成フォルダ2

4に設定します。 OK をクリックします。 OK。 また、プロンプトボックスは、作成されたフォルダの数を通知します。 スクリーンショットを参照してください:

doc作成フォルダ3

5に設定します。 OK をクリックします。 OK。 そして、選択された範囲のすべての値は、指定されたフォルダー内のフォルダーに作成されています。
doc作成フォルダ4


フォルダからシートにすべてのファイル名を一覧表示します

この関数についてもっと知るために。

これがKutoolsfor Excelのユーティリティです– ファイル名リスト シート内のフォルダのすべてのファイル名を一覧表示できます。興味がある場合は、読み続けてください。

インストールした後 Kutools for Excel、以下のようにしてください:(今すぐExcel用のKutoolsを無料でダウンロードしてください!)

1。 クリック クツールズプラス > 輸出入 > ファイル名リスト.
doc作成フォルダ5

2。 の中に ファイル名リスト ダイアログで、ファイルを一覧表示するフォルダを選択し、チェックします すべてのファイル or 指定 必要に応じてオプション ファイルタイプs
img src="//cdn.extendoffice.com / images / stories / doc-excel / create-folders / doc-create-folder-6.png "alt =" doc create folder 6 "/>

3。 クリック Ok、すべてのファイル名といくつかの相対情報を含む新しいシートが作成されます。
doc作成フォルダ7

最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (62)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This worked really well, even for someone with zero experience with VBA :-)
Would it be possible to adapt the macro or extend the macro to also create hyperlinks to the folders in the selected cells?
So for instance, Cell A3 is selected and you run the macro and the folder is created. Would it be possible to make cell A3 a hyperlink to the folder by expanding on the macro instead of doing that manually?
This comment was minimized by the moderator on the site
Hello, Marloes
To create hyperlinks for the cell values, the following vba code may help you:

First, please select the cell values, and then run this code, and select a folder for outputting the folders.

Sub MakeFoldersAndAddHyperlinksWithFolderSelection()
    Dim Rng As Range
    Dim maxRows, maxCols, r, c As Integer
    Dim folderPath As String
    Dim baseFolderPath As String
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    
    With fd
        If .Show = -1 Then
            baseFolderPath = .SelectedItems(1) & "\"
        Else
            MsgBox "No folder selected. Operation Cancelled."
            Exit Sub
        End If
    End With
    
    Set Rng = Selection
    maxRows = Rng.Rows.Count
    maxCols = Rng.Columns.Count
    
    For c = 1 To maxCols
        For r = 1 To maxRows
            folderPath = baseFolderPath & Rng.Cells(r, c).Value
            If Len(Dir(folderPath, vbDirectory)) = 0 Then
                MkDir folderPath
                On Error Resume Next
                ActiveSheet.Hyperlinks.Add Anchor:=Rng.Cells(r, c), Address:=folderPath, TextToDisplay:=Rng.Cells(r, c).Value
                On Error GoTo 0
            End If
        Next r
    Next c
End Sub


Please have a try, thank you!
This comment was minimized by the moderator on the site
please, i need that same macro but instead of saving them as folders, i need it to save as Excels.
This comment was minimized by the moderator on the site
is it possible to introduce a condition where if that condition is met the module can create 2 folders (each using a different path)?
if the first list of folders is in the A column then the condition occurs in the U column. The conditional criteria is whether the cell is empty or not.
if the condition is not met the module only makes one folder based on the selection.
This comment was minimized by the moderator on the site
Hi, a_c, sorry I have not found a method can solve this job yet.
This comment was minimized by the moderator on the site
Thank you very much
This comment was minimized by the moderator on the site
Thanks a lot! Your VBA code is really super
This comment was minimized by the moderator on the site
Is it possible to import data from a word to excel on colors algorythme? So, I spell the cities with red and countries with blue in a word, and the to import only these to excel. I don’t know if I made myself clear. Thanks
This comment was minimized by the moderator on the site
Thank you, this has saved me literally days of work.
This comment was minimized by the moderator on the site
Hello,


For the following code it shows error in

MkDir (ActiveWorkbook.Path & "\" & Rng(r, c))



It says Runtime error 76 path not found



Can someone please help me with this?

There are no unsupported characters in the file path.
Not sure what could be the problem

Thanks for the help!
This comment was minimized by the moderator on the site
thank you , time saved
This comment was minimized by the moderator on the site
Thanks you. Tried the first method. Works perfectly.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations