Belli sayıda bir rakamı yan-yana getirme

[tamer42]

arkadaşlar merhaba,
belki forumda daha önce geçmiştir ama ben bulmayı beceremedim

yan-yana 0' lardan oluşan;

6 dijit "000000"
7 dijit "0000000"

string olarak yaratmanın pratik bir yolu var mıdır?
teşekkürler,

Sub Testtt()
Dim i As Byte, say As Byte
Dim str As String

str = ""

say = 7

For i = 1 To say
    str = CStr(str & "0")

Next i

Debug.Print str

End Sub

 

[veyselemre]

Sub Testtt()
    Dim say As Byte
    Dim str1 As String    ' str bir vb komutudur, kullanmayın

    say = 7
    str1 = String(say, "0")
    Debug.Print str1
End Sub

 

[tamer42]

Sub Testtt()
    Dim say As Byte
    Dim str1 As String    ' str bir vb komutudur, kullanmayın

    say = 7
    str1 = String(say, "0")
    Debug.Print str1
End Sub

çok Teşekkürler Veysel Hocam

 

[yyhy]

Örnek bir dosya ekleyebilir misiniz? Ne yapılmak isteniyor acaba?