あなたはフォルダー内のフォルダーリストを作りたいとき、フォルダー名を一つずつコピペするのが面倒だったことはありませんか？
エクセルのVBA・マクロを使えば、自動でエクセルシートにリストを抽出し、一覧表を作れます。
今回は「エクセルでフォルダー内のフォルダーリストをシートに書き出すマクロボタンを作る方法」を紹介します。
エクセルでフォルダー内のフォルダーリストをシートに書き出すマクロボタンを作る方法
エクセルでフォルダー内のフォルダーリストをシートに書き出すマクロボタンを作る方法です。
マクロを作るときは、「開発」タブを使います。
開発タブが出ていない方は、下のリンクで出し方を紹介していますので、まずは準備をお願いします。
→エクセルで開発タブを表示する方法
下の画像のように、A1～A9セルにフォルダーにリストを抽出するのを例に紹介します。
１．「開発」タブをクリック →「挿入」をクリック →「ボタン」をクリック
２．「新規作成」をクリック
３．コード入力画面が開く
４．コードを入力
コードを入力します。
デスクトップの、仕事Aフォルダ内の、全てのサブフォルダを検索し、フォルダ名をエクセルシートに表示する、という意味です。
赤枠部のコードです。
Dim MyFolder As String, MySubFolder As String
Dim i As Long
MyFolder = Environ(“USERPROFILE”) & “\Desktop\仕事A\”
MySubFolder = Dir(MyFolder & “*”, vbDirectory)
i = 1
Do While MySubFolder <> “”
If MySubFolder <> “.” And MySubFolder <> “..” Then
If (GetAttr(MyFolder & MySubFolder) And vbDirectory) = vbDirectory Then
Range(“A” & i).Value = MySubFolder
i = i + 1
End If
End If
MySubFolder = Dir()
Loop
コードを入力したら、コードの入力画面を閉じて下さい。
５．ボタンができた
ボタンができました。
６．「仕事A」のフォルダ内
デスクトップの仕事Aのフォルダ内は下のようになっているとします。
７．ボタンをクリック
８．リストに反映される
先程のフォルダ名「A～E」がリストに反映され、一覧が作成できました。
これでフォルダ名をコピペしなくて良くなりましたね。
まとめ
エクセルでフォルダー内のフォルダーリストをシートに書き出すマクロボタンを作る方法です。
１．「開発」タブをクリック →「挿入」をクリック →「ボタン」をクリック
２．新規作成をクリック
３．コードを入れる画面が出る
４．コードを入力
５．ボタンができる
６．ボタンをクリック
７．リストができる
これでファイル一覧表の作成が楽になりました。
フォルダーリスト以外にも、エクセルのシート名をリスト化したいときもありますよね。
下のリンク先もご参考下さい。
フォルダーのリスト化以外にも、エクセル内のデータリストから一部を抽出したいときもありますよね。
名簿の抽出や、TO DOリストの抽出など。
エクセルでチェックしたところだけを抽出する方法を紹介していますので、下のリンク先へどうぞ。
コメント