2009-08-18 28 views
47

Tôi đang sử dụng lớp Từ điển trong thư viện MS Runtime Scripting để lưu trữ nơi nhãn sẽ đi cho mẫu báo cáo. Có cách nào để lặp qua tất cả các cặp khóa giá trị trong từ điển đó như trong Python không? Tôi chỉ muốn sử dụng khóa làm số hàng (Tất cả đều nằm trong cột A) và giá trị sẽ là tiêu đề nhãn.Lặp lại từ điển VBA?

Cái gì như:

For Each key in dict 
    Range("A" & key).Value = dict(key) 
Next key 

Trả lời

83

Hãy thử:

For Each strKey In oDic.Keys() 
    Range("A" & strKey).Value = oDic(strKey) 
Next 
+23

tôi sẽ thêm strKey rằng cần được khai báo 'Như Variant', bởi vì' Đối Each' không hoạt động với 'String's . – stenci

Các vấn đề liên quan