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

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