< návrat zpět

MS Excel

Téma: kombinace písmen rss

Zaslal/a chey 11.5.2013 21:39

Zdravím, chtěl bych poprosit o pomoc s vytvořením náhodné kombinace daných písmen v rámci týdne, měsíce a roku za daných podmínek. Více v přiloženém souboru. Děkuji

Příloha: rar13264_nahodnakombinace.rar (22kB, staženo 27x)
stop Uzamčeno - nelze přidávat nové příspěvky.
Strana:  1 2   další »
Palooo(13.5.2013 9:11)#013277
avatar
no domace ulohy zo skoly casto nerobim :)) ale dnes som sa nudil tak som sa nato kukol a aj tak to nieje dokoncene

ked chces tu mas dobry start
- je to len nahodne priradenie cisla k dnu
- neopakuju sa


Sub test()
Dim aNummer As Integer
Dim NumCheck As Boolean
Dim num1A As Boolean
Dim num2B As Boolean
Dim num3C As Boolean
Dim num4D As Boolean
Dim num5E As Boolean
Dim num6X As Boolean
Dim num7X As Boolean

NumCheck = False
num1A = False
num2B = False
num3C = False
num4D = False
num5E = False
num6X = False
num7X = False

For x = 6 To 370
Do While NumCheck > True
aNummer = Int((7 - 1 + 1) * Rnd + 1)
Select Case aNummer
Case 1
If num1A = False Then
Cells(x, 3) = "A"
num1A = True
NumCheck = True
End If
Case 2
If num2B = False Then
Cells(x, 3) = "B"
num2B = True
NumCheck = True
End If
Case 3
If num3C = False Then
Cells(x, 3) = "C"
num3C = True
NumCheck = True
End If
Case 4
If num4D = False Then
Cells(x, 3) = "D"
num4D = True
NumCheck = True
End If
Case 5
If num5E = False Then
Cells(x, 3) = "E"
num5E = True
NumCheck = True
End If
Case 6
If num6X = False Then
Cells(x, 3) = "X"
num6X = True
NumCheck = True
End If
Case 7
If num7X = False Then
Cells(x, 3) = "X"
num7X = True
NumCheck = True
End If
End Select
If num1A = True And num2B = True And num3C = True And num4D = True And num5E = True And num6X = True And num7X = True Then
num1A = False
num2B = False
num3C = False
num4D = False
num5E = False
num6X = False
num7X = False
End If
Loop
NumCheck = False
Next
End Sub

citovat
chey(13.5.2013 20:20)#013297
avatar
Možná to vypadá jako úkol ze školy, ale není. Je to plán, který se má plnit nepravidelně a písmena budou nahrazena skutečnými pracovními úkoly. Jen jde o to nastavení nepravidelnosti - náhody, které neumím. Vyzkouším.citovat
Palooo(14.5.2013 8:43)#013300
avatar
pracujem natom :)) zatial bezuspesne ... ale dnes pri jednej cinnosti kde prichadzaju nove napady ma nieco napadlo do poobedia by som to tu mohol hodit

... ale fakt zaujimava ulohacitovat
chey(14.5.2013 16:02)#013310
avatar
Ještě mne napadlo, kdyby se do budoucna někomu zachtělo měnit četnost (počet za období, už takový nápad padl), aby se to dalo někde nastavit např. - za týden 1, za měsíc 2 apod., nejlépe někde v buňce. Děkujicitovat
Palooo(14.5.2013 17:02)#013313
avatar
no je to na dlho :)) uz som s tym zabil asi 6hodin a dnes uz idem domov zajtra nato kuknem

v com je problem:
- Treba definovat 1. tyzden ktory sa prelina minulim rokom
- pri kazdom novom mesiaci musim doplnat udaje predchadzajuceho mesiaca (dost HARD)
- variacie nahodneho dodania pismen nemusi vzdy sediet takze sa makro musi zopakovat znova .... toto je tiez BRUTUS
- a mnoho dalsich :)))
- tu predlohu co si poslal zle zobrazuje sobotu a nedelu koli tomu som asi 2 hod stratil

ale zajtra to hadam dokoncimcitovat
chey(14.5.2013 21:52)#013317
avatar
- 1. týden pro rok 2013 začíná v pondělí 31.12.2012, s tím jsem počítal, chápu, že týdenní výřez (nastavení) nemůže začínat třeba prvním dnem v měsíci, tam jsem právě narazil na problém - zlom měsíce a roku
- víkendy mi to ukazovalo dobře (1. sobota 5.1.2013 a poslední neděle 29.12.2013), nevím, kde může být chyba
- je mi jasné, že se při kombinaci několika písmen nevyhneme po čase opakování, avšak bude-li po několika měsících, to už pak nebude tolik vadit
Děkuji moc za snahu 1citovat
marjankaj(14.5.2013 22:46)#013318
avatar
- je mi jasné, že se při kombinaci několika písmen nevyhneme po čase opakování, avšak bude-li po několika měsících, to už pak nebude tolik vadit

Tak chceš to naozaj náhodne alebo ako?
Aj v LOTTO vraj vyšli dvakrát za sebou rovnaké čísla.citovat
chey(14.5.2013 23:11)#013319
avatar
Ponechám to samozřejmě náhodnému výběru, ale nepočítal jsem, za jak dlouho se kombinace vyčerpá. 1citovat
icon eLCHa(15.5.2013 6:16)#013320
eLCHa
Pokud se chcete vyhnout opakování, museli byste si nejdříve vytvořit tabulku kombinací a z ní pak "losovat", která se použije a z dalšího "losování" ji pak vyřadit, dokud se nevyčerpají všechny ostatní (něco podobného, jako byste si simulovali losování sportky, jen místo míčku by byla kombinace).

Jen tak uvažuju, jestli si zbytečně nekomplikujete život. Píšete tady o měsících až letech - kdo si bude pamatovat, které písmeno (úkol) kdy bylo - vytvořte si jednu nebo dvě řady a pak je prostě opakujte donekonečna (ani nepoznáte, že to vlastně není náhoda).

Stejně bych této úloze nedával tak dlouhou životnost, na jakou si to představujete.citovat
Palooo(15.5.2013 15:14)#013327
avatar
tak hotovo (2dni v prdeli)

program sa spusta makrom test

- za tu so/ne sa ospravedlnujem ... ja som si nevsimol ze funkcia weekday() ma 1-nedela a 7-sobota na nas kaledar ju trebalo zapisovat weekday(date,2)

Makro:
- je bez sviatkou ale daju sa tam jednoducho doplnit ... ale!!!
- Problem spociva v tom ze vianocne sviatky v tyzdni zozeru vsetky pismena A B C D E ... a to s tymi bodami co si zadal sa neda nikdy urobit (zacykli sa)

- odcyklovanie toho programu sa mi nechce robit (mozes niekde v obehu zadat ze ked uz sa opakuje 1000x tak neh skonci)

tak isto sa zacykli ked udas zle minulorocne pismena (je to logicke skusa mnoho variacii ale co z toho ked ziadna nema sancu zapasovat :))

... kukni sa nato popripade si to prerob podla svojich predstav
Příloha: zip13327_nahodnakombinace.zip (51kB, staženo 31x)
citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje