Excel vba 日期处理例子

Sub s()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = ActiveWorkbook
Dim MyDate
Dim i, j As Integer
For i = 4 To 31
   Set ws = wb.Worksheets(Trim(Str(i)))
    MyDate = DateSerial(2010, 1, i)
    If Weekday(MyDate) = vbMonday Or Weekday(MyDate) = vbWednesday Or Weekday(MyDate) = vbFriday Then
       ws.Cells(29, 7).Value = 8
    End If
    For j = 47 To 53
      ws.Cells(j, 1).Value = ""
      ws.Cells(j, 3).Value = ""
      ws.Cells(j, 6).Value = ""
      ws.Cells(j, 8).Value = ""
    Next
   
Next

End Sub