VBAマクロでシフト表を組みました。STEP1を押すと、人毎に月水金のようにレギュラーで出勤する日には、黒丸が自動的につきます。STEP２を押すと、どうしても休む日04，10，13のように日付を記載しておくと、「休」がカレンダーに記載されます。STEP3を押すと、05,09,12のように臨時で出勤する日を記載しておくと、その日には「◎」が表示されます。詳細な解説は動画でご確認ください。
メインのソースコード
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 |
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Row = 2 And Target.Column = 2 Then For i = 1 To 31 'yyyymmddは年月日を表す変数 yyyymmdd = Cells(1, 5) & "/" & Cells(1, 7) & "/" & i '日付として存在するかどうかをisdate関数で判定する If IsDate(yyyymmdd) = True Then '2行目に何日かを出力 If i < 10 Then Cells(2, 4 + i) = "0" & i Else Cells(2, 4 + i) = i End If '3行目に月日を出力 Cells(3, 4 + i) = yyyymmdd '4行目に何曜日か出力 Cells(4, 4 + i) = youbi(Weekday(yyyymmdd)) If Weekday(yyyymmdd) = 7 Then Cells(4, 4 + i).Font.Color = RGB(0, 0, 255) ElseIf Weekday(yyyymmdd) = 1 Then Cells(4, 4 + i).Font.Color = RGB(255, 0, 0) Else Cells(4, 4 + i).Font.Color = RGB(0, 0, 0) End If Else Cells(2, 4 + i) = "" Cells(3, 4 + i) = "" Cells(4, 4 + i) = "" End If Next i '山田太郎さんだけを考えてみる 5行目から10行目で考えてみる For k = 5 To 10 For i = 1 To 31 yyyymmdd = Cells(1, 5) & "/" & Cells(1, 7) & "/" & i If IsDate(yyyymmdd) = True Then If Cells(k, 2) Like "*" & Cells(4, 4 + i) & "*" Then Cells(k, 4 + i) = "●" Else Cells(k, 4 + i) = "" End If End If Next i Next k Call shukei End If 'STEP2 If Target.Row = 2 And Target.Column = 3 Then For k = 5 To 10 For i = 1 To 31 yyyymmdd = Cells(1, 5) & "/" & Cells(1, 7) & "/" & i If IsDate(yyyymmdd) = True Then If Cells(k, 3) Like "*" & Cells(2, 4 + i) & "*" Then Cells(k, 4 + i) = "休" End If End If Next i Next k Call shukei End If 'STEP3 If Target.Row = 2 And Target.Column = 4 Then For k = 5 To 10 For i = 1 To 31 yyyymmdd = Cells(1, 5) & "/" & Cells(1, 7) & "/" & i If IsDate(yyyymmdd) = True Then If Cells(k, 4) Like "*" & Cells(2, 4 + i) & "*" Then Cells(k, 4 + i) = "◎" End If End If Next i Next k Call shukei End If End Sub |
曜日を出力する関数
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
Function youbi(num) Select Case num Case 1 youbi = "日" Case 2 youbi = "月" Case 3 youbi = "火" Case 4 youbi = "水" Case 5 youbi = "木" Case 6 youbi = "金" Case 7 youbi = "土" Case Else youbi = "" End Select End Function |
集計する関数
|
1 2 3 4 5 6 7 8 9 10 11 |
Function shukei() For i = 1 To 31 gokei = 0 For k = 5 To 10 If Cells(k, 4 + i) = "◎" Or Cells(k, 4 + i) = "●" Then gokei = gokei + 1 End If Next k Cells(11, 4 + i) = gokei Next i End Function |
