lập bảng xuất lịch học 20 buổi theo lịch học thứ 3,5,7( trừ các ngày nghỉ lễ) (1 người xem)

[Ngochuytc96]

lập bảng xuất lịch học 20 buổi theo lịch học thứ 3,5,7( trừ các ngày nghỉ lễ)

 

[Lequocvan]

Anh đọc xong, thật sự chưa hiểu bạn muốn nội dung gì trên Excel!?

 

[vanle33]

@Lequocvan : Theo tôi thì trong ảnh ở #1 là họ muốn công thức kéo roẹt từ buổi 1 đến buổi 20 mà thỏa mãn WEEKDAY(ngày đó)=5 hoặc 7. Số 5 là thứ 5, số 7 là thứ 7. Mà tôi chưa biết công thức thế nào

 

[SA_DQ]

Giả sử tại [B11] ta nhập 2026 & tại tại [B12] là ô validation chọn từ 1 tới 12
Ta xài macro sự kiện sau:

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim J As Integer, Nam As Integer, Thg As Integer, Dat As Date, Tmp As Byte
 If Not Intersect(Target, [b12]) Is Nothing Then
    For J = 1 To 210
        Nam = [B11].Value:      Thg = [b12].Value
        Dat = DateSerial(Nam, Thg, J)
        If Weekday(Dat) = 5 Or Weekday(Dat) = 7 Then
            Tmp = Tmp + 1
            [B15].Offset(Tmp).Value = Dat
            If Tmp > 20 Then Exit For
        End If
    Next J
 End If
End Sub