Anh ơi, người ta chưa biết và mới học thì mới mắc sai lầm, anh là người am hiểu nếu anh biết thì anh chỉ dẫn giúp cho người ta đi. Sao anh lại nói như vậy? @truongvu317
Tui chả phải là người am hiểu gì cả, nhưng tui nói thật. Cái thứ nhất phải có file, phải có dữ liệu, mô tả mã lỗi.... Không có thì chả khác nào đánh đố nhau.
Bác cho hỏi thêm một chút là em muốn hiện số dòng của listbox listcount vào một label mỗi khi số dòng của listbox thay đổi, em đã thử dùng sự kiện listbox change, listbox after update nhưng không hiệu quả.
Không có sự kiện có sẵn kiểu như vậy đâu. Số dòng của listbox thay đổi là do bạn thực hiện một lệnh nào đó, như vậy bạn muốn đếm thì đếm khi thực hiện lệnh đó là được.
Thanks bác nhiều, nhờ bác chỉ dẫn e đã gần hoàn thành được chương trình rồi. Tuy nhiên e đang còn một chỗ mắc cuối nhờ bác xem giúp.
Không biết có phải như vầy không
Sub CongCham()
Dim Rng, sArr, tArr, dArr, I As Long, J As Long, Col As Long, R As Long
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
With Sheet9
Set Rng = .Range("E8:AI8")
sArr = .Range("B10", .Range("B" & Rows.Count).End(xlUp)).Resize(, 34).Value
End With
With Sheet3
tArr = .Range("B3", .Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value
End With
For I = 1 To UBound(tArr)
Dic.Item(CStr(tArr(I, 3))) = I
Next I
ReDim dArr(1 To UBound(sArr), 1 To 31)
For I = 1 To UBound(sArr)
R = Dic.Item(sArr(I, 1))
If R Then
For J = 1 To Rng.Columns.Count
If tArr(R, 1) = Rng(1, J) Then
Col = J: Exit For
End If
Next J
If Col Then dArr(I, Col) = tArr(R, 6)
Col = 0
End If
Next I
Sheet9.Range("E10:AI10").Resize(I - 1).ClearContents
Sheet9.Range("E10:AI10").Resize(I - 1) = dArr
End SubCảm ơn bạn đã giúp đỡ.
Bạn thử lại Code này
Public Sub CongCham()
Dim Rng, sArr, tArr, dArr, I As Long, J As Long, R As Long
Dim Dic As Object
Set Dic = CreateObject("Scripting.Dictionary")
With Sheet9
Set Rng = .Range("E8:AI8")
sArr = .Range("B10", .Range("B" & Rows.Count).End(xlUp)).Resize(, 34).Value
End With
With Sheet3
tArr = .Range("B3", .Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value
End With
For I = 1 To UBound(tArr)
Dic.Item(CStr(tArr(I, 3))) = I
Next I
ReDim dArr(1 To UBound(sArr), 1 To 31)
For I = 1 To UBound(sArr)
R = Dic.Item(sArr(I, 1))
For J = 1 To Rng.Columns.Count
If R Then
If tArr(R, 1) = Rng(1, J) Then
dArr(I, J) = tArr(R, 6)
Else
dArr(I, J) = sArr(I, J + 3)
End If
Else
dArr(I, J) = sArr(I, J + 3)
End If
Next J
Next I
Sheet9.Range("E10:AI10").Resize(I - 1).ClearContents
Sheet9.Range("E10:AI10").Resize(I - 1) = dArr
Set Dic = Nothing
End SubCảm ơn bạn thật nhiều.
Bạn giúp mình tí nữa ạ. Mình thử 2 ngày nghỉ cho 1 mã nv nhưng code chỉ lấy ngày sau cùng.
Bạn thử xem
Public Sub CongCham()
Dim Rng, sArr, tArr, dArr, I As Long, J As Long
Dim Dic As Object, sKey As String, R As Long
Set Dic = CreateObject("Scripting.Dictionary")
With Sheet9
Set Rng = .Range("E8:AI8")
sArr = .Range("B10", .Range("B" & Rows.Count).End(xlUp)).Resize(, 34).Value
End With
With Sheet3
tArr = .Range("B3", .Range("B" & Rows.Count).End(xlUp)).Resize(, 6).Value
End With
For I = 1 To UBound(tArr)
sKey = tArr(I, 1) & "#" & tArr(I, 3)
Dic.Item(sKey) = I
Next I
ReDim dArr(1 To UBound(sArr), 1 To 31)
For I = 1 To UBound(sArr)
For J = 1 To Rng.Columns.Count
sKey = Rng(1, J) & "#" & sArr(I, 1)
R = Dic.Item(sKey)
If R Then
dArr(I, J) = tArr(R, 6)
Else
dArr(I, J) = sArr(I, J + 3)
End If
Next J
Next I
With Sheet9
.Range("E10:AI10").Resize(I - 1).ClearContents
.Range("E10:AI10").Resize(I - 1) = dArr
End WithCảm ơn bạn đã nhiệt tình giúp đỡ.
1/ Ở Topic kia tôi cũng đã góp ý cho bạn là nên nêu rỏ vấn đề cần làm rồi nhờ giúp, người giúp đập bỏ đi và có giải pháp khác rồi làm lại chỉ vài dòng code còn nhanh hơn là mò sửa cái cái Record Macro (sẽ không hiểu hết ý của bạn), nhưng bạn lại không nghe và đưa lên một đống code thừa thải.
Bạn nên tập thói quen nhận ý kiến đóng góp của các thành viên mới mong nhận được giải pháp tốt nhất.
Tôi chưa rành code và thiết kế cho lắm, mong bạn giúp, mới thàm gia. Xin cảm ơn.
Tôi thấy bác kia nói đúng đấy. Tôi cũng mới mò vba nên code viết còn rườm rà, nhưng nhìn code của bác thì choáng luôn.
