Dobry den vedel by mi niekto upravit tuto tabulku aby zrebovalo len jedneho vyhercucitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Losovanie
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 97x)
39970_losovani.zip (21kB, staženo 97x)(18.4.2021 22:28)#050471
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
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)
\n
\nMenu
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.
RSS nejnovější články