Thống kê ngày không có số liệu

[spacemanforever]

Chào anh em GPE!
Hôm nay, mình có khó khăn nhờ mọi người giúp đỡ.
===Mô tả: Em có bản số liệu trong sheet data gồm
+ 5 cột: Date, A, B, C, D.
+ 1 buton check.
Em tiến hành tạo userform gồm 2 dtpicker:
+Dtpicker1: ngày bắt đầu kiểm tra.
+Dtpicker2: ngày kết thúc kiểm tra.
===Thao tác:
1.Khi ta vào sheet data, ta click button check sẽ hiện ra userform1.
2. Ta nhập số liệu vào userform1 (nhập ngày vào 2 dtpicker) sau đó click OK.
3. Hiện bảng báo các ngày không có số liệu từ sheet data.
===Khó khăn: Em vẫn chưa code được code check số liệu rồi hiện thông báo. mong mọi người giúp đỡ.
Ví dụ: ta chọn từ ngày 9/10/2010 - 17/10/2010 thì sẽ thông báo số ngày không có số liệu là: 9/10/2010, 12/10/2010, 15/10/2010, 17/10/2010

 

[ThuNghi]

Chào anh em GPE!
Hôm nay, mình có khó khăn nhờ mọi người giúp đỡ.
===Mô tả: Em có bản số liệu trong sheet data gồm
+ 5 cột: Date, A, B, C, D.
+ 1 buton check.
Em tiến hành tạo userform gồm 2 dtpicker:
+Dtpicker1: ngày bắt đầu kiểm tra.
+Dtpicker2: ngày kết thúc kiểm tra.
===Thao tác:
1.Khi ta vào sheet data, ta click button check sẽ hiện ra userform1.
2. Ta nhập số liệu vào userform1 (nhập ngày vào 2 dtpicker) sau đó click OK.
3. Hiện bảng báo các ngày không có số liệu từ sheet data.
===Khó khăn: Em vẫn chưa code được code check số liệu rồi hiện thông báo. mong mọi người giúp đỡ.
Ví dụ: ta chọn từ ngày 9/11/2010 - 17/11/2010 thì sẽ thông báo số ngày không có số liệu là: 9/10/2010, 12/10/2010, 15/10/2010, 17/10/2010

Tư duy lô gích mà.
Ngày đầu: FDate
Ngày cuối: EDate
Làm 1 vòng lặp

For i =1 to rng.rows.count
if ngay>=FDate and ngay<=EDate then
if rng.... = "" then
gán vào cái gì ...
end if
end if
next i

Đại khái là vậy, chưa xem file.

 

[spacemanforever]

Tư duy lô gích mà.
Ngày đầu: FDate
Ngày cuối: EDate
Làm 1 vòng lặp

Đại khái là vậy, chưa xem file.

Em cũng đang làm theo hướng này. Tuy nhiên nó chỉ báo ra từng massagebox của ngày không có. (Mỗi ngày không có là 1 massagebox).
Nhưng em lại muốn là xuất ra 1 bảng tổng hợp số ngày không có số liệu. Chứ xuất hiện massagebox kiểu trên close mõi tay.... hic ... hic.
Mong anh xem lại dùm.

 

[ThuNghi]

Em cũng đang làm theo hướng này. Tuy nhiên nó chỉ báo ra từng massagebox của ngày không có. (Mỗi ngày không có là 1 massagebox).
Nhưng em lại muốn là xuất ra 1 bảng tổng hợp số ngày không có số liệu. Chứ xuất hiện massagebox kiểu trên close mõi tay.... hic ... hic.
Mong anh xem lại dùm.

Em chép code này vào thử, kq sẽ ở sheet3. Nếu dùng Dic sẽ hay hơn.

Dim fDate As Long, eDate As Long, iDate As Long
Dim myRng As Range, endR As Long, fR As Long, s As Long
Dim wf As WorksheetFunction, Arr()
Private Sub CommandButton1_Click()
fDate = DTPicker1: eDate = DTPicker2
CheckDate
Unload Me
End Sub
Sub CheckDate()
fR = 5
Set wf = WorksheetFunction
With Sheets("Data")
  endR = .Cells(65000, 1).End(xlUp).Row
  Set myRng = .Range("A" & fR & ":A" & endR)
End With
s = 0
ReDim Arr(1 To eDate - fDate + 1, 1 To 1)
For iDate = fDate To eDate
  If wf.CountIf(myRng, iDate) = 0 Then
    s = s + 1
    Arr(s, 1) = CDate(iDate)
  End If
Next iDate
If s > 0 Then
  Sheet3.Range("A1").Resize(s, 1) = Arr
End If
Erase Arr
Set wf = Nothing: Set myRng = Nothing
End Sub

 

[spacemanforever]

Em chép code này vào thử, kq sẽ ở sheet3. Nếu dùng Dic sẽ hay hơn.

1.Nhờ anh hướng dẫn cụ thể hơn. Dic là gì?
2. em chép code về chạy tùm lum mong anh xem lại dùm (như hình đính kèm):

 

[ThuNghi]

1.Nhờ anh hướng dẫn cụ thể hơn. Dic là gì?
2. em chép code về chạy tùm lum mong anh xem lại dùm

Dic là Scripting.Dictionary
File nè bạn.
Lưu ý muốn check từ form thì phải chép code vào form.

 

[spacemanforever]

Vậy mình muốn kết hợp Scripting.Dictionary vào vba excel phải làm sao vậy anh?
Và với vấn đề của em, em muốn xuất ra massagebox có được không?
Cảm ơn anh nhiều!

 

[ThuNghi]

Vậy mình muốn kết hợp Scripting.Dictionary vào vba excel phải làm sao vậy anh?
Và với vấn đề của em, em muốn xuất ra massagebox có được không?
Cảm ơn anh nhiều!

1/ Từ từ mà nghiên cứu Dic
2/ Thêm vào 1 dòng sau trên Erase Arr

MsgBox Join(WorksheetFunction.Transpose(Arr), Chr(10))

Và bỏ cái gán tại sh3.

 

[ChanhTQ@]

Thêm 1 tham khảo cho nút lệnh "OK" (Macro trong Excel 2003)

Private Sub CommandButton1_Click()
 Dim MyDate As String
 Dim Sh As Worksheet, Rng As Range, sRng As Range
 Dim jJ As Integer, SNgay As Integer
       
 Set Sh = Sheets("DATA")
 Set Rng = Sh.Range(Sh.[a4], Sh.[A65500].End(xlUp))
 SNgay = CVDate(TextBox2.Value) - CVDate(TextBox1.Value)
 For jJ = 0 To SNgay
   Set sRng = Rng.Find(jJ + CVDate(TextBox1.Value), , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      MyDate = MyDate & ", " & CVDate(TextBox1.Value) + jJ
   Else
'      MsgBox jJ + CVDate(TextBox1), , "Yes"'
   End If
 Next jJ
 MsgBox MyDate
End Sub