Excel ile kombimasyonlari olusturma

[MURATSO]

Arkadaslar merhaba, alfabenin tum harflerinin AA BB CC ve AAA BBB CCC seklinde ikili ve uclu kombimasyonlarini ayrica 1 den 9 a kadar 11 22 33 ve 111 222 333 seklinde ikili ve ve uclu kombinasyonlari nasil yazdirabilirim? Desteginiz icin simdiden tesekkur ederim.

 

[Asri]

Deneyiniz.

Dim sayilar, harfler As String

Sub menu()
  sayilar = "123456789"
  harfler = "ABCÇDEFGĞHIİJKLMNOÖPRSŞTUÜVYZ"
  Call bicimlendir
  Call kombi2s
  Call kombi3s
  Call kombi2a
  Call kombi3a
End Sub

Sub bicimlendir()
    Columns("A:D").Select
    Selection.NumberFormat = "@"
    Range("C4").Select
End Sub

Sub kombi2s()
  say = 1
  For i1 = 1 To 9
   For i2 = 1 To 9
      kelime = Mid(sayilar, i1, 1) + Mid(sayilar, i2, 1)
      Cells(say, 1).Value = kelime
      say = say + 1
   Next
  Next
End Sub

Sub kombi3s()
  say = 1
  For i1 = 1 To 9
   For i2 = 1 To 9
    For i3 = 1 To 9
      kelime = Mid(sayilar, i1, 1) + Mid(sayilar, i2, 1) + Mid(sayilar, i3, 1)
      Cells(say, 2).Value = kelime
      say = say + 1
    Next
   Next
  Next
End Sub

Sub kombi2a()
  say = 1
  For i1 = 1 To 29
   For i2 = 1 To 29
      kelime = Mid(harfler, i1, 1) + Mid(harfler, i2, 1)
      Cells(say, 3).Value = kelime
      say = say + 1
   Next
  Next
End Sub

Sub kombi3a()
  say = 1
  For i1 = 1 To 29
   For i2 = 1 To 29
    For i3 = 1 To 29
      kelime = Mid(harfler, i1, 1) + Mid(harfler, i2, 1) + Mid(harfler, i3, 1)
      Cells(say, 4).Value = kelime
      say = say + 1
    Next
   Next
  Next
End Sub