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.
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,354
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
Makro ile bu tür liste kolaylıkla elde edilebilir. Excelin sorunuzla ilgili hazır özellği yok sanırım.
 

Necdet

Moderatör
Yönetici
Katılım
4 Haziran 2005
Mesajlar
15,373
Excel Vers. ve Dili
Ofis 365 Türkçe
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.
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,354
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
Liste oluşturma..

Kod:
.
 
Son düzenleme:
Katılım
23 Mayıs 2008
Mesajlar
2
Excel Vers. ve Dili
2003
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 :(
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,354
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
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
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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
 
Üst