投稿日	： 2004/03/26(Fri) 22:50
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： 私が作るなら

Private Sub Command1_Click()
    Dim yy1  As Integer
    Dim mm1  As Integer
    Dim dMax As Integer
    Dim i    As Integer
    yy1 = "2004"
    mm1 = "4"
    dMax = Day(DateAdd("d", -1, DateAdd("m", 1, DateValue(yy1 & "/" & mm1))))
  
    With MSFlexGrid1
        .Cols = dMax + 1
        .FixedCols = 0
        .Rows = 5
        .FixedRows = 2
        For i = 1 To dMax
            .Col = i: .Row = 0
            .CellAlignment = flexAlignCenterCenter
            .Col = i: .Row = 1
            .CellAlignment = flexAlignCenterCenter
            .Col = i: .Row = 2
            .CellAlignment = flexAlignCenterCenter
    
            .TextMatrix(0, i) = i
            .TextMatrix(1, i) = Format$(yy1 & "/" & mm1 & "/" & CStr(i), "aaa")
            If .TextMatrix(1, i) = "日" Then
                .Col = i: .Row = 1
                .CellBackColor = vbRed
            End If
        Next i
            '休日の処理
            Dim Tbl(4) As String
            Dim AddDat   As Variant
            Tbl(4) = "3,10,17,24,29"
            AddDat = Split(Tbl(4), ",")
            For i = LBound(AddDat) To UBound(AddDat)
                .Col = AddDat(i): .Row = 1
                .CellBackColor = vbRed
            Next i

            .TextMatrix(2, 0) = "青木"
            .TextMatrix(2, 1) = "○"
            .TextMatrix(2, 2) = "○"
            .TextMatrix(2, 3) = "×"
            .TextMatrix(2, 4) = "△"
    End With
End Sub

# 上記は完成品ではありません、私の考えの一部をコードに書いただけです。

★ - 勤怠表を作りたいのですが - kamurin 03/26-11:06No.8507
• Re: 勤怠表を作りたいのですが - 花ちゃん 03/26-17:23 No.8513
  • Re^2: 勤怠表を作りたいのですが - kamurin 03/26-19:42 No.8517
    • Re^3: 勤怠表を作りたいのですが - 花ちゃん 03/26-21:15 No.8519
      • 有難うございます - kamurin 03/29-08:52 No.8524
    • 私が作るなら - 花ちゃん 03/26-22:50 No.8520
      • 参考にさせていただきます - kamurin 03/30-15:52 No.8536