アクティブシートのリストを 指定した列の値ごとに 分割してシートに分けるマクロ コード 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の所属)に従って 1つのファイルの中の複数シートを 所属ごとのファイルにコピーして振り分けるマクロ コード Sub シート振り分け() Dim SourceWB As Workbook Dim listsheet As Worksheet Dim CopyWB As Workbook…