Giúp thay đổi giá trị trong mảng là item của một key

[tueyennhi]

Chào anh chị. Em có đoạn code sau, không rõ em sai về mặt cú pháp không mà giá trị không được thay đổi như ý muốn

                Tem = arr(i, 1)
                If Not Dic.Exists(Tem) And Not IsEmpty(Tem) Then
                    Dic.Add Tem, Array(1, arr(i, 316), 0, 0)
                 ElseIf Dic.Exists(Tem) Then
                    If Dic.Item(Tem)(0) = 1 Then
                        Dic.Item(Tem)(0) = Dic.Item(Tem)(0) + 1
                        Dic.Item(Tem)(2) = arr(i, 316)
                    ElseIf Dic.Item(Tem)(0) = 2 Then
                        Dic.Item(Tem)(0) = Dic.Item(Tem)(0) + 1
                        Dic.Item(Tem)(3) = arr(i, 316)
                    End If
                End If

Code chạy qua 3 sheet dữ liệu. Với mỗi lần thấy key trùng lặp em sẽ update dữ liệu vào item dạng mảng của key đó theo vị trí chỉ định.

 

[truongvu317]

A=dic(key)" đọc nội dung của item
A(0)=2' các câu lệnh sửa nội dung của a


Dic(key)=a" cập nhật lại nôi dung của item

 

[tueyennhi]

A=dic(key)" đọc nội dung của item
A(0)=2' các câu lệnh sửa nội dung của a


Dic(key)=a" cập nhật lại nôi dung của item

Được rồi bạn nhé, Dic vụ này loằng ngoằng thật. Cảm ơn bạn!

 

[truongvu317]

Quy trình sửa nội dung sẽ gồm 3 bước như trên

 

[befaint]

Hỏi rồi.
Trả lời rồi.

Thay đổi item của key trong Dic

Em có đoạn code sau Dic.Add Tem, Array(Arr(i, 12), Arr(i, 13)) Em muốn thay đổi giá trị Item tại vị trí 0 em sử dụng đoạn mã sau nhưng có vẻ không thành công Dic(Tem)(0) = k Mong mọi người chỉ giúp. Em xin cảm ơn!

www.giaiphapexcel.com

 

[ptm0412]

Hỏi rồi.
Trả lời rồi.

Sao nhớ hay vậy "chời"? Vậy chủ đề này nên khóa lại.