otomatik harf üretimi

[cyth]

baslangıcını ve sonunu benim belirleyecegim 6,7 ve 8 haneli harf üretimi isitiyorum.
tesekkurler

 

[dEdE]

Ben de tam bunun üzerinde çalışıyordum. Bu işine yarar sanırım.

Sub rastgele_harf()
For x = 1 To 200
Range("C1").Formula = "=round(rand()*90,0)"
If Range("C1").Value > 64 Then
kelime = Chr(Range("C1").Value)
kelimex = kelimex + kelime
i = i + 1
Range("d1").Value = kelimex
If i > 8 Then Exit Sub ' 6 veye 7 yapabilirsin
End If
Next
End Sub

 

[cyth]

sıralı

sıralı istiyorum, başlangıcını ve sonunu ben belirlemeliyim... ve kucuk harf olmalı
teşekkürler

 

[dEdE]

Böyle olur mu?


Sub rastgele_harf()
a = InputBox("Başlangıç Harfini Yazınız", "İlk Harf")
b = InputBox("Kaç harf üretmek istiyorsunuz", " Harf Sayısı")
For x = Asc(a) To Asc(a) + b - 1
harf = Chr(x)
kelime = kelime + harf
Range("A1").Value = kelime
Next
End Sub

 

[cyth]

özür dilerim ailevi nedenlerden dolayı net e uzun zamandır ugrayamadım. daha simdi cevabınızı aldım fakat benim istedigim
aaaaaa
aaaaab
aaaaac
aaaaad
......
zzzzzz
tarzı .. yardımlarınız icin cok tesekkureler