hung2412
Thành viên tích cực
- Tham gia
- 5/8/08
- Bài viết
- 934
- Được thích
- 240
- Giới tính
- Nam
Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tôi có một bảng tính như vầy:
Dọc theo cột B là các ô chứa mã số khác nhau hoàn toàn (Không có ô nào trùng với ô nào). Để nạp các ô đó vô Dictionary, tôi xài Code:
[GPECODE=vb]Sub Nap_vo_Dic()
Dim Dic As Object
Dim rng As Range
Set Dic = CreateObject("Scripting.Dictionary")
For Each rng In Range([B3], [B65536].End(xlUp))
If Not Dic.exists(rng.Value) Then
Dic.Add rng.Value, Empty
End If
Next
MsgBox Dic.Count
End Sub[/GPECODE]
=> Vấn đề được đặt ra ở đây là: Có Code nào nạp các ô chứa mã số đó vô Dictionary mà không phải xài For...Next (Vì các ô chứa mã số đó không trùng với nhau nên xài For...Next chưa hiệu quả).
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tôi có một bảng tính như vầy:
Dọc theo cột B là các ô chứa mã số khác nhau hoàn toàn (Không có ô nào trùng với ô nào). Để nạp các ô đó vô Dictionary, tôi xài Code:
[GPECODE=vb]Sub Nap_vo_Dic()
Dim Dic As Object
Dim rng As Range
Set Dic = CreateObject("Scripting.Dictionary")
For Each rng In Range([B3], [B65536].End(xlUp))
If Not Dic.exists(rng.Value) Then
Dic.Add rng.Value, Empty
End If
Next
MsgBox Dic.Count
End Sub[/GPECODE]
=> Vấn đề được đặt ra ở đây là: Có Code nào nạp các ô chứa mã số đó vô Dictionary mà không phải xài For...Next (Vì các ô chứa mã số đó không trùng với nhau nên xài For...Next chưa hiệu quả).
Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.
Lần chỉnh sửa cuối:
