DOKUMANISTAN.COM
|| İÇERİK

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

Soru Cevap Bölümü
|| İÇERİK

Ö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

Mustafa ÇETİN
Mustafa ÇETİN

Yorumlar - Altışarlı Sayı Yazmanın Kolay Yolu için

Yorum bırakın

E-posta hesabınız yayımlanmayacak.

This site uses Akismet to reduce spam. Learn how your comment data is processed.