EXCEL USTASI

Altışarlı Sayı Yazmanın Kolay Yolu

Özgür sordu

Excel Soruları

Merhaba, ben tez çalışmam için gireceğim veriler altışarlı şekilde artması gerekiyor bunu Excel dosyasına girmenin kolay bir yolu var mıdır?

Teşekkürler…
1
1
1
2
2
2
3
3
3

Excel Cevapları

Merhaba;
Boş bir Excel açın. Alt + F11 tuşuna basarak makro kısmına geçin ve aşağıdaki kodu yapıştırın. Kodda kacaKadar kısmını ne kadar ilerletmek istiyorsanız sayı yazın. Ben 20 yazdım. F5 ile kodu çalıştırdığınızda istediğiniz şekilde 6’şar tekrar yapacaktır.


Sub sayiUret()

Dim i As Integer
Dim j As Integer
Dim say1 As Integer
Dim say2 As Integer
Dim kacaKadar As Integer
say1 = 1
say2 = 1
kacaKadar = 20

For j = 1 To kacaKadar

For i = 1 To 6
Range(“A” & say1).Value = say2
say1 = say1 + 1
Next

say2 = say2 + 1

Next

End Sub

Yorum yapın