değişken tanımlama sorunu

[lionheart]

merhaba
yazdığım makroda, makro içinde hesaplanıp elde edilen a1, a2, a3,.......d4 değerleri bulunmaktadır.
bu hesaplanan değerleri excelde bir sayfaya yazdırmak istiyorum ama yazdıramadım. şu şekilde bir döngü kurdum:

For l = 1 To 4

Range("A" & l) = al
Range("B" & l) = bl
Range("C" & l) = cl
Range("D" & l) = dl

Next l


bir çok deneme yaptım. anladığım kadarıyla ' al ' şeklinde tanımladığım değişkende sıkıntı var. bunun, daha önce hesaplamış olduğum a1, a2... değişkenleri olduğunu, excele nasıl tanıtabilirim?
yardımcı olursanız çok sevinirim. teşekkür ederim. iyi çalışmalar.

 

[hamitcan]

Dosyanızı eklerseniz, daha çabuk cevap bulabilirsiniz.

 

[Zeki Gürsoy]

Bu durumda dizi (array) değişkenleri kullanmanız daha uygun olur.
Kaç tane değişken tanımladığınızı bilmiyorum ama, örneğinize baktığımda 4'erli giden bir değişken grubu olduğunu anlıyorum. Bu da örneğin, 4 sütun X 5 satır = 20 adet değişken kullanıyorsunuz sanırım...

Buna göre aşağıdakine benzer bir kod kullanmanız gerekir.

dim arr(1 to 20) [COLOR=DarkGreen]'20 adet (elemanlı) değişken tanımı...[/COLOR]

[COLOR=DarkGreen]'değişkenlere değer atama...[/COLOR]
arr(1) = 78
arr(2) = 92
[COLOR=DarkGreen]' .
' .[/COLOR]
arr(20) = 36
[COLOR=DarkGreen]
'değişken değerlerini hücrelere yazdırma...[/COLOR]
for r = 1 to 5
  for c = 1 to 4
     s = s + 1
     cells(r, c) = arr(s) 
  next c
next r

 

[mersilen]

Selamlar
bunu mu yapmaya çalışıyorsunuz?

Sub a1()
Dim I As Integer


For l = 1 To 4

Range("A" & l) = "a" & l
Range("B" & l) = "b" & l
Range("C" & l) = "c" & l
Range("D" & l) = "d" & l

Next l
End Sub

 

[lionheart]

mersilen hocam o şekilde oldu mu? çünkü yanlış hatırlamıyorsam ben o şekilde denediğimde çift tırnak içinde ne varsa onu yazdırıyor.yanına da l'nin değerini yazıyor. benim istediğim, örneğin l=5 ise ve a5 değeri de 20 ise; al yazdığımda 20 ye ulaşmak.

zeki hocam senin dediğin gibi yapcam. gayet mantıklı. herkese teşekkür ederim.
tabi bu arada başka yöntemleri olan arkadaşların bilgilerinden de istifade etmek isterim.