Excel空的範圍，如果一天在週末/假日落

Question

我想創建一個宏，清空日期下面的單元格的範圍，如果它是一個星期日或假期根據我有日期的列表。任何想法如何最好地做到這一點？

E.G. K33：Z33是日期。如果K33是週日，則K34：K100 = 0而不是由另一個宏輸入的值。

Answer 1

你可以Weekday()功能，寫這樣的 「幫手」 子：

Sub FillRange(val As Variant) 
    Dim cell As Range 
    Dim valToFillWith As Variant 

    For Each cell In Range("K33:Z33") 
     If Weekday(cell.Value, vbSunday) = 1 Then 
      valToFillWith = 0 
     Else 
      valToFillWith = val 
     End If 
     cell.Offset(1).Resize(67).Value = valToFillWith 
    Next 
End Sub 

在你的 「主」 子如下利用：

Sub Main() 

    '... 
    ' your "macro" code before filling the range 
    '... 

    FillRange "myMacroValue" 

    ' your "macro" code fater filling the range 
    '... 

End Sub