VBA ile 1'den 10'a Kadar Kaç Farklı Şekilde Sayabiliriz

[sakincekirge]

VBA ile 1'den 10'a Kadar Kaç Farklı Þekilde Sayabiliriz

Merhabalar,
Ben excel'de vba uygulamalarına birkaç gündür merak salmış durumdayım. Bunun için yavaş yavaş, oradan buradan birşeyleri kapmaya çalışıyorum. Sanırsam vba'da bilgi ve deneyim kadar, farklı düşünebilme yeteneğide çok önemli bir rol oynuyor. Bunun için bende basit bir kodda ne gibi farklı yollara başvurulacağını görmek istedim. Evet işimi tıkayan,çözümsüz bir problem değil; ama bir yola ne kadar farklı ulaşabileceğimiz göstermesi açısından merak ediyorum.

İş:
A1 hücresinden başlayarak A10 hücresine kadar,1'den 10'a kadar sayıların yazılması.

benim kodum, sanırsam en basiti ve en deneyimsizi bu :

Sub Say()
for a = 1 to 10
cells(i, 1).value = i
next i
end sub

 

[sakincekirge]

evet acemiyim demiştim :

Sub Say()
for a = 1 to 10
cells(a, 1).value = a
next a
end sub

 

[Levent Menteşoğlu]

Sanırsam vba'da bilgi ve deneyim kadar, farklı düşünebilme yeteneğide çok önemli bir rol oynuyor.

Bu konudaki fikrinize tamamen katılıyorum.

[vb:1:3fe1dd4d60]Sub Say()
for a = 1 to 10
cells(a, 1).value = a
next a
end sub [/vb:1:3fe1dd4d60]

Başlangıç için çok başarılı bir kod. Bunun için farklı bir yazım şekilleri elbette bulunabilir ama sizinki amaca ulaşmak için en iyi olanı. Ben fikir vermesi açısından başka bir örnek vereyim. Aşağıdaki kodda aynı mantık kullanılmış olup sadece hücre tanımlaması farklı kullanılmıştır.

[vb:1:3fe1dd4d60]Sub Say()
for a = 1 to 10
range("a" & a) = a
next a
end sub [/vb:1:3fe1dd4d60]

 

[vasco]

Değişik döngüler de kullanilarak yapılabilir...

sub Say()
dim i as integer
while i<10
cells(i,1).value=i
i=i+1
Wend
End Sub

 

[Haluk]

Bir benzeri de;

Sub Test()
    Do While i < 10
        i = i + 1
        Cells&#40;i, 1&#41; = i
    Loop
End Sub