code xóa ngày chủ nhật trong tháng

[Thanhhoai00]

Chào các bạn
mình có code (tìm trong GPE) để liệt kê ngày trong tháng, mình muốn xóa 4 ngày chủ nhật trong tháng( chỉ liệt kê ngày từ thứ 2 tới thứ 7) thì mình phải sửa code thế nào vậy các bạn !
các bạn giúp mình xíu nhé ! cảm ơn các bạn

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2:C3]) Is Nothing Then
Dim I As Long, TuNgay As Long, DenNgay As Long, Arr(), K As Long
TuNgay = [C2].Value2
DenNgay = [C3].Value2
ReDim Arr(1 To DenNgay - TuNgay + 1, 1 To 1)
For I = TuNgay To DenNgay
K = K + 1
Arr(K, 1) = I
Next I
[C5:C1000].ClearContents
[C5].Resize(K) = Arr
End If
End Sub

 

[VetMini]

For I = TuNgay To DenNgay
K = K + 1
Arr(K, 1) = IIF(WeekDay(I, 1) <> 1, I, "")
Next I

 

[Hoàng Tuấn 868]

Chào các bạn
mình có code (tìm trong GPE) để liệt kê ngày trong tháng, mình muốn xóa 4 ngày chủ nhật trong tháng( chỉ liệt kê ngày từ thứ 2 tới thứ 7) thì mình phải sửa code thế nào vậy các bạn !
các bạn giúp mình xíu nhé ! cảm ơn các bạn

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [C2:C3]) Is Nothing Then
Dim I As Long, TuNgay As Long, DenNgay As Long, Arr(), K As Long
TuNgay = [C2].Value2
DenNgay = [C3].Value2
ReDim Arr(1 To DenNgay - TuNgay + 1, 1 To 1)
For I = TuNgay To DenNgay
K = K + 1
Arr(K, 1) = I
Next I
[C5:C1000].ClearContents
[C5].Resize(K) = Arr
End If
End Sub

Thử thế này xem sao.

 

[ptm0412]

K = K + 1
Arr(K, 1) = IIF(WeekDay(I, 1) <> 1, I, "")

Hết củi gốc nên kiếm tạm củi cành, mà chỉ có cành nhỏ híu. Đã vậy, nhằm mùa mưa củi ướt.
Theo tôi thì hong khô đun tạm:

For I = TuNgay To DenNgay
    If(Weekday(I, 1) > 1 Then
        K = K + 1
        Arr(K, 1) = I
    End If
Next I

 

[VetMini]

Hết củi gốc nên kiếm tạm củi cành, mà chỉ có cành nhỏ híu. Đã vậy, nhằm mùa mưa củi ướt.
Theo tôi thì hong khô đun tạm:
...

Ông nội ai hiểu cái từ "xóa" của thớt nó có nghĩa là gì.
Là "bỏ qua", hay "xóa trắng"?
Tôi chỉ cho biết code xét ngày chủ nhật thôi. Chỗ còn lại thớt phải tự làm lấy.

 

[ptm0412]

Ông nội ai hiểu cái từ "xóa" ...

Ý chính tôi muốn nói về "Rừng đâu sợ hết củi." Xóa có vài cách hiểu, anh mót củi cành, thì tôi lụm lá khô lá mục thôi.