填充值时跳过单元格

Question

我正在尝试用“1”填充从 D3 到 AH30 的单元格。我在 D1 到 AH1 单元格中有日期。但如果第一行中的相应单元格中有周末日期，我不需要用“1”填充单元格。

我尝试了下面的代码。但它在包括周末在内的所有单元格中填充“1”

    Function CheckWeekday_and_fill()
    Dim dDate As Date
     dDate = Range("D1").Value       
    For row = 3 To 30 ' rows for cells with date in it
    For col = 4 To 34 ' cols for cells with date in it

    Select Case Weekday(dDate)
    Case vbSaturday, vbSunday
    Cells(row, col).Value = " "
    Case Else
    Cells(row, col).Value = "1"
    End Select
    dDate = dDate + 1
    Next col
    Next row                    
    End Function

Answer 1

试试这个：

Function CheckWeekday_and_fill()

Dim dDate As Date      
For row = 3 To 30 ' rows for cells with date in it
For col = 4 To 34 ' cols for cells with date in it
    dDate = Cells(1, col).Value
    Select Case Weekday(dDate)
    Case vbSaturday, vbSunday
    Cells(row, col).Value = " "
    Case Else
    Cells(row, col).Value = "1"
    End Select
Next col
Next row                    

End Function