값을 채우는 동안 셀 건너 뛰기

Question

D3에서 AH30까지 셀을 "1"로 채우려고합니다. 그리고 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