Vba 填充值时跳过单元格

我试图用“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

试试这个：

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

试试这个：

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

---

这是VBA吗？标记编程语言以获得更好的帮助。是的，VBA。更新的标签。这是VBA吗？标记编程语言以获得更好的帮助。是的，VBA。更新的标签。谢谢，我恐怕在dDate=Range（“D”&col）.Value处出现了类型不匹配错误。另外，我的日期在D1到AH1之间。D4是我想在D11中根据工作日/周末填入1的位置。恐怕我在dDate=Range（“D”&col）.Value处遇到了类型不匹配错误。此外，我的日期在D1到AH1之间。D4是根据D1中的工作日/周末，我希望填充1的位置