アクティブブックのバックアップファイルを作るマクロ コード Sub バックアップ作成() Dim originalFileName As String Dim backupFolder As String Dim backupFileName As String ' アクティブブックのファイル名を取得 originalFileName = ActiveWorkbook.…

複数のシートの指定したセル（この場合はB5の所属）に従って １つのファイルの中の複数シートを 所属ごとのファイルにコピーして振り分けるマクロ コード Sub シート振り分け() Dim SourceWB As Workbook Dim listsheet As Worksheet Dim CopyWB As Workbook…

マクロが入ってるエクセルと同じフォルダにあるサブフォルダから 中のファイルを 一括で取り出すマクロ コード Sub フォルダからファイルを取り出す() Dim MainFolder As String Dim FSO As Object Dim SourceFolder As Object Dim TargetFolder As Object D…

バラバラの名前で様々な部署から提出されたファイルを ファイルの中のセルの値に従ってファイル名を変更して フォルダごとに分けて 格納するマクロ コード Sub ファイル名変換とフォルダ作成と格納() Dim Path As String Dim FileName As String Dim Newfile…

バラバラのファイル名を 連番＋それぞれのファイルのセルの値＋任意の文言（この場合はA5の値＋（見積書））に 一括で変換するマクロ。 連番をつけないと同じ名前のファイルができそうなとき用のマクロ。 コード Sub ファイル名変換連番付き() Dim Path As S…

バラバラのファイル名を それぞれのファイルのセルの値＋任意の文言（この場合はA5の値＋（見積書））に 一括で変換するマクロ コード Sub ファイル名変換() Dim Path As String Dim FileName As String Dim NewfileName As String 'マクロエクセルが保存さ…

エクセルのファイル名に従って フォルダを振り分けて 格納するマクロ コード Sub フォルダ振り分け() Dim Path As String Dim FileName As String Dim FolderName As String 'フォルダのパスを取得 Path = ThisWorkbook.Path & "\" 'フォルダの中で拡張子が.…

マクロが入ってるエクセルと同じフォルダのエクセルと 同じ名前のフォルダを作って ファイルを格納するマクロ コード Sub ファイル名のフォルダを作って格納() Dim Path As String Dim FileName As String Dim FolderName As String 'フォルダのパスを取得 P…

マクロが入ってるエクセルと同じフォルダにある 【操作用フォルダ】の中のエクセルを開いて データを統合して 【処理済フォルダ】に移動させるマクロ 五月雨式にファイルが追加される場合などにその都度処理ができて便利。 下準備 マクロが入ってるエクセル…

何をマクロで自動化するか考えるときに 自分がやっている作業の何に時間がかかっているか確認することが大事。 そのために使っている時間記録表の作り方。 A列に作業開始時刻、B列に作業終了時刻、C列にやったこと、D列に所要時間を入力するようにしている。…

A列に入力された日付の名前のフォルダを 一括で作成するマクロ コード Sub フォルダ一括作成日付版() Dim lastrow As Long Dim i As Long '最終行を取得 lastrow = Cells(Rows.Count, 1).End(xlUp).Row '1行目から最終行まで繰り返し For i = 1 To lastrow '…

A列に入力されている名前に２桁の連番をつけて 一括でフォルダを作成するマクロ コード Sub フォルダ一括作成() Dim lastrow As Long Dim i As Long '最終行を取得 lastrow = Cells(Rows.Count, 1).End(xlUp).Row '1行目から最終行まで繰り返し For i = 1 To…

ブックの中にある複数のシートの情報を 一つのシートにまとめるマクロ コード Sub シートデータ統合() Dim WSCount As Long Dim WS As Worksheet Dim DataNumber As Long Dim RowCount As Long Dim i As Long 'シートの数を数える WSCount = Sheets.Count '…

インプットボックスに開始日と 終了日を入力すると A列に開始日から終了日までの日付が入力されるマクロ コード Sub 連続日付入力() Dim startDate As Date Dim endDate As Date Dim currentCell As Range ' 開始日と終了日を入力してください startDate = D…

ブックの中にあるシートを 一括でCSV出力するマクロ コード Sub csv出力() Dim ws As Worksheet '全てのシートに処理 For Each ws In ThisWorkbook.Worksheets 'シートをcsv形式でシートの名前で保存 ws.SaveAs FileName:=ThisWorkbook.Path & "\" & ws.Name…

黄色マーカーの文書みたいに 会社名とか氏名とかだけ変えて、あとは同じ内容でいい時。 ブイルックアップ関数とマクロを組み合わせて 開始番号と 終了番号を指定して 連続でシートを作成するマクロ。 下準備 ①個別情報が入ったリストを用意する ②それぞれの…

黄色マーカーの文書みたいに 会社名とか氏名とかだけ変えて、あとは同じ内容でいい時。 ブイルックアップ関数とマクロを組み合わせて任意の番号だけ印刷するマクロ。 ワードの差し込み印刷でもいいんだけど、エクセルだけでやりたいとき用。 連続印刷ではな…

黄色マーカーの文書みたいに 会社名とか氏名とかだけ変えて、あとは同じ内容でいい時。 ブイルックアップ関数とマクロを組み合わせて連続印刷するマクロ。 ワードの差し込み印刷でもいいんだけど、エクセルだけでやりたいとき用。 下準備 ①個別情報が入った…

フォルダ内の全エクセルに マクロファイルに入っているシートを 一括コピーするマクロ コード Sub シート一括コピー() Dim Path As String Dim FileName As String Dim SourceWB As Workbook Dim CopyWB As Workbook Dim SourceWS As Worksheet 'マクロエク…

マクロと同じフォルダのエクセルブックを全て開いて 指定したシートから、連続印刷するマクロ 例えば、全てのファイルの冒頭に記入例がついてるけど 記入例は印刷しなくて良くて 記入例以降のシートを連続印刷したいとき用のマクロ。 今回は例として黄色マー…

マクロが入ってるエクセルと同じフォルダのエクセルファイルを開いて 全てのシートを印刷するマクロ コード Sub 全シート印刷シンプル() Dim Path As String Dim FileName As String Dim WB As Workbook Dim WS As Worksheet 'マクロエクセルが保存されてい…

マクロが入ってるエクセルと同じフォルダにあるエクセルの それぞれのシートを マクロが入ってるエクセルに統合する。 コード Sub シート統合() Dim Path As String Dim FileName As String Dim CopyWB As Workbook Dim SourceWB As Workbook Dim SourceWork…

フォルダの中にある複数のエクセルファイルを開いて 一つのシートに統合してリストを作るマクロ コード Sub データ統合() Dim Path As String Dim FileName As String Dim DataNumber As Long Dim RowsCount As Long Dim WS As Worksheet 'マクロエクセルが…

コード Sub メールにファイルを一括添付する() Dim objOutlook As Object Dim objNamespace As Object Dim objFolder As Object Dim objMailItem As Object Dim objAttachment As Object Dim strFolderPath As String Dim strPDFPath As String Dim strFileN…

メールで同じ文章を氏名とか個別情報だけを変えて、それぞれのメールアドレスに送りたいときの操作方法 まず、送りたい文章のひな型をワードで作成する。 同時にエクセルでメールアドレスと氏名など、各自で変更したいことのリストを作成する。 今回は、部署…

フォルダ内のパスワード付きエクセルを パスワードリストに沿って解除するマクロ コード Sub 個別パスワード一括解除() Dim FolderPath As String Dim wb As Workbook Dim ws As Worksheet Dim lastrow As Long Dim i As Long Dim FilePath As String ' フォ…

マクロエクセルと同じフォルダにあるエクセルファイルに リストに沿ってそれぞれ個別のパスワードを付与するマクロ コード Sub 個別パスワード一括設定() Dim FolderPath As String Dim wb As Workbook Dim response As VbMsgBoxResult Dim ws As Worksheet …

同じフォルダの中にあるパスワードが同じエクセルのパスワードを インプットボックスに一回入力するだけで一括して解除するマクロ Sub パスワード一括解除() Dim FolderPath As String Dim Password As String Dim Filename As String Dim wb As Workbook ' …

フォルダ内にあるエクセル（拡張子がxlsxのもの）に インプットボックスで入力したパスワードを 一括で設定するマクロ コード Sub パスワード一括設定() Dim FolderPath As String Dim Password As String Dim Filename As String Dim wb As Workbook Dim re…