< návrat zpět

MS Excel


Téma: kombinace písmen rss

Zaslal/a 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 24x)
stop Uzamčeno - nelze přidávat nové příspěvky.

Strana:  1 2   další »
#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
#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
#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
#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
#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
#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
#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
#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 #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
#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 28x)
citovat

Strana:  1 2   další »

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse