Benzersiz öğeler

[minceer]

Bir karikatür tipi düşünün, çeşitli değişkenlerle 250 adet benzersiz resim karesi üretilecek. Ama önce excel de şablonu çıkartılıp yol haritamı görebilmem lazım.

Şöyleki;
Elimde 5 adet duygu mimiği, 5 adet cilt rengi, 6 adet kıyafet, 4 adette arkaplan rengi var..
birbiriyle çarpınca 600 adet yapıyor, yani 250 adeti rahatlıkla çıkarırım buradan. Ancak her satırda benzersiz bir kombinasyon olduğunu sağlayarak gitmem lazım. Kolay bir yolu var mıdır. Profesyonel (ücretli) destek de alabilirim.

Kolaylıklar...

 

[muratboz06]

Linkteki çalışma işinizi görebilir.

https://indzara.com/wp-content/uploads/2019/11/Combinations_Generator_Excel_Template_v1.xlsx

 

[alicimri]

Aşağıdaki kodlarla tüm olasılıklarının dökümü alınabilinir.
Function sec(tt)
If tt = "a1" Then sec = "gülme"
If tt = "a2" Then sec = "kızma"
If tt = "a3" Then sec = "ağlama"
If tt = "a4" Then sec = "sevinme"
If tt = "a5" Then sec = "şaşma"
If tt = "b1" Then sec = "beyaz"
If tt = "b2" Then sec = "sarı"
If tt = "b3" Then sec = "siyah"
If tt = "b4" Then sec = "turuncu"
If tt = "b5" Then sec = "kahverengi"
If tt = "c1" Then sec = "Pantolon"
If tt = "c2" Then sec = "Ceket"
If tt = "c3" Then sec = "Yelek"
If tt = "c4" Then sec = "Gömlek"
If tt = "c5" Then sec = "Hırka"
If tt = "c6" Then sec = "Kazak"
If tt = "d1" Then sec = "kırmızı"
If tt = "d2" Then sec = "mavi"
If tt = "d3" Then sec = "yeşil"
If tt = "d4" Then sec = "beyaz"
End Function
Sub aa()
For a = 1 To 5
For b = 1 To 5
For c = 1 To 6
For d = 1 To 4
say = Range("a65536").End(3).Row + 1
Cells(say, 1).Value = sec("a" & a)
Cells(say, 2).Value = sec("b" & b)
Cells(say, 3).Value = sec("c" & c)
Cells(say, 4).Value = sec("d" & d)
say = say + 1
Next
Next
Next
Next
End Sub

 

[minceer]

Linkteki çalışma işinizi görebilir.

https://indzara.com/wp-content/uploads/2019/11/Combinations_Generator_Excel_Template_v1.xlsx

Çok teşekkür ederim bundan yola çıkarak çözdüm. Kombinasyon sınırının 500 olması bu dosyanın eksik bir tarafı gibi görünüyor...

 

[minceer]

Aşağıdaki kodlarla tüm olasılıklarının dökümü alınabilinir.
Function sec(tt)
If tt = "a1" Then sec = "gülme"
If tt = "a2" Then sec = "kızma"
If tt = "a3" Then sec = "ağlama"
If tt = "a4" Then sec = "sevinme"
If tt = "a5" Then sec = "şaşma"
If tt = "b1" Then sec = "beyaz"
If tt = "b2" Then sec = "sarı"
If tt = "b3" Then sec = "siyah"
If tt = "b4" Then sec = "turuncu"
If tt = "b5" Then sec = "kahverengi"
If tt = "c1" Then sec = "Pantolon"
If tt = "c2" Then sec = "Ceket"
If tt = "c3" Then sec = "Yelek"
If tt = "c4" Then sec = "Gömlek"
If tt = "c5" Then sec = "Hırka"
If tt = "c6" Then sec = "Kazak"
If tt = "d1" Then sec = "kırmızı"
If tt = "d2" Then sec = "mavi"
If tt = "d3" Then sec = "yeşil"
If tt = "d4" Then sec = "beyaz"
End Function
Sub aa()
For a = 1 To 5
For b = 1 To 5
For c = 1 To 6
For d = 1 To 4
say = Range("a65536").End(3).Row + 1
Cells(say, 1).Value = sec("a" & a)
Cells(say, 2).Value = sec("b" & b)
Cells(say, 3).Value = sec("c" & c)
Cells(say, 4).Value = sec("d" & d)
say = say + 1
Next
Next
Next
Next
End Sub

Emeğinize sağlık, teşekkürler..