2009-08-18 22 views
47

Etiketlerin rapor şablonu için nereye gideceğini saklamak üzere MS Runtime Scripting kitaplığında Dictionary sınıfını kullanıyorum. Python'da olduğu gibi bu sözlükteki tüm anahtar değer çiftlerini tekrarlamanın bir yolu var mı? Sadece anahtarı satır numarası olarak kullanmak istiyorum (Hepsi A sütununa gidiyor) ve değer etiket başlığı olacak.VBA sözlükleri üzerinde yineleme?

şey gibi:

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

cevap

83

Dene: O strKey eklersiniz

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

'beyan edilmelidir Variant', çünkü' Each' ile çalışmıyor için 'String's gibi . – stenci

İlgili konular