何をマクロで自動化するか考えるときに役立つ時間記録表の作り方

何をマクロで自動化するか考えるときに 自分がやっている作業の何に時間がかかっているか確認することが大事。 そのために使っている時間記録表の作り方。 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…

ブイルックアップを使って同じ書式に個別情報を代入しながら連続でシートを作成するマクロ

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