アクティブシートのリストを 指定した列の値ごとに 分割してシートに分けるマクロ コード Sub リスト分割応用() Dim c As Long Dim r As Long Dim ws1 As Worksheet Dim ws2 As Worksheet Dim ws3 As Worksheet Dim listLastRow As Long Dim filterColumn As…

ブックの中の各シートの指定の行（この場合はH列）が空白だったら 色がつくよう条件付き書式を設定するマクロ セルに値を入力すると 色が消える設定。 コード Sub 空白セルの強調() Dim ws As Worksheet Dim r As Long Dim rng As Range Dim cell As Range '…

マクロが入ってるエクセルと同じフォルダのエクセルファイル名が リストの中にあった時 チェックしてくれるマクロ 下準備 チェックリストを準備する。 チェックリストは氏名の間のスペースを開けないこと。 ファイル名変換のマクロと組み合わせて使うとよい…

表に入力されたデータに従って 開始日から終了日までの平日の連続データを作って csvを自動作成するマクロ 下準備 マクロを入れるエクセルに「マクロ」という名前のシートを作成し、以下のような形式で元データとなる表を入力する。 「csv」シートを作成し先…

表に入力されたデータに従って 開始日から終了日までの連続データを作って csvを自動作成するマクロ 下準備 マクロを入れるエクセルに「マクロ」という名前のシートを作成し、以下のような形式で元データとなる表を入力する。 「csv」という名前のシートを作…

アクティブブックのバックアップファイルを作るマクロ コード 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…

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