środa, 14 kwietnia, 2021

Odpowiedz na: MF

Home Forum Sektory Samorządy MF Odpowiedz na: MF

#22920
alkman
Uczestnik

Oto specjalnie dla ciebie, abyś mógł Gapa poćwiczyć przed wyjazdem na Kajmany: elektroniczny losowacz (odpadną nam, koszty prawdziwego). Zarejestruj w Excelu dowolne makro. Wejdź w jego edycję a następnie wklej poniższy kod pomiędzy nazwą twojego makra a „End Sub” i sprawdź po ilu próbach wygrasz. 1 próba=10000 serii. Przyjemnej zabawy (jak ci się znudzi daj znak czy w realu podjąłbyś swoją grę).

Selection.ClearContents
Range(„B12”).Select
ActiveCell.FormulaR1C1 = „0”
Range(„A12”).Select
ActiveCell.FormulaR1C1 = „Liczba serji”
Range(„A13”).Select
ActiveCell.FormulaR1C1 = „już wygrywałeś”
Dim a As Long
For a = 1 To 10000 Step 1
Range(„A1”).Select
ActiveCell.FormulaR1C1 = „=RANDBETWEEN(0,1)”
Range(„A2”).Select
ActiveCell.FormulaR1C1 = „=RANDBETWEEN(0,1)”
Range(„A3”).Select
ActiveCell.FormulaR1C1 = „=RANDBETWEEN(0,1)”
Range(„A4”).Select
ActiveCell.FormulaR1C1 = „=RANDBETWEEN(0,1)”
Range(„A5”).Select
ActiveCell.FormulaR1C1 = „=RANDBETWEEN(0,1)”
Range(„A6”).Select
ActiveCell.FormulaR1C1 = „=RANDBETWEEN(0,1)”
Range(„A7”).Select
ActiveCell.FormulaR1C1 = „=RANDBETWEEN(0,1)”
Range(„A8”).Select
ActiveCell.FormulaR1C1 = „=RANDBETWEEN(0,1)”
Range(„A9”).Select
ActiveCell.FormulaR1C1 = „=RANDBETWEEN(0,1)”
Range(„A10”).Select
ActiveCell.FormulaR1C1 = „=RANDBETWEEN(0,1)”
Range(„A11”).Select
ActiveCell.FormulaR1C1 = „=SUM(R[-10]C:R[-1]C)”
Range(„B11”).Select
ActiveCell.FormulaR1C1 = „=IF(OR(RC[-1]=0,RC[-1]=10),””oddaj kasę + 100 zł””,RC[-1])”
Cells(12, 2).Value = Cells(12, 2).Value + 1
Range(„B13”).Select
ActiveCell.FormulaR1C1 = „=10*POWER(2,R[-1]C)”
If Cells(11, 1).Value = 0 Then End
If Cells(11, 1).Value = 10 Then End
Next a