. EXCEL VBA シフト管理を簡単に！自動生成マクロの紹介・従業員のシフト表を自動生成（テクニック）
EXCEL VBA シフト管理を簡単に！自動生成マクロの紹介・従業員のシフト表を自動生成（テクニック）
EXCEL VBA シフト管理を簡単に！自動生成マクロの紹介・従業員のシフト表を自動生成（テクニック）

EXCEL VBA シフト管理を簡単に！自動生成マクロの紹介・従業員のシフト表を自動生成（テクニック）

EXCEL VBA シフト管理を簡単に！自動生成マクロの紹介・従業員のシフト表を自動生成（テクニック）

●はじめに

●【EXCEL VBA 氏名からメールアドレスを自動生成・名前情報からメールを作成・業務効率化パスワードについては、下記を参照して下さい】

●【EXCEL VBA パスワードの自動作成・ランダムパスワードの生成については、下記を参照して下さい】

EXCEL VBA シフト管理を簡単に！従業員のシフト表を自動生成（月曜日～日曜日のシフト表）

●プログラム説明 （サンプル①）

【プログラムの流れ】

  1. 変数の宣言
  2. 従業員リスト、シフトの種類、曜日リストを配列に格納
  3. シフト表ワークシートを選択
  4. シフト表をクリア
  5. セルに従業員名を入力
  6. セルに曜日を入力
  7. セルにシフトをランダムに割り当て
  8. セル書式設定
  9. 印刷範囲の設定

【プログラム実行条件・注意事項】

  1. 実行条件：このコードは、ExcelにてVBAマクロを実行可能な環境が必要です。また、「シフト表」という名前のワークシートが存在していることが前提です。
  2. 注意事項：シフトの割り当てが完全にランダムで行われるため、実際の業務要件や従業員の希望などは考慮されません。また、コードを実行する度にシフト表がクリアされ、新しいシフト表が作成されるため、適切なタイミングで実行してください。
  3. 完全にランダムで行われるため、実際の業務要件や従業員の希望などは考慮されません。

★【サンプルプログラム】 下記のリンク先よりサンプルプログラムをダウンロードする事ができます。 ● Shift_schedule01（サンプルプログラム）

Sub CreateShiftSchedule()’シフト表の作成 Visual Basic Option Explicit Sub CreateShiftSchedule ( ) Dim ws As Worksheet Dim i As Integer Dim j As Integer Dim employees As Variant Dim shifts As Variant Dim days As Variant ' 従業員リストを配列に格納 employees = Array ( "山田 太郎" , "佐藤 次郎" , "鈴木 三郎" , "高橋 四郎" , "伊藤 五郎" ) ' シフトの種類を配列に格納 shifts = Array ( "午前" , "午後" , "休み" ) ' 曜日リストを配列に格納 days = Array ( "月" , "火" , "水" , "木" , "金" , "土" , "日" ) ' シフト表ワークシートを選択 Set ws = ThisWorkbook . Worksheets ( "シフト表" ) ' シフト表をクリアします。 ws . Cells . Clear ' セルに従業員名を入力 For i = LBound ( employees ) To UBound ( employees ) ws . Cells ( i + 2 , 1 ) . Value = employees ( i ) For i = LBound ( days ) To UBound ( days ) ws . Cells ( 1 , i + 2 ) . Value = days ( i ) ' セルにシフトをランダムに割り当て For i = LBound ( employees ) To UBound ( employees ) For j = LBound ( days ) To UBound ( days ) ws . Cells ( i + 2 , j + 2 ) . Value = shifts ( Int ( ( UBound ( shifts ) + 1 ) * Rnd ( ) ) ) With ws . Range ( "A1" ) . Resize ( UBound ( employees ) + 2 , UBound ( days ) + 2 ) . Cells ( 1 , 1 ) . Value = "氏名/曜日" . Rows ( 1 ) . Interior . Color = RGB ( 255 , 255 , 153 ) . Borders . LineStyle = xlContinuous . HorizontalAlignment = xlCenter . VerticalAlignment = xlCenter . Columns ( 1 ) . ColumnWidth = 15 . Rows ( 1 ) . RowHeight = 20 . Rows ( 1 ) . Font . Bold = True

ws . PageSetup . PrintArea = ws . Range ( "A1" ) . Resize ( UBound ( employees ) + 2 , UBound ( days ) + 2 ) . Address

●実行前～実行後 ※プログラムを実行すると、指定された従業員と曜日に対してランダムなシフトが割り当てられたシフト表が作成されます。シフト表ワークシートに従業員名、曜日、シフトの割り当てが整形されて出力されます。【注意】：シフト表の内容は、完全にランダムで行われるため、実際の業務要件や従業員の希望などは考慮されません。

EXCEL VBA シフト管理を簡単に！従業員のシフト表を自動生成（シフト表/開始日・作成日数を設定）

●プログラム説明 （サンプル②）

【プログラムの流れ】

  1. 変数を宣言し、従業員リストとシフトの種類を配列に格納します。
  2. 開始日と日数をInputBoxで入力し、変数に格納します。
  3. シフト表ワークシートを選択し、内容をクリアします。
  4. 従業員名をセルに入力します。
  5. 日付と曜日を入力し、土日を赤字で表示します。
  6. シフトをランダムに割り当てます。
  7. セルの書式設定を行います。
  8. シフト種類の日別計をカウントし、表示します。
  9. 印刷範囲を設定します。

【プログラム実行条件・注意事項】

  1. 実行条件: Excelがインストールされており、VBAが利用可能であること。また、このコードを実行するワークブックには、”シフト表”という名前のワークシートが存在している必要があります。
  2. 注意事項: 開始日と日数は正しい形式で入力する必要があります。また、従業員リストやシフトの種類を変更する場合は、コード内の配列を編集してください。
  3. 完全にランダムで行われるため、実際の業務要件や従業員の希望などは考慮されません。

★【サンプルプログラム】 下記のリンク先よりサンプルプログラムをダウンロードする事ができます。 ● Shift_schedule02（サンプルプログラム）

Sub CreateShiftSchedule02() Visual Basic Option Explicit Sub CreateShiftSchedule02 ( ) Dim ws As Worksheet Dim i As Integer Dim j , k As Integer Dim employees As Variant Dim shifts As Variant Dim startDate As Date Dim totalDays As Integer employees = Array ( "山田 太郎" , "佐藤 次郎" , "鈴木 三郎" , "高橋 四郎" , "伊藤 五郎" ) shifts = Array ( "午前" , "午後" , "休み" ) ' 開始日・日数をInputBoxで登録 startDate = InputBox ( "シフト表の開始日を入力してください（例: 2023/4/22）:" , "開始日" ) totalDays = InputBox ( "シフト表の日数を入力してください（例: 30）:" , "日" ) ' シフト表ワークシートを選択 Set ws = ThisWorkbook . Worksheets ( "シフト表" ) ' シフト表をクリアします。 ws . Cells . Clear ' セルに従業員名を入力 For i = LBound ( employees ) To UBound ( employees ) ws . Cells ( i + 3 , 1 ) . Value = employees ( i ) For i = 0 To totalDays - 1 ws . Cells ( 1 , i + 2 ) . Value = DateAdd ( "d" , i , startDate ) ws . Cells ( 2 , i + 2 ) . Value = Format ( ws . Cells ( 1 , i + 2 ) . Value , "[$-411]aaa" )

If Weekday ( ws . Cells ( 1 , i + 2 ) . Value ) = 1 Or Weekday ( ws . Cells ( 1 , i + 2 ) . Value ) = 7 Then

ws . Cells ( 1 , i + 2 ) . Font . Color = RGB ( 255 , 0 , 0 ) ws . Cells ( 2 , i + 2 ) . Font . Color = RGB ( 255 , 0 , 0 ) ' シフトをランダムに割り当て For i = LBound ( employees ) To UBound ( employees ) For j = 0 To totalDays - 1 ws . Cells ( i + 3 , j + 2 ) . Value = shifts ( Int ( ( UBound ( shifts ) + 1 ) * Rnd ( ) ) ) With ws . Range ( "A1" ) . Resize ( UBound ( employees ) + 4 , totalDays + 1 ) . Cells ( 1 , 1 ) . Value = "日付" . Cells ( 2 , 1 ) . Value = "曜日" . Rows ( 1 ) . Interior . Color = RGB ( 255 , 255 , 153 ) . Rows ( 2 ) . Interior . Color = RGB ( 153 , 255 , 255 ) . Borders . LineStyle = xlContinuous . HorizontalAlignment = xlCenter . VerticalAlignment = xlCenter . Columns ( 1 ) . ColumnWidth = 15 . Rows ( 1 ) . RowHeight = 20 . Rows ( 1 ) . Font . Bold = True . Rows ( 2 ) . Font . Bold = True ' シフト種類の日別計をカウント ' シフト種類の日別計をカウント For j = 0 To totalDays - 1 For k = LBound ( shifts ) To UBound ( shifts )

ws . Cells ( UBound ( employees ) + 4 , j + 2 ) . Value = ws . Cells ( UBound ( employees ) + 4 , j + 2 ) . Value & Application . WorksheetFunction . CountIf ( ws . Range ( ws . Cells ( 3 , j + 2 ) , ws . Cells ( UBound ( employees ) + 2 , j + 2 ) ) , shifts ( k ) ) & shifts ( k ) & " "

ws . PageSetup . PrintArea = ws . Range ( "A1" ) . Resize ( UBound ( employees ) + 4 , totalDays + 1 ) . Address

●実行前～実行後 ※プログラムを実行すると、指定された開始日と日数に基づくシフトスケジュールが作成されます。従業員名、日付、曜日、ランダムに割り当てられたシフトが表示され、土日の日付と曜日は赤字で表示されます。また、シフト種類の日別計がカウントされ、表示されます。

EXCEL VBA シフト管理を簡単に！従業員のシフト表を自動生成（シフト表/開始日・作成日数を設定）

●プログラム説明(サンプル③)

【プログラムの流れ】

  1. 開始日と日数をInputBoxで取得する。
  2. シフト表ワークシート（ws）および設定ワークシート（wsSettings）を選択する。
  3. シフト表ワークシートをクリアする。
  4. 日付と曜日をシフト表ワークシートに入力する。土日は赤字で表示する。
  5. 従業員名をシフト表ワークシートに入力する。
  6. シフトをランダムに割り当てる。
  7. セル書式を設定する。
  8. シフト種類の日別集計を行う。
  9. 印刷範囲を設定する。

【プログラム実行条件・注意事項】

  1. シフト表ワークシート（”シフト表”）および設定ワークシート（”設定”）が存在する必要があります。
  2. 設定ワークシートには、従業員名とシフトタイプがそれぞれ入力されている必要があります。
  3. 開始日と日数は、適切な形式で入力する必要があります（例: 2023/4/22、30）。
  4. 完全にランダムで行われるため、実際の業務要件や従業員の希望などは考慮されません。 ※従業員は追加ができますが、シフト種類は３つ固定となっております。名所変更はOK

★【サンプルプログラム】 下記のリンク先よりサンプルプログラムをダウンロードする事ができます。 ● Shift_schedule03（サンプルプログラム）

Sub CreateShiftSchedule03() Visual Basic Option Explicit Sub CreateShiftSchedule03 ( ) Dim ws As Worksheet , wsSettings As Worksheet Dim i As Integer , j As Integer , k As Integer Dim startDate As Date Dim totalDays As Integer ' 開始日をInputBoxで登録 startDate = InputBox ( "シフト表の開始日を入力してください（例: 2023/4/22）:" , "開始日" ) totalDays = InputBox ( "シフト表の日数を入力してください（例: 30）:" , "日" ) ' シフト表ワークシートを作成・選択 Set ws = ThisWorkbook . Worksheets ( "シフト表" ) ' 設定ワークシートを選択 Set wsSettings = ThisWorkbook . Worksheets ( "設定" ) 'ワークシート「シフト表」のクリア ws . Cells . Clear For i = 0 To totalDays - 1 ws . Cells ( i + 2 , 1 ) . Value = DateAdd ( "d" , i , startDate ) ws . Cells ( i + 2 , 2 ) . Value = Format ( ws . Cells ( i + 2 , 1 ) . Value , "[$-411]aaa" ) ' 土日祝日は赤字にする

If Weekday ( ws . Cells ( i + 2 , 1 ) . Value ) = 1 Or Weekday ( ws . Cells ( i + 2 , 1 ) . Value ) = 7 Then

ws . Cells ( i + 2 , 1 ) . Font . Color = RGB ( 255 , 0 , 0 ) ws . Cells ( i + 2 , 2 ) . Font . Color = RGB ( 255 , 0 , 0 ) ' セルに従業員名を入力 Do While wsSettings . Cells ( i + 2 , 1 ) . Value < >"" ws . Cells ( 1 , i + 3 ) . Value = wsSettings . Cells ( i + 2 , 1 ) . Value ' シフトをランダムに割り当て For i = 0 To totalDays - 1 For j = 0 To wsSettings . Cells ( wsSettings . Rows . Count , 1 ) . End ( xlUp ) . Row - 2

ws . Cells ( i + 2 , j + 3 ) . Value = wsSettings . Cells ( Int ( ( wsSettings . Cells ( wsSettings . Rows . Count , 2 ) . End ( xlUp ) . Row - 1 ) * Rnd ( ) + 2 ) , 2 ) . Value

With ws . Range ( "A1" ) . Resize ( totalDays + 1 , wsSettings . Cells ( wsSettings . Rows . Count , 1 ) . End ( xlUp ) . Row + wsSettings . Cells ( wsSettings . Rows . Count , 2 ) . End ( xlUp ) . Row )

. Rows ( 1 ) . Interior . Color = RGB ( 255 , 153 , 255 ) . Cells ( 1.1 ) . Value = "日付" . Cells ( 1 , 2 ) . Value = "曜日" . Borders . LineStyle = xlContinuous . HorizontalAlignment = xlCenter . VerticalAlignment = xlCenter . Columns ( 1 ) . ColumnWidth = 15 . Rows ( 1 ) . RowHeight = 20 . Rows ( 1 ) . Font . Bold = True . Columns ( 2 ) . ColumnWidth = 5 ' シフト種類の日別計をカウント For i = 0 To totalDays - 1 For k = 0 To wsSettings . Cells ( wsSettings . Rows . Count , 2 ) . End ( xlUp ) . Row - 2

ws . Cells ( i + 2 , wsSettings . Cells ( wsSettings . Rows . Count , 1 ) . End ( xlUp ) . Row + k + 2 ) . Value = Application . WorksheetFunction . CountIf ( ws . Range ( ws . Cells ( i + 2 , 3 ) , ws . Cells ( i + 2 , wsSettings . Cells ( wsSettings . Rows . Count , 1 ) . End ( xlUp ) . Row + 1 ) ) , wsSettings . Cells ( k + 2 , 2 ) . Value )

ws . Cells ( 1 , wsSettings . Cells ( wsSettings . Rows . Count , 1 ) . End ( xlUp ) . Row + k + 2 ) . Value = wsSettings . Cells ( k + 2 , 2 ) . Value

ws . PageSetup . PrintArea = ws . Range ( "A1" ) . Resize ( totalDays + 1 , wsSettings . Cells ( wsSettings . Rows . Count , 1 ) . End ( xlUp ) . Row + wsSettings . Cells ( wsSettings . Rows . Count , 2 ) . End ( xlUp ) . Row ) . Address

●実行前～実行後 ※プログラムを実行すると、指定された期間にわたるシフトスケジュールが作成されます。各従業員にランダムにシフトが割り当てられ、土日は赤字で表示されます。また、シフトの日別集計も行われます。

EXCEL VBA シフト管理を簡単に！従業員のシフト表を自動生成・シフトの人数を適正に管理する。

●プログラム説明(サンプル④)

【シフト表を生成する条件】 ① Aシフト・Bシフト・共に１名以上シフト表に登録される。 ② ７日間に１回は休みのシフトを登録する。 ※ ①②の条件で作成していますが、詳細にチェックしていませんので、従業員数の増減により条件を満たされない可能性もありますので、ご了承ください。

【プログラムの流れ】

  1. シフト表と設定ワークシートをそれぞれ ws と wsSettings に設定
  2. シフト表ワークシートをクリア
  3. 開始日とシフト表の日数をInputBoxで入力
  4. 従業員名を設定ワークシートからシフト表ワークシートにコピー
  5. 日付と曜日をシフト表ワークシートに入力し、土日の文字色を赤に変更
  6. シフトを割り当てるロジックに基づいて、シフトをシフト表ワークシートに入力
  7. シフト表ワークシートの書式を整える
  8. シフト種類の日別集計を行い、シフト表ワークシートに入力
  9. 印刷範囲を設定

【プログラム実行条件・注意事項】

  1. シフト表ワークシート（”シフト表”）および設定ワークシート（”設定”）が存在する必要があります。
  2. 設定ワークシートには、従業員名とシフトタイプがそれぞれ入力されている必要があります。
  3. 開始日と日数は、適切な形式で入力する必要があります（例: 2023/4/22、30）。
  4. 完全にランダムで行われるため、実際の業務要件や従業員の希望などは考慮されません。 ※従業員は追加ができますが、シフト種類は３つ固定となっております。名所変更はOK

★【サンプルプログラム】 下記のリンク先よりサンプルプログラムをダウンロードする事ができます。 ● Shift_schedule04（サンプルプログラム）

【今回の①～④のサンプルプログラムについて】 サンプルプログラムでは、ランダムで行われるため、実際の業務要件や従業員の希望などは考慮されません。このサンプルプログラムを業務で利用する場合は、必要に応じてシフト割り当てのルールや条件を更に追加して、より適切なシフトスケジュールが作成できるように改良することをお勧めします。例えば、以下のような改良が考えられます。

  • 一定の期間内での最大勤務日数や連続勤務日数の制限
  • 従業員の希望シフトを優先して割り当てる機能
  • 特定の曜日や時間帯に必要な最低限のスタッフ数を確保する機能
  • 従業員間でシフトのバランスが取れるように割り当てる機能
Sub CreateShiftSchedule06() Visual Basic Option Explicit Sub CreateShiftSchedule06 ( ) Dim ws As Worksheet , wsSettings As Worksheet Dim i As Integer , j As Integer Dim startDate As Date Dim totalDays As Integer ' シフト表ワークシートを作成・選択 Set ws = ThisWorkbook . Worksheets ( "シフト表" ) ' 設定ワークシートを選択 Set wsSettings = ThisWorkbook . Worksheets ( "設定" ) ' シフト表をクリアする。 ws . Cells . Clear ' 開始日・日数をInputBoxで登録 startDate = InputBox ( "シフト表の開始日を入力してください（例: 2023/4/22）:" , "開始日" ) totalDays = InputBox ( "シフト表の日数を入力してください（例: 30）:" , "日" ) ' セルに従業員名を入力 Do While wsSettings . Cells ( i + 2 , 1 ) . Value < >"" ws . Cells ( 1 , i + 3 ) . Value = wsSettings . Cells ( i + 2 , 1 ) . Value For i = 0 To totalDays - 1 ws . Cells ( i + 2 , 1 ) . Value = DateAdd ( "d" , i , startDate ) ws . Cells ( i + 2 , 2 ) . Value = Format ( ws . Cells ( i + 2 , 1 ) . Value , "ddd" ) ' 土日祝日は赤字にする

If Weekday ( ws . Cells ( i + 2 , 1 ) . Value ) = 1 Or Weekday ( ws . Cells ( i + 2 , 1 ) . Value ) = 7 Then

ws . Cells ( i + 2 , 1 ) . Font . Color = RGB ( 255 , 0 , 0 ) ws . Cells ( i + 2 , 2 ) . Font . Color = RGB ( 255 , 0 , 0 ) For i = 0 To totalDays - 1 Dim totalEmployees As Integer totalEmployees = wsSettings . Cells ( wsSettings . Rows . Count , 1 ) . End ( xlUp ) . Row - 1 For j = 0 To totalEmployees - 1 If i Mod 5 = j Mod 5 Then ws . Cells ( i + 2 , j + 3 ) . Value = "休み" ElseIf j Mod 2 = 0 Then ws . Cells ( i + 2 , j + 3 ) . Value = "Aシフト" ws . Cells ( i + 2 , j + 3 ) . Value = "Bシフト" For i = 2 To totalDays + 1 Step 2

ws . Range ( "A" & i ) . Resize ( 1 , wsSettings . Cells ( wsSettings . Rows . Count , 1 ) . End ( xlUp ) . Row + wsSettings . Cells ( wsSettings . Rows . Count , 2 ) . End ( xlUp ) . Row ) . Interior . Color = RGB ( 235 , 235 , 235 )

With ws . Range ( "A1" ) . Resize ( totalDays + 1 , wsSettings . Cells ( wsSettings . Rows . Count , 1 ) . End ( xlUp ) . Row + wsSettings . Cells ( wsSettings . Rows . Count , 2 ) . End ( xlUp ) . Row )

. Cells ( 1 , 1 ) . Value = "日付" . Cells ( 1 , 2 ) . Value = "曜日" . Rows ( 1 ) . Interior . Color = RGB ( 255 , 255 , 153 ) . Rows ( "2:2" ) . Interior . Color = RGB ( 235 , 235 , 235 ) . Rows ( "4:4" ) . Interior . Color = RGB ( 235 , 235 , 235 ) . Borders . LineStyle = xlContinuous . HorizontalAlignment = xlCenter . VerticalAlignment = xlCenter . Columns ( 1 ) . ColumnWidth = 15 . Rows ( 1 ) . RowHeight = 20 . Rows ( 1 ) . Font . Bold = True . Columns ( 2 ) . ColumnWidth = 5 ' シフト種類の日別計をカウント For i = 0 To totalDays - 1 For j = 0 To wsSettings . Cells ( wsSettings . Rows . Count , 2 ) . End ( xlUp ) . Row - 2

ws . Cells ( i + 2 , wsSettings . Cells ( wsSettings . Rows . Count , 1 ) . End ( xlUp ) . Row + j + 2 ) . Value = Application . WorksheetFunction . CountIf ( ws . Range ( ws . Cells ( i + 2 , 3 ) , ws . Cells ( i + 2 , wsSettings . Cells ( wsSettings . Rows . Count , 1 ) . End ( xlUp ) . Row + 1 ) ) , wsSettings . Cells ( j + 2 , 2 ) . Value )

ws . Cells ( 1 , wsSettings . Cells ( wsSettings . Rows . Count , 1 ) . End ( xlUp ) . Row + j + 2 ) . Value = wsSettings . Cells ( j + 2 , 2 ) . Value

ws . PageSetup . PrintArea = ws . Range ( "A1" ) . Resize ( totalDays + 1 , wsSettings . Cells ( wsSettings . Rows . Count , 1 ) . End ( xlUp ) . Row + wsSettings . Cells ( wsSettings . Rows . Count , 2 ) . End ( xlUp ) . Row ) . Address

●実行前～実行後 ※プログラムを実行すると、指定された期間にわたるシフトスケジュールが作成されます。各従業員に条件に合ったにシフトが割り当てられ、土日は赤字で表示されます。また、シフトの日別集計も行われます。

最後まで、ご覧いただきまして誠に有難うございました。 また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。

よろしければシェアお願いします

Excel VBA Functionプロシージャを使いこなす。スキルを飛躍的に向上させる効率的な事務処理テクニック！ EXCEL VBA エクセルでSQLを実行（ADO）データベース構築・クエリー実行・大量のデータを処理・入門者

関連記事

EXCEL VBA ドロップダウンリスト・プルダウンリスト・コンボボックスの作成（リスト選択）

EXCEL VBA ドロップダウンリスト・プルダウン .

EXCEL VBA モジュールの更新・書き換え・自動更新・プログラムの修正・訂正（テクニック）

EXCEL VBA モジュールの更新・書き換え・自動更新・プログラ .

EXCEL VBA 印刷のページ設定 PageSetup（印刷・余白・拡大縮小・ヘッダー・フッター・ページ番号・用紙サイズ）

EXCEL VBA 印刷のページ設定 PageSetup（印刷・余白・拡大縮小・ .

EXCEL VBA シート・ブックをPDFに出力・一括変換（PDF・XPS）② テクニック

EXCEL VBA シート・ブックをPDFに出力・一括変換（PDF・XPS）② .

EXCEL VBA セルの挿入・行の挿入・列の挿入・セルの削除・行の削除・列の削除（ Insert / Delete ）

EXCEL VBA セルの挿入・行の挿入・列の挿入・セルの削除・行の削除・列の削 .

📎📎📎📎📎📎📎📎📎📎