Không phải chỗ Cdate đó anh ạ vì chỗ đó em đã Comment Block rồi.
Không đúng nha anh. Cái này em dùng Sub trên Module s3_laytenngay không phải ghi từ Userform ạ.
1. Đầu tiên cám ơn anh đã góp ý giúp em. Tuy nhiên trong trường hợp này thì cái gốc rễ không phải là ở điểm gán dữ liệu ngày tháng sử dụng Cdate từ Userform xuống Sheet vì em đã xóa trắng (Clear All) dữ liệu cột ngày tháng và nhập tay lại vẫn như cũ.
Đã kiểm tra thử thì đúng là sau khi transpose dic.keys ngày tháng bị đảo ngược. Mà lạ là nếu add key thông qua một biến long gán ngày tháng thì không lỗi, mà add trực tiếp thì lỗi.
Cám ơn bạn nhiều nhé, mình đã thêm một biến long vào thì kết quả đã ra đúng. mặc dù không rõ tại sao nhưng kết quả đúng yêu cầu là tuyệt vời.
Đúng là em cũng đọc nhiều bài và tìm hiểu thì Date Time nên dùng value2.
Cám ơn anh nhiều nhé.
Không biết ai làm thế nào chứ với tôi thì tôi sẽ dùng 1 vòng lặp duyệt qua hết keys lấy kết quả vào 1 mảng thì mới chen vị trí chứa giá trị rỗng vào được.
Anh/chị có thể giúp em đoạn code lấy key từ dic ra được không? Em viết mà mãi không được ạ.
Hiện tại em mới nghĩ ra được code chạy thủ công như thế này kết quả đúng nhưng nhìn hơi củ chuối xíu.
Củ chuối mà ra kết quả là tốt rồi, chứ củ sâm mà không ra kết quả thì cũng vô ích bạn ạ.
Tạo riêng cho nó cái mảng. Đưa nó vào mảng ngay từ lúc add key. Nếu Dic chưa có gì thì add vào cột đầu trong mảng rồi cho biến cột tăng dần, khi dic đã tồn tại key thì tăng biến cột thêm 1 nữa rồi add vào mảng... nếu khó hiểu thì bỏ qua nha...
Đúng rồi bạn. Đó là tôi quên thòng 1 câu là không can thiệp vào các dòng code đã có.
Em làm như anh hướng dẫn nhưng nó chỉ ra được 1 kết quả nằm tuốt ở ngoài khơi luôn ạ, do chỗ so_phan_tu_xet_nghiem em không rõ biến nó là gì? mong anh giúp thêm ạ.
Hihi. cao siêu quá em xin chịu ạ.
Bạn làm đúng hết những gì mà bài #19 đã chỉ. Cái sai của bạn là redim mangTieuDe trong vòng lặp nên qua mỗi lần lặp là kết quả trong mangTieuDe bị reset và trống rỗng, chỉ có cái chiso là vẫn cứ tăng đều. Chỉ còn mỗi cái tiêu đề cuối là chấm dứt vòng lặp kia nên không bị reset.
Không phải không đúng mà có lẽ em nói từ dic đã tồn tại key chưa hợp lý lắm. Cái em nói tới là dic.count chứ không phải dic.exists. Tức là trong dic chưa có bất kỳ key nào
Đây là kỹ thuật đít sần với item gồm nhiều trường.
Value2 lấy kết quả chứa bên trong bảng tính. Value lấy kết quả theo kiểu dữ liệu mà Excel hiểu.
Cám ơn anh/chị em đưa cái Redim lên trước vòng lặp đã ra kết quả đúng. Nhưng chỗ khai báo Redim mangTieuDe(1 to ?x2) em chưa rõ chỗ dấu ? là mình lồng biến gì vô? hiện e đang gõ đại là 100.
Lúc đầu thì đâu biết kích thước cột của tiêu đề đâu nên cách đơn giản nhất là áng chừng và khai báo đại. Ví dụ ước cỡ 100 cột như bạn rồi x 2.
Hết cách mới dùng Redim Preserve trong vòng lặp anh nhé, vì cái đó rất nặng nhọc.
Em lấy theo kích thước của mảng luôn Redim mangTieuDe(1 to Ubound(arr,1))
Dạ do đầu bài em đang bỏ cách cột nên phải nhân 2.
ReDim mangTieuDe(1 To 1, 1 To 2 * dic2.Count) '1 cot an 2 cot
Dim vTemp
chiso = 0
For Each vTemp In dic2.Keys()
chiso = chiso + 1 'Nhay toi vi tri de viet
mangTieuDe(1, chiso) = vTemp
chiso = chiso + 1 ' bo qua mot cot
Next
Option Explicit
Sub s3_lay_ten_ngay() '20/4/2022 tu viet
Application.ScreenUpdating = False
Dim arr, cell As Range
Dim lr&, i&, dk$, c&, c2&
Dim dic As Object: Set dic = CreateObject("Scripting.Dictionary")
Dim dic2 As Object: Set dic2 = CreateObject("Scripting.Dictionary")
dic2.CompareMode = TextCompare
With Sheet2
.AutoFilterMode = False
lr = .Range("F" & Rows.Count).End(xlUp).Row
arr = .Range("F9:M" & lr).Value2
dk = .Range("P3").Value
End With
For i = 1 To UBound(arr)
If arr(i, 6) = dk Then
If Not dic.Exists(arr(i, 1)) Then
dic.Add arr(i, 1), ""
End If
If Not dic2.Exists(arr(i, 3)) Then
dic2.Add arr(i, 3), ""
End If
End If
Next i
c = dic.Count
c2 = dic2.Count
If c2 = 0 Then Exit Sub
i = 0
With Sheet3
.Range(.Cells(10, 5), .Cells(10, 5 + c2)).EntireColumn.Hidden = False
.Range(.Cells(10, 5), .Cells(10, 5 + c2)).ClearContents
For Each cell In .Range("F10").Resize(, c2 * 2 - 1)
i = i + 1
If WorksheetFunction.IsOdd(i) Then cell.Value = dic2.Keys()(Int((i - 1) / 2))
Next
.Range(.Cells(11, 5), .Cells(11 + c, 5)).EntireRow.Hidden = False
.Range("E11:E" & 10 + c).ClearContents
.Range("E11").Resize(c).Value = Application.WorksheetFunction.Transpose(dic.Keys)
.Range("E11:E" & 10 + c).Sort .Range("E10"), xlAscending
.Range(.Cells(10, 6 + c2 * 2), .Cells(10, 52)).EntireColumn.Hidden = True
.Range(.Cells(11 + c, 5), .Cells(400, 5)).EntireRow.Hidden = True
End With
Application.ScreenUpdating = True
End SubCám ơn anh nhiều nhé.
