yazı karakterine ekleme

[snx111]

Sub test()

Dim a, b, c, d, e As String
Dim x, y, z As Integer
Sayfa4.Range("a1") = a
a = "hey"
b = "y"
For x = 1 To 150
x = x + 1

Next

End Sub

Sub test()

Dim a, b, c, d, e As String
Dim x, y, z As Integer
Sayfa4.Range("a1") = a
a = "hey"
b = "y"
For x = 1 To 150
x = x + 1

Next

End Sub

"hey" stringine her turda +1 "y" eklenmesi "heyyyyyyyyy" olması için gereken döngü nasıl olmalı ?

 

[Emir Hüseyin Çoban]

. . .

Sub test()

Dim a, b, c, d, e As String
Dim x, y, z As Integer
a = "hey"
Sayfa4.Range("a1") = a

b = "y"
For x = 1 To 150
x = x + 1

Range("a1") = Range("a1") & b

Next

End Sub

. . .

 

[Huseyinkis]

Test edemisiniz.

Sub test()

Dim a, b As String
Dim x As Integer
a = "hey"
b = "y"
For x = 1 To 50
 a = a & b
Next x

Cells(1, 1).Value = a

End Sub