otomatik yazı veri doldurma

[hanahmet]

selam arkadaşlar

benim acayip bir sorum var :lol:
harfler ve sayılarla hücreleri doldurmak istiyorum. her bir hücre 3 karakterli olacak ve sırayla bir sonraki değer gelecek.

not: harfler türkçe karakter olmayan ingilizce alfabeler olması gerek ve ayrıca küçük harfler lazım. birde büyük harflerle uğraşmak istemiyorum. harflerin yanında rakamlarda olması lazım.

aaa
aab
aac
aad
…
…
…
...
...
...
...
aav
aaz
aa0
aa1
aa2
aa3
…
…
…
aa8
aa9
aba
abb
abc
abd
abe
…
…
abv
aby
abz
ab0
ab1
ab2
….
…
ab8
ab9
aca
acb
…
…
…
…
…
…
…
…
…
…
zzv
zzy
zzz
zz0
zz1
zz2
…
…
zz8
zz9
0aa
0ab
0ac
…
…
…
...
...
...
996
997
998
999


örnekteki gibi. ama istediğim şey aradaki boşluklarında dolması gerek. yani 26 harf + 10 rakam olursa = 36 karakter eder

toplam da ise 36*36*36 = 46656 hücre olması lazım.

sizden ricam bunun nasıl yapılacağını söyleyebilir misiniz veya yapabilir misiniz ?

şimdiden teşekkürler herkese . . .

 

[leumruk]

Merhaba,

Sub harf()
deg = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", _
"m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", _
"0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
Sat = 1: Sut = 1
For x = LBound(deg) To UBound(deg)
    For y = LBound(deg) To UBound(deg)
        For z = LBound(deg) To UBound(deg)
            Cells(Sat, Sut) = deg(x) & deg(y) & deg(z)
            Sat = Sat + 1
            If Sat > 65536 Then Sat = 1: Sut = Sut + 1
        Next
    Next
Next
MsgBox "İşlem tamamlanmıştır.", vbInformation, "l e u m r u k"
End Sub

 

[excel03]

Sub SatırNo()
Dim Sat As Range
Dim SatNo As Range
Set SatNo = Range("A1:A46656")
yüzler = 0
onlar = 0
birler = 0
i = -1
s = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9")
onluklar = s(onlar)
yüzlükler = s(yüzler)

For Each Sat In SatNo
dön = dön + 1

If i = 35 Then
i = -1
onlar = onlar + 1
If onlar < 36 Then onluklar = s(onlar)
End If

If onlar = 36 Then
onlar = 0
onluklar = s(onlar)
yüzler = yüzler + 1
If yüzler < 36 Then yüzlükler = s(yüzler)
End If

i = i + 1
birlikler = s(i)
Sat = yüzlükler & onluklar & birlikler
Next

End Sub

 

[hanahmet]

teşekkürler

çok teşekkürler kardeşler.

sayenizde haftaya çok iyi başlayacağım.

selametle . . .

 

[Skorpiyon]

Soruya cevap verilmiş ama, alternatif olsun. Örneği inceleyiniz.