» Poradna » Programy

Excel - generovani nahodnych cisel - mozaika

 |   |  Microsoft Windows XP Firefox 24.0

Dobry den,poradite mi nekdo, jak pomoci generovani nahodnych cisel v Excelu sestavit kladecsky plan pro obklad kuchynskych dlazdic formou mozaiky?Mam 6 barev (tedy cisla 1-6)Obklad ma 3 rady a 21 sloupcu.Bylo by dobre aby nikdy nevysly dve stejna cisla ve dvou sloupcich vedle sebe. Zkousel jsem to formou sesti PET vicek v sacku a nahodneho losovani (diky zasahum manzelky tzv. Karlovarska losovacka ) ale zajimalo by mne, zda na to lze zadat nejakou funkci v Excelu.Diky za pomoc.Jirka

Mohlo by vás také zajímat

Odpovědi na otázku

 |   |  Microsoft Windows XP Firefox 24.0

Doslo mi ze nemohou byt ani dve stejna cisla pod sebou ani nad sebou apod.Tim se to komplikuje.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 29.0.1547.76

Asi se na to bude muset poštvat makro. Jestli jsi s ním ještě nedělal, tak to bude pro tebe kruté...Níže uvedené makro náhodně generuje natvrdo 6 barev (číslice 1-6) do 3 řad a 21 sloupců (oblast A3:U5). Vygeneruje barvu, podívá se na jedno sousední políčko nahoře a jedno políčko vlevo a pokud obsahují stejné číslo (barvu), tak náhodně generuje barvu znovu. Pak postoupí na další políčko..Makro si přiřaď k tlačítko a po stisku tlačítka se vygeneruje náhodná mozaika.Podmíněným formátováním si přiřaď k jednotlivým číslům barev požadované barevné výplně buněk a uvidíš i barevný návrh mozaiky..Sub Mozaika() Dim stena(2, 20) minBarva = 1 maxBarva = 6 For radek = 0 To 2 radekNahoru = radek - 1 If radekNahoru < 0 Then radekNahoru = 0 For sloupec = 0 To 20 sloupecVlevo = sloupec - 1 If sloupecVlevo < 0 Then sloupecVlevo = 0vyberBarvu: barva = Int((Rnd * (maxBarva - minBarva + 1)) + minBarva) If barva = stena(radekNahoru, sloupec) Then GoTo vyberBarvu If barva = stena(radek, sloupecVlevo) Then GoTo vyberBarvu stena(radek, sloupec) = barva Next sloupec Next radek Sheets("List1").Range("A3:U5") = stenaEnd Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows XP Firefox 24.0

Tohle je super. Vyborne to funguje.Moc DEKUJUJirka

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 30.0.1599.47

OK

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Mozaika