iki sayı arasındaki sayıları yazdırma

[afyonlu2627]

0100000000-9999999999 bu sayılar asarındaki sayıları yazdırmak istiyorum.nasıl yapabilirim

 

[ÖmerBey]

Yazdırmak derken?
Nereye yazdıracaksınız?

 

[afyonlu2627]

herhangi bir çalışma kitabına

 

[ÖmerBey]

Şunu bir deneyin.

Sub sayilar()
DoEvents
a = 1
b = 1
For c = 100000000 To 9999999999#
If a > 1000000 Then b = b + 1: a = 1
Cells(a, b) = c
a = a + 1
Next
End Sub

 

[afyonlu2627]

Teşekkür edrim ama benim ilk sayım 0100000000 yani başı sıfır olacak.o şekilde olabilir mi?

 

[Mahir64]

Merhaba,

Başında sıfır olan sayı olur mu?

--

 

[ÖmerBey]

Tüm hücreleri seçin, sonra hücre biçimlendirmesinden isteğe uyarlanmış olarak 0000000000 (10 sıfır) şeklinde ayarlayınız.