Thử xem cách này có giống hồi trước không:Câu này hồi trước có học rồi, giờ tự nhiên lục lại thì quên mất. Câu hỏi là: Tính xem từ ngày 1/1/2000 đến 1/1/2014 có bao nhiêu ngày thứ 6 ngày 13?
Bạn nào đã giải rồi tư vấn cho mình xíu
+) Làm sao để liệt kê tất các tháng nào, năm nào có có ngày 13 bạn nhỉ? (ngày kết quả sẽ có dạng 13/mm/yyyy)
Mình mới làm ý 1:
Public Function ThuSau(ByVal NgayDau As Date, ByVal NgayCuoi As Date) As String
Dim i As Long, k As Long, Tam As String
For i = NgayDau To NgayCuoi
If Weekday(i, vbSunday) = 6 Then
If Day(i) = 13 Then
Tam = Tam & ", " & Format(i, "dd/mm/yyyy")
k = k + 1
End If
End If
Next i
If k > 0 Then ThuSau = "Có " & k & " ngày: " & Mid(Tam, 2)
End Function
Công thức vận dụng hay quá.
=SUMPRODUCT(--(TEXT(ROW(INDIRECT(A2&":"&B2)),"ddd-dd")="Fri-13"))Sao công thức của bạn ra kết quả trên máy tôi =0 nhỉ?Hay là công thức này
Mã:=SUMPRODUCT(--(TEXT(ROW(INDIRECT(A2&":"&B2)),"ddd-dd")="Fri-13"))
Để kết quả ra lần lượt tại các cell ví dụ tại cột E chẳng hạn (hiện 1 textbox để chọn vị trí đặt kết quả) thì phải chỉnh code thế nào vậy bạn?
Có thể vì nó chỉ áp dụng cho những người dùng tiếng anh thôi, chứ ngôn ngữ khác là thua.
admin cho tôi hỏi cách để dùng trên máy tính có Region and Language/Formats/Vietnamese (Vietnam)?
Câu này hồi trước có học rồi, giờ tự nhiên lục lại thì quên mất. Câu hỏi là: Tính xem từ ngày 1/1/2000 đến 1/1/2014 có bao nhiêu ngày thứ 6 ngày 13?
Bạn nào đã giải rồi tư vấn cho mình xíu
Trong thảo luận bạn không cần gọi tôi là admin vì tôi cũng không khá hơn thành viên thường bao nhiêu.
Bạn nắm nguyên tắcCâu này hồi trước có học rồi, giờ tự nhiên lục lại thì quên mất. Câu hỏi là: Tính xem từ ngày 1/1/2000 đến 1/1/2014 có bao nhiêu ngày thứ 6 ngày 13?
Bạn nào đã giải rồi tư vấn cho mình xíu
Bạn sửa lại công thức thành như thế này sẽ không bị ảnh hưởng từ cài đặt của hệ thống.
=SUMPRODUCT(--(TEXT(ROW(INDIRECT(A2&":"&B2)),"[$-9]ddd-dd")="Fri-13"))
Option Explicit
Sub LietKeThúSáuNgày13()
Dim J As Long, fDat As Date, lDat As Date
fDat = [A1].Value: lDat = [A2].Value
If Day(fDat) < 13 Then
fDat = DateSerial(Year(fDat), Month(fDat), 13)
Else
fDat = DateSerial(Year(fDat), Month(fDat) + 1, 13)
End If
Do
If fDat > lDat Then Exit Do
With Cells(Cells.Rows.Count, "C").End(xlUp).Offset(1)
If Weekday(fDat) = 6 Then
.Value = fDat
End If
End With
fDat = DateSerial(Year(fDat), 1 + Month(fDat), 13)
Loop
End SubSao em copy code của bác vào modul mà không tài nào chạy được code. Mà code của phuoccam =thusau(A2;B2) vẫn chạy được.
Em copy toàn bộ code vào file mà. Xong em nhấn Alt+Q rồi tại 1 cell em nhấn =Lietke mà không hiện ra tên hàm trong Sub, nếu ở code của phuoccam thì nhấn =thu là hiện ra ngay tên hàm.
