Thêm dòng sau vào nhé:
.ColumnWidths = "40;100;50"Cảm ơn Anh leonguyenz, nhiều ạ.
With Sheet2
dl = .[M6:P74].Value
End WithWith Sheet2
dl = .[M5:P74].Value
End WithCảm ơn thuyyeu99 đã quan tâm,
Không biết có phải vậy không ạ? , nếu đúng như vậy thì trường hợp muốn sử dụng với RowSource thì code phải ra sao. Híc
Hihi lâu rồi mình không dùng tới mấy cái control trong excel nên mình cũng không nhớ rõ nữa. Mình nhớ mang máng bài viết của anh hoàng trong nghĩa có úp code đo, còn nếu bạn muốn đẹp thì dùng listview de hiển thị (ma nó không hien thi duoc unicode), còn gán dữ liệu thì cứ từ array ma gán xuống sheet
Dạ vâng, OT cảm ơn leonguyenz đã giúp đỡ.
Dữ liệu đưa ra ngoài sheet (cột MNO, đang để ẩn).
OT Thấy rồi ạ,
Tmp = Sheet1.Range("M6").Resize(j, 3).Address(0, 0)
'ActiveSheet.ListBox1.List = kQ
ActiveSheet.ListBox1.ListFillRange = Tmp
Const Alf As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
Sub ymdID()
Dim MaKH As String, MaYMD As String, MaTam As String, MyAdd As String
Dim Cls As Range, Rng As Range, sRng As Range
Dim Rws As Long, Num As Integer
On Error Resume Next
With Sheets("YMD")
Rws = .[d1].CurrentRegion.Rows.Count
Set Rng = .[B1].Resize(Rws)
Rng.Offset(, -2).Value = Space(0)
For Each Cls In .Range(.[d2], .[d2].End(xlDown))
MaYMD = idYMD(Cls.Value)
Set sRng = Rng.Find(MaYMD, , xlFormulas, xlPart)
If sRng Is Nothing Then
Cls.Offset(, -2).Value = MaYMD & "00"
Else
MyAdd = sRng.Address
Do
MaTam = sRng.Value
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
Num = CInt(Right(MaTam, 2)) + 1
Cls.Offset(, -2).Value = MaYMD & Right("0" & CStr(Num), 2)
Num = 0
End If
Next Cls
End With
End SubFunction idYMD(Optional Dat As Date)
If Dat = 0 Then Dat = Date
idYMD = Mid(Alf, Year(Dat) - 2000, 1) & Mid(Alf, Month(Dat) + 1, 1)
idYMD = idYMD & Mid(Alf, Day(Dat) + 1, 1)
End Function
