Sub CreateWorkSchedule()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets.Add
    ws.Name = "勤務時間一覧"
    
    ' ヘッダーの設定
    ws.Range("A1").Value = "スタッフ"
    ws.Range("B1").Value = "月曜"
    ws.Range("C1").Value = "火曜"
    ws.Range("D1").Value = "水曜"
    ws.Range("E1").Value = "木曜"
    ws.Range("F1").Value = "金曜"
    ws.Range("G1").Value = "土曜"
    ws.Range("H1").Value = "日曜"
    ws.Range("I1").Value = "合計勤務時間"
    ws.Range("J1").Value = "時給"
    ws.Range("K1").Value = "合計支給額"

    Dim i As Integer
    For i = 2 To 11
        ws.Cells(i, 1).Value = "スタッフ " & (i - 1)
        ws.Cells(i, 2).Formula = "=RANDBETWEEN(4,10)"
        ws.Cells(i, 3).Formula = "=RANDBETWEEN(4,10)"
        ws.Cells(i, 4).Formula = "=RANDBETWEEN(4,10)"
        ws.Cells(i, 5).Formula = "=RANDBETWEEN(4,10)"
        ws.Cells(i, 6).Formula = "=RANDBETWEEN(4,10)"
        ws.Cells(i, 7).Formula = "=RANDBETWEEN(4,10)"
        ws.Cells(i, 8).Formula = "=RANDBETWEEN(4,10)"
        ws.Cells(i, 9).Formula = "=SUM(B" & i & ":H" & i & ")"
        ws.Cells(i, 10).Value = 1000 ' 時給
        ws.Cells(i, 11).Formula = "=I" & i & "*J" & i
    Next i

    ws.Columns("A:K").AutoFit
End Sub

             コードをコピー