Viết code VBA sử dụng Scripting.Dictionary để tổng hợp dữ liệu

One Response

1. hands says:

   26/02/2023 at 8:19 am

   cái này em cũng không biết nhiều, chắc múa rìu qua mắt thợ chút
   theo em nghĩ chắc thớt muốn thêm số lượng item ấy, còn Key add vào là xong chứ gì
   chỗ Array (1,2,3) có thể làm trước đó rồi Add vào Key

   Sub ViDu()
       Dim Dic As Scripting.Dictionary:        Set Dic = New Scripting.Dictionary
       'Dim Dic As Object:      Set Dic = CreateObject("Scripting.Dictionary")
           With Dic
           'Dic.Add KEY, ITEM
           .Add "Key1", Array(1, 2, 3)
           .Add "Key2", Array(4, 5, 6)
           .Add "Key3", Array(7, 8, 9)
           End With
           'Xem gia tri Item cua Key 1, mac dinh Item ban dau la 0
           MsgBox Dic.Item("Key1")(0)
           MsgBox Dic.Item("Key1")(1)
           MsgBox Dic.Item("Key1")(2)
           Set Dic = Nothing
   End Sub

   hi vọng phần nào giúp chủ thớt biết thêm cách lấy giá trị cần tham chiếu đến

   Chỉ hiệu quả khi số phần tử của array không xác định; số sản phẩm không xác định. Thường là sử dụng cho CSDL đã chuẩn bậc 1
   Ở đây là bài toán tính tổng hợp dữ liệu đã crosstab. Dùng thẳng mảng trong bộ nhớ để tính tổng hợp nhanh hơn lấy ra từ dic.

   Reply