Elli İki Kartı Dört Oyuncuya Rastgele Dağıtma

[52779]

52 kart destesinin 4 oyuncuya 13 er kart olarak Rastgele dağıtılmasına çözüm arıyoruz.
(Bu hafta sonunda yapılacak Turnuvamıza antrenman amaçlı olarak hazırlanmış bir sorudur)

Soruya ait detaylar gerek resimde ve gerekse çalışma amaçlı dosyada açıklanmaktadır.
Sorumuza yönelik resim aşağıdaki gibidir.



Çözüm için Excel deki tüm yöntemler kullanılabilir.
Katılım sağlayacaklara şimdiden teşekkürler...

 

Görevlere Rastgele ve Eşit Sayıda Çalışan Atama

Adı ve Soyadı Üç Parçaya Ayırma

[52779]

Soruya bir cevap olması açısından,
kartların hücrelere resim olarak gömülü olan (tam emin değilim ama, Excel365 Insider kullanıcıları için geçerli) ve yerleşik işlevlerle işlem görebilen versiyonunu dosya olarak ekliyorum.
(Resimler olduğundan dosyanın boyutu biraz yüksek 555 KB)

Çözüme ait resim aşağıdaki gibidir..

 

[ExcelDepo]

Hocam selamlar,

Sanırım bu sefer soru zor taraftan geldi.
En azından benim için öyle.
Dosyayı çok merak ediyorum, elinize, bilginize sağlık olsun.

 

[ExcelDepo]

Şimdi dosyayı indirdim, formüle zaten söylenecek söz yok.
Ancak, resim olarak ekranı bir bütün görmek gerçekten çok etkileyici.
Yakında Excel'de batak oynayacağız bu gidişle.

 

[52779]

Çok teşekkür ediyorum.
Excel'e, son zamanlarda eklenen, resimlerin hücrelere gömülmesi olayını ele almak istemiştim.
İşin aslına bakarsam, oyunlarla pek alakam yok. Bu hafta sonu, küçük çaplı bir Briç turnuvası olacak ve benden de kart dağılımlarıyla ilgili çözüm istemişlerdi. Ve bunu burada paylaşmak istedim.

 

[ExcelDepo]

Emeğinize sağlık olsun hocam, etkileyici bir çalışma gerçekten.

 

[52779]

Sanırım bu sefer soru zor taraftan geldi.

Ben pek öyle düşünmüyorum...

Çözümümü resim olarak ekliyorum.

 

[halily]

ilk dosya için çözüm önerim

Görüntülemek için giriş yapmanız gerekmektedir.
(40 satır)

 

[52779]

Bu çözüm de
Excel 365 harici diğer versiyonlar için formülle çözüm.
Resim olarak çözüm şöyle


G4 : J16 seçilip, formül çubuğuna yazılır ve CTRL+SHIFT+ENTER ile girilir.

Görüntülemek için giriş yapmanız gerekmektedir.
(1 satır)

Dosyayı da ekliyorum.

 

[52779]

@halily Hocam
Çok ama çok teşekkür ediyorum.
Çözümünüz HARİKA çalışıyor.
Katılımınız beni nasıl mutlu etti anlatamam.
Teşekkürlerimle...
Saygılar...

 

[halily]

maalesef resimler excel 2021'de görünmedi hocam (

 

[halily]

uzun süredir evde değildim hocam
yeni döndüm)

 

[52779]

@halily Hocam,
Sanıyorum, resimler, Normal Excel365 de de görünmeyecektir.
Çünkü resimlerin hücreye gömülmesi olayı sadece Excel 365 Insider kanalında mevcut.

 

[halily]

yine 1. dosya için
ilk kod ile hemen hemen aynı;
ilk kodda 2 dictionary kullanıldığı için işlem daha yavaştı bunda sabit dictionary (KrtSbt), dizi ile değiştirildi

Yöntem	Süre (yaklaşık 300er deneme ortalaması)
RasgeleDagit Dictionary+Dizi	0,007734263​
RasgeleDagit 2 dictionary	0,013521973​

Görüntülemek için giriş yapmanız gerekmektedir.
(40 satır)

aşağıdaki dosya resimli çalışmaya örnektir

 

[52779]

@halily Hocam
Çok teşekkür ediyorum.
SÜPER Gerçekten. Ellerinize sağlık...

 

[halily]

Bu da kendimce hazırladığım resimli dosya)
Ben dosya boyutu büyük olduğundan ekleyemedigim için sağolsun Bahadir Orkme hocam 4. mesaja ekledi.

 

[ExcelDepo]

Etkileyici bir dosya gerçekten, yine bir cevher çıktı buralara.

 

[52779]

Woow. Tek kelimeyle MUHTEŞEM..
Ellerinize sağlık @halily Hocam
Teşekkürlerimle...

 

[halily]

Rica ederim
İyi çalışmalar)