thaitungchi
Thành viên chính thức
- Tham gia
- 20/1/17
- Bài viết
- 55
- Được thích
- 19
Xin các bác cho hỏi có cách nào điền giá trị lưu trong mydict (Dictionary) ra một cell nào đó, ví dụ A1:A.
Mặc dù đã có tham khảo cách sử dụng Dictionary trên diễn đàn rồi nhưng mà chưa có hướng dẫn chi tiết, hoặc là khả năng VBA còn hạn chế quá.
Mong các cao thủ ra tay cứu giúp.
Mặc dù đã có tham khảo cách sử dụng Dictionary trên diễn đàn rồi nhưng mà chưa có hướng dẫn chi tiết, hoặc là khả năng VBA còn hạn chế quá.
Mong các cao thủ ra tay cứu giúp.
PHP:
Sub Sample4()
Dim mydict As Object
Set mydict = CreateObject("Scripting.Dictionary")
Dim c As Range
Dim firstAddress As String
Dim dk1 As Variant
Dim dk2 As Variant
dk1 = Worksheets("Memberlist").Range("D4").Value
dk2 = Worksheets("Memberlist").Range("D6").Value
With Worksheets("OrderList").Range("C9:C370")
Set c = .Find(dk1, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
If dk2 = "" Then
MsgBox ("Please Input Worktype")
Else
Do
If dk2 = c.Offset(0, 1).Value Then
mydict.Add c.Offset(0, -2).Value, ""
MsgBox ("Gia tri la" & c.Offset(0, -2).Value)
End If
Set c = .FindNext(c)
If c Is Nothing Then Exit Do Post thread
Loop Until c.Address = firstAddress
End If
End If
End With
End Sub
