• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Losovanie

Zaslal/a elninoslov 25.3.2018 14:06

Dnes tu ešte pred pár hodkami bola téma na losovanie so zobrazovaním priebežných výsledkov. No a keď sa k tomu konečne dostanem a idem sem dať návrh, tak téma je fuč.

No už to mám z časti navrhnuté podľa požiadaviek, tak ak niekto chce, nech sa inšpiruje (napríklad aj pôvodný zadávateľ)

Příloha: 39970_losovani.zip (21kB, staženo 94x)

Zaslat odpověď >

---

ivana5(18.4.2021 22:28)#050471

Dobry den vedel by mi niekto upravit tuto tabulku aby zrebovalo len jedneho vyhercucitovat

elninoslov(19.4.2021 0:52)#050472

Sub Losuj()
Dim M(), Radku As Long, Zac As Double, ML As String

With ThisWorkbook.Worksheets("List1")
Radku = .Cells(Rows.Count, 1).End(xlUp).Row
ReDim M(1 To Radku, 1 To 1)

Select Case Radku
Case 1: ML = .Cells(1, 1).Value2
Case Else: M = .Cells(1, 1).Resize(Radku).Value2
Zac = Now() + TimeValue("00:00:05")

While Now() < Zac
ML = M(Int(Rnd() * Radku) + 1, 1)
.Cells(3, 5).Value2 = ML
DoEvents
Wend
End Select

.Cells(3, 5).Value2 = ML
End With
End Subcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse