填充值时跳过单元格
Skip cells while filling values
我正在尝试用“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
我正在尝试用“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