• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

aaa aab aaac... bu nasıl yapılır ?

Katılım
23 Mayıs 2008
Mesajlar
2
Excel Vers. ve Dili
2003
arkadşalar başlık biraz garip oldu ama kusura bakmayın

ben şöle bişe istiyorum bu acaba excelde yapılır mı

aaa
aab
aac
.
.
.
.
zzy
zzz

yani bütün harfler kendinen yazmasını istiyorum

melsa 1 yapzı aşağı doğru çektiğimizde 2 3 4 5 die otomatik devam ediyo bu dediğimde acaba yapılabilinirmi?

şimdiden herkese teşekkurler.

inş konuyu yanlış yere açmamışımdır.
 
Makro ile bu tür liste kolaylıkla elde edilebilir. Excelin sorunuzla ilgili hazır özellği yok sanırım.
 
Merhaba,

Kendinize özel liste oluşturabilirsiniz. Tıpkı Aylar ve gün adları gibi.

Bunun en kısa yolu bir sütuna bunları 1 kereliğine girmek ve

  • Araçlar
  • Seçenekler
  • Özel Listeler
  • Veri Al
den ekleyebilirsiniz.
 
Liste oluşturma..

Kod:
.
 
Son düzenleme:
Necdet Yeşertener arkadaşım cevabın için sağol fakat
aaa dan zzz ye kadar baya bi 3lü harf kombinasyonu var yanlış hesaplamadım ise 17.000 küsür tane bunları yazmam inkansız :) amacımda zaten benim yazmam değilde bunu excel ile yazdırmak zaten



Zeki Gürsoy
arkadaşım verdiğin kodu acaba ansıl kullanıcam bu konuda bana biraz bilgi verebilirmisin ???
Pek bilgim yok malesef :(
 
VBE de boş bir modul ekleyip, "F5" ile çalıştırın. işlem 5-10 sn. kadar sürecektir.

Kod:
Sub abc_test()
Dim ar() As Variant
Dim i As Byte, j As Byte, k As Byte, z&

ar = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j", _
        "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "v", "y", "z")
        
For i = 0 To UBound(ar)
    For j = 0 To UBound(ar)
        For k = 0 To UBound(ar)
            z = z + 1
            Cells(z, 1) = ar(i) & ar(j) & ar(k)
        Next k
    Next j
Next i

MsgBox "Liste oluşturuldu."
End Sub
 
Bende buna benzer ilgili bir dosya hazırlamıştım.
Butona her basışta numara 1 artıyor zzzz'ye kadar gidiyordu sanırım.
Link aşağıdadır.:cool:
http://www.excel.web.tr/showthread.php?t=25369
 
Geri
Üst