Tham khảo theo link trên em đọc một ngày rồi cả một rừng Code em hiểu được chắc khoãng 5 năm nữa quá.code Dic hay Collection...em cũng mê lắm đọc riết trên GPE và tải File về vọc chơi những vẫn thấy nó còn đang nằm trên chín tầng mây ấy Anh ạ
Sheet1, cột I, từ I5:I184 là Text chứ không phải Date, bạn phải sửa lại cho thống nhất kiểu dữ liệu.
text là do minh dùng ADO ghi vào đó đấy khi mình lấy dữ liệu lên lọc mới chuyển sang date...
Cả 2 Sub đều đâu có ra kết quả đúng đâu. Vì cột ngày tháng loạn 12 sứ quân rồi
Sub Loc_Ngay_Dic()
Dim nguon(), KQ(1 To 65536, 1 To 10), i As Long, j As Long, fDate, eDate, NGAY As String
.............................
For[COLOR=#ff0000] j = 1 [/COLOR]To 10
If nguon(i, 9) <> "" Then
If nguon(i, 9) >= fDate And nguon(i, 9) <= eDate Then
NGAY = (nguon(i, 9))
If .Exists(NGAY) Then
[COLOR=#ff0000] j = j + 1[/COLOR]
....................................
End Sub
1) Ngày tháng trong file của bạn có một ít ở trái đất, một ít ở.......hành tinh khác nên ông Bill hông nhận biết được
Thật ra để xử lý thì cũng chẳng khó khăn gì, thêm 1 dòng lệnh vào nữa thôi là bình định được 12 sứ quân đó thôi.
Đã dùng ADO để ghi dữ liệu sao không dùng luôn ADO để trích xuất dữ liệu? Mà ghi dữ liệu bằng ADO có thể bạn có dữ liệu nguồn là file Access hay CSDL tại sao không xử lý trên đó mà quay ra Excel làm gì?
mình sử dung hai file . file a ghi vào file b khi cần dữ liệu thì lấy lên sau đó lọc theo ngày. ngày loạn la do mình copy lại từ file b do ADO ghi vào đó nên ngày nó sai đi.
Nếu bạn đã biết về ADO thì bạn chỉ cần dùng truy vấn dạng
Select * From [Table] Where [Field1]>= Fromdate and [Field2]<= TodateLoc kiểu này, không cần lọc duy nhất cho một "cái gì đó" thì Dictionary làm gì nhỉ?
Với dữ liệu này phải dùng code này đinh dạnh lại ngày tháng, nếu không thì cái code mảng cũng đi hoang luôn
Sub ChangeDateFormat()
Dim data(), i As Long
data = Range([I5], [I65536].End(3)).Value
For i = 1 To UBound(data)
data(i, 1) = DateValue(data(i, 1))
Next
[I5].Resize(i - 1) = data
End SubPrivate Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [P1:P2]) Is Nothing Then
[A4:J10000].AdvancedFilter 2, [W4:W5], [L4:U4]
End If
End SubSub LOC_MANG()
Dim sArr(), dArr(), i As Long, j As Long, k As Long
Dim fDate As Long, eDate As Long, chk As Variant
With Sheet1
sArr = .Range(.[A5], .[B65536].End(3)).Resize(, 10).Value
ReDim dArr(1 To UBound(sArr, 1), 1 To 10)
fDate = .[P1].Value: eDate = .[P2].Value
For i = 1 To UBound(sArr, 1)
chk = sArr(i, 9)
If Not IsNumeric(chk) Then sArr(i, 9) = DateValue(chk)
If DateValue(chk) >= fDate Then
If DateValue(chk) <= eDate Then
k = k + 1
For j = 1 To 10
dArr(k, j) = sArr(i, j)
Next j
End If
End If
Next i
If k Then .[L5].Resize(k, 10) = dArr
End With
End Submình ghi vào bằng code này do HLMT viết cho
cái vụ ChangeDateFormat này em tự làm được mà.còn vụ lọc AdvancedFilter thì anh chỉ em hôm rồi . em cũng sử được luôn mà. và vụ mãng thì Anh bate làm cho rồi hiện đang sử dụng rất tốt. vấn đề là em đang muốn hoc dic hay dung ADO lọc ngày trực tiếp lên thôi anh...
Nếu muốn nghiên cứu, học hỏi về Dictionary trên GPE thì cứ gõ "Dictionary" vào ô tìm kiếm, ít nhất cũng tìm được cái này, và còn nhiều nhiều nữa.
Sub LocDuLieu()
Dim Cnn As Object, Rs As Object, Fdate As Date, Tdate As Date
Fdate = Sheet1.[I2].Value2
Tdate = Sheet1.[I3].Value2
Set Cnn = CreateObject("ADODB.Connection")
With Cnn
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0;HDR=No;"""
.Open
Set Rs = .Execute("Select F1,F2,F3,F4,F5,F6,F7,F8 From [Sheet1$B5:I65536] Where F8 Between #" & Format(DateSerial(Year(Fdate), Month(Fdate), Day(Fdate)), "mm/dd/yyyy") _
& "# And #" & Format(DateSerial(Year(Tdate), Month(Tdate), Day(Tdate)), "mm/dd/yyyy") & "#")
Sheet2.Range("B2:B65536").ClearContents
Sheet2.Range("B2").CopyFromRecordset Rs
Cnn.Close: Set Cnn = Nothing
End With
End SubNếu bạn dành về ADO thì bạn giúp mình lọc ngày bằng ADO lấy từ file data lên nhé.còn code trên chạy rất tốt nhưng chỉ trên cùng một file thôi thì phải
Sub LocDuLieu()
Dim Cnn As Object, Rs As Object, Fdate As Date, Tdate As Date
Fdate = Sheet2.[I2].Value2
Tdate = Sheet2.[I3].Value2
Set Cnn = CreateObject("ADODB.Connection")
With Cnn
.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & ThisWorkbook.Path & "\data.xlsb" & ";Extended Properties=""Excel 12.0;HDR=No;"""
.Open
Set Rs = .Execute("Select F1,F2,F3,F4,F5,F6,F7,F8,F9,F10 From [DataBan$A2:J65536] Where F9 Between #" & Format(DateSerial(Year(Fdate), Month(Fdate), Day(Fdate)), "mm/dd/yyyy") _
& "# And #" & Format(DateSerial(Year(Tdate), Month(Tdate), Day(Tdate)), "mm/dd/yyyy") & "#")
Sheet1.Range("A3:B65536").ClearContents
Sheet1.Range("A3").CopyFromRecordset Rs
Cnn.Close: Set Cnn = Nothing
End With
End Sub
