2023-01-01から1年間の記事一覧

アクティブシートのリストを指定した列の値ごとに分割してシートに分けるマクロ

アクティブシートのリストを 指定した列の値ごとに 分割してシートに分けるマクロ コード 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を自動で作成するマクロ

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

アクティブブックのバックアップを作るマクロ

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

各シートの指定したセルの値に従ってシートを分割してファイルに振り分けるマクロ

複数のシートの指定したセル(この場合はB5の所属)に従って 1つのファイルの中の複数シートを 所属ごとのファイルにコピーして振り分けるマクロ コード 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列に入力されている名前に2桁の連番をつけて 一括でフォルダを作成するマクロ コード 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出力するマクロ

ブックの中にあるシートを 一括で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…

アウトルックとワードの差し込み印刷を使って、一部分だけ変更しつつそれぞれのメールアドレスに同じ文章を送る方法

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