Tự điền dữ liệu theo điều kiện

[bigbabol89]

Em chào các anh chị,
Mong các anh chị giúp em vấn đề sau ạ
Tìm các ô trống trong hàng sau đó điền "x" vào ngày thường và điền "y" vào ngày chủ nhật.
Em gửi file đính kèm ạ.
Em cám ơn

 

[saobekhonglac]

Em chào các anh chị,
Mong các anh chị giúp em vấn đề sau ạ
Tìm các ô trống trong hàng sau đó điền "x" vào ngày thường và điền "y" vào ngày chủ nhật.
Em gửi file đính kèm ạ.
Em cám ơn

F21=IF(OR(F8="x",F8="y"),F8,IF(WEEKDAY(F$7)=1,"y","x"))

 

[Ba Tê]

Em chào các anh chị,
Mong các anh chị giúp em vấn đề sau ạ
Tìm các ô trống trong hàng sau đó điền "x" vào ngày thường và điền "y" vào ngày chủ nhật.
Em gửi file đính kèm ạ.
Em cám ơn

Bạn chạy thử Sub này.

Public Sub sGpe()
Dim sArr(), tArr(), I As Long, J As Long, R As Long, xy As String
tArr = Range("F7").Resize(, 31).Value
sArr = Range("B8", Range("B8").End(xlDown)).Offset(, 4).Resize(, 31).Value
R = UBound(sArr)
For J = 1 To 31
    If tArr(1, J) <> Empty Then
        xy = IIf(Weekday(tArr(1, J)) = 1, "y", "x")
        For I = 1 To R
            If sArr(I, J) = Empty Then sArr(I, J) = xy
        Next I
    End If
Next J
Range("F8").Resize(R, 31) = sArr
End Sub

 

[bigbabol89]

Bạn chạy thử Sub này.

Public Sub sGpe()
Dim sArr(), tArr(), I As Long, J As Long, R As Long, xy As String
tArr = Range("F7").Resize(, 31).Value
sArr = Range("B8", Range("B8").End(xlDown)).Offset(, 4).Resize(, 31).Value
R = UBound(sArr)
For J = 1 To 31
    If tArr(1, J) <> Empty Then
        xy = IIf(Weekday(tArr(1, J)) = 1, "y", "x")
        For I = 1 To R
            If sArr(I, J) = Empty Then sArr(I, J) = xy
        Next I
    End If
Next J
Range("F8").Resize(R, 31) = sArr
End Sub

Sub chạy rất tốt ạ.
Em cám ơn