Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 112 113 114 ... 197 198 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | Mini Lotto moja ukochana gra! |
2024-01-13 (22:32)![]() Data rejestracji: 2021-02-25 Ilość postów: 2701 ![]() | wpis nr 1 499 277 [ CZCIONKA MONOSPACE ] AKI, w A1 taka formuła: =JEŻELI(B1=0;0;JEŻELI(B1=1;A1+1;A1)) "0" w B1 będzie ustawiało licznik w komórce A1 na "0" a za każdym razem gdy w B1 pojawi się "1" to komórka A1 będzie się zwiększać o 1. Ja włączyłem opcję: obliczanie iteracyjne i ustawiłem: Maksymalna liczba iteracji: 1 Maksymalna zmiana: 1. |
2024-01-14 (06:59)![]() Data rejestracji: 2021-02-25 Ilość postów: 2701 ![]() | wpis nr 1 499 292 [ CZCIONKA MONOSPACE ] W sobotę 13.01.2024 w losowaniu numer 6467 w Mini Lotto wylosowano kule: 11 17 23 31 34 (CSN 667 075) Zawarto ok. 1 413 470 zakładów wśród których zanotowano 2 trafienia 5/5 za które płacono 212 020,50 zł każde. Gratulacje. U mnie: 0 x X/5. |
2024-01-14 (11:03)![]() Data rejestracji: 2022-10-17 Ilość postów: 858 ![]() | wpis nr 1 499 309 [ CZCIONKA MONOSPACE ] 30 34 16 7 9 13 35 23 36 40 29 26 |
2024-01-14 (12:44)![]() Data rejestracji: 2020-08-05 Ilość postów: 5928 ![]() | wpis nr 1 499 339 [ CZCIONKA MONOSPACE ] AKI, Działająca procedura dla OpenOffice lub LibreOffice którą można skopiować i wkleić do okienka makrami z menu Makra >Edycja Makr z podanymi wskazówkami dla ułatwienia wejścia w makra i ich zmienianie. Skopiuj i wklej poniższy kod: Sub ZwiekszWartosc Dim wartoscKomorki As Integer Dim innaKomorka As Integer Dim zwiekszKomorka As Integer ' Ustawienie wartości zmiennej od której zależy zmiana, może też być każda inna wartość zależna np. 25 wartoscKomorki = 1 ' Przypisanie do wartości zmiennej innej komórki przykładowo F2 innaKomorka = ThisComponent.Sheets(0).getCellRangeByName("B5").getValue() ' Przypisanie do wartości zmiennej innej komórki która będzie zwiększana na przykład A1 zwiekszKomorka = ThisComponent.Sheets(0).getCellRangeByName("A1").getValue() 'Lub przy iteracji gdy pobieranie wartości dotyczy wielu komórek naraz 'wygodniej użyć rozwiązania alternatywnego iterując pozycje każdej z komórek ' jak poniżej : 'innaKomorka = ThisComponent.Sheets(0).getCellByPosition(1, 4).getValue() 'zwiekszKomorka = ThisComponent.Sheets(0).getCellByPosition(0, 0).getValue() ' Zastosowanie warunku zwiększania If innaKomorka = wartoscKomorki Then ' Zwiększ wartość komórki A1 o jeden ThisComponent.Sheets(0).getCellRangeByName("A1").setValue(zwiekszKomorka + 1) ' Wyświetl komunikat MsgBox "Wartosc komorki zostala zwiekszona o jeden. Nowa wartosc: " & (zwiekszKomorka + 1), 64, "Informacja" Else ' Wyświetl komunikat o braku odpowiedniej wartości MsgBox "Brak odpowiedniej wartosci w komorce B5", 48, "Ostrzezenie" End If End Sub |
2024-01-14 (12:51)![]() Data rejestracji: 2020-08-05 Ilość postów: 5928 ![]() | wpis nr 1 499 340 [ CZCIONKA MONOSPACE ] ![]() |
2024-01-14 (19:09)![]() Data rejestracji: 2023-02-15 Ilość postów: 662 ![]() | wpis nr 1 499 400 [ CZCIONKA MONOSPACE ] Witam, serdecznie dziękuję za pomoc w opanowywaniu arkusza kalkulacyjnego. ![]() Na dzisiaj: 35, 3, 15, 22; 2, 27, 24, 16, 21, 13, 19, 7, 16, 30, 21, 26, 13, 15, 22, 3, 20, 1 Pozdrawiam i powodzenia. |
2024-01-14 (21:44)![]() Data rejestracji: 2021-02-25 Ilość postów: 2701 ![]() | wpis nr 1 499 421 [ CZCIONKA MONOSPACE ] Na Niedzielę: 15 25 31 33 39 24 32 33 37 40. |
2024-01-15 (16:35)![]() Data rejestracji: 2020-08-05 Ilość postów: 5928 ![]() | wpis nr 1 499 493 [ CZCIONKA MONOSPACE ] AKI, MAKRO z opisami Automatyczne zwiększanie w zależnosci od wartości 1 na przykładzie 42 komórek dla MINI Zwiększane komórki koloruje się. Przykład wykonania na arkuszu : ![]() |
2024-01-15 (16:37)![]() Data rejestracji: 2020-08-05 Ilość postów: 5928 ![]() | wpis nr 1 499 496 [ CZCIONKA MONOSPACE ] Gotowe działaajce makro dla powyższego przykładu dla OpenOffice i LibreOffice ! REM ***** BASIC ***** Sub ZwiekszanieKomorek Dim sheet As Object Dim randomValue As Integer Dim i As Integer Dim liczbGry As integer Dim wartoscSzukana As Integer Dim maxlos As integer ' Ustawienie arkusza do pracy 'ThisComponent - to obiekt, tu otwarty, aktywny arkusz kalkulacyjny ' dodanie kropki po ThisComponent pozwala wybrać kolejny obiekt np. Sheets ' czyli Arkusz na którym będzie się pracować ' arkusze numerowane są od zera ' podane 0 w nawiasie to argument oznaczający pierwszy arkusz ' domyślnie opisany na dolnej zakładce jako "Arkusz1" sheet = ThisComponent.Sheets(0) sheet.clearContents(com.sun.star.sheet.CellFlags.VALUE) 'ustawienie zmiennej ilości iteracji ' ta zmienna to Liczbgry ' dla innej gry tylko się zmienia bez poprawiania całego kodu liczbGry = 42 maxlos = 15 'maks.liczba dla symulacji częstotliwości wypadania liczb randomize 'aby otrzymywać liczby naprawdę losowe For i = 0 To liczbgry-1 'w arkuszach pozycje komórki liczone od zera ! 'Wypełnij liczbami gry sheet.getCellByPosition(0+i, 0).setValue(i+1) ' Wypełnij zakres InneKomorki 'dla tego przykładu wpisywana wartość jest wybierana losowo 'randomValue = Int((15 - 0 + 1) * Rnd) + 1 randomValue = Int(Rnd * maxlos ) + 1 'Wpis do kolejnej komórki wynika ze zwiększena numeru 'kolumny (pierszy parametr pozycji) o wartość 'iterowanej zmiennej "i" czyli dodawania od 0 do 41 sheet.getCellByPosition(0+i, 3).setValue(randomValue) ' Wypełnij zakres ZwiekszanieKomorek zerami sheet.getCellByPosition(0+i,6).setValue(0) Next i ' Sprawdź i zwiększ komórkę w ZwiekszanieKomorek, jeśli warunek jest spełniony wartoscSzukana = 1 For i = 0 To liczbgry-1 sheet.getCellByPosition(0+i,6).CellBackColor = RGB(255,255,255) If sheet.getCellByPosition(0+i,3).getValue() = wartoscSzukana Then sheet.getCellByPosition(0+i,6).setValue(sheet.getCellByPosition(5, 4 + i).getValue() + 1) 'koloruje komórkę gdy warunek jest spełniony - zwiększona wartość komórki sheet.getCellByPosition(0+i,6).CellBackColor = RGB(0, 255, 0) End If Next i End Sub |
2024-01-15 (17:00)![]() Data rejestracji: 2021-02-25 Ilość postów: 2701 ![]() | wpis nr 1 499 501 [ CZCIONKA MONOSPACE ] W Niedzielę 14.01.2024 w losowaniu numer 6468 w Mini Lotto wylosowano kule: 9 22 25 40 41 (CSN 607 805) Zawarto ok. 876 604 zakłady wśród których zanotowano 1 trafienie 5/5 za które płacono 262 981,20 zł. Gratulacje. U mnie: 1 x 0/5 1 x 1/5. |
2024-01-15 (22:36)![]() Data rejestracji: 2021-02-25 Ilość postów: 2701 ![]() | wpis nr 1 499 544 [ CZCIONKA MONOSPACE ] W poniedziałek 15.01.2024 w losowaniu numer 6469 w Mini Lotto wylosowano kule: 1 6 25 33 37 (CSN 41 644) Zawarto ok. 1 097 651 zakładów wśród których zanotowano 1 trafienie 5/5 za które płacono 329 295,30 zł. Gratulacje. U mnie: 0 x X/5. |
2024-01-16 (14:15)![]() Data rejestracji: 2022-10-17 Ilość postów: 858 ![]() | wpis nr 1 499 601 [ CZCIONKA MONOSPACE ] 20 23 39 16 11 25 32 4 40 28 37 10 9 33 32 26 16 41 20 18 13 |
2024-01-16 (19:42)![]() Data rejestracji: 2023-02-15 Ilość postów: 662 ![]() | wpis nr 1 499 637 [ CZCIONKA MONOSPACE ] MultiTest dziękuję BARDZO za makro ![]() Na dzisiaj: 2, 12, 3, 20, 24, 39, 16, 5, 13, 10, 29, 23, 40, 41, 33 38, 12, 20, 24, 16, 30, 21, 26, 5, 13, 15, 10, 18, 29, 11, 23, 34,40, 41 Pozdrawiam |
2024-01-16 (22:57)![]() Data rejestracji: 2021-02-25 Ilość postów: 2701 ![]() | wpis nr 1 499 672 [ CZCIONKA MONOSPACE ] We wtorek 16.01.2024 w losowaniu numer 6470 w Mini Lotto wylosowano kule: 6 17 18 24 30 (CSN 458 837) Zawarto ok. 1 152 528 zakładów wśród których zanotowano 1 trafienie 5/5 za które płacono 345 758,40 zł. Gratulacje. U mnie: 0 x X/5. |
2024-01-16 (23:12)![]() Data rejestracji: 2020-08-05 Ilość postów: 5928 ![]() | wpis nr 1 499 675 [ CZCIONKA MONOSPACE ] AKI Można by zacząć od pobrania wyników losowania mini i automatycznie wpisać do arkusza. W testowanym LibreOffice wygląda to tak: ![]() |
2024-01-16 (23:13)![]() Data rejestracji: 2020-08-05 Ilość postów: 5928 ![]() | wpis nr 1 499 677 [ CZCIONKA MONOSPACE ] W kodzie może być tak : (fragment) ![]() |
2024-01-16 (23:15)![]() Data rejestracji: 2020-08-05 Ilość postów: 5928 ![]() | wpis nr 1 499 678 [ CZCIONKA MONOSPACE ] A cały kod procedury tak: Sub PobierzWynikiMIni Dim sheet As Object Dim datastr As Date Dim lDate As Long Dim sDate As String Dim Cell As Object sheet = ThisComponent.Sheets(0) 'Dla wyświetlenia w aruszu wyniki ze strony Pasko 'zostały pobrane u mnie na dysk D Filename = "d:\wyniki-minilotto-sortowane.csv" FileNo = Freefile Open Filename For Input As FileNo Line Input #FileNo, firstLine 'pominięcie nagłówka z nazwami kolumnn Do While not eof(FileNo) Line Input #FileNo, Line Sp = ";" 'separator LineStr = Split(Line, sp) For i = LBound(Linestr) To UBound(linestr) If isnumeric(Linestr(i)) Then Select Case i Case 0 : sheet.GetCellByPosition(i,iloscwierszy).setvalue(linestr(i)) Case 1 : ADay = CInt(linestr(i)) Case 2 : AMonth = CInt(linestr(i)) Case 3 : AYear = CInt(linestr(i)) cell=sheet.GetCellByPosition(i-2,iloscwierszy) cell.setstring(DateSerial(ayear, amonth, aday)) 'format komórek sheet.GetCellByPosition(i-2,iloscwierszy).HoriJustify = com.sun.star.table.CellHoriJustify.RIGHT Case Else sheet.GetCellByPosition(i-2,iloscwierszy).setvalue(linestr(i)) End select End if Next i iloscWierszy = iloscWierszy + 1 loop End Sub |
2024-01-17 (13:37)![]() Data rejestracji: 2022-10-17 Ilość postów: 858 ![]() | wpis nr 1 499 732 [ CZCIONKA MONOSPACE ] 1 11 14 30 34 4 11 13 35 16 2 14 40 13 35 16 13 4 36 39 11 14 20 25 16 |
2024-01-17 (21:45)![]() Data rejestracji: 2021-02-25 Ilość postów: 2701 ![]() | wpis nr 1 499 791 [ CZCIONKA MONOSPACE ] Na środę: 2 5 12 27 35. |
2024-01-17 (22:38)![]() Data rejestracji: 2021-02-25 Ilość postów: 2701 ![]() | wpis nr 1 499 802 [ CZCIONKA MONOSPACE ] W środę 17.01.2024 w losowaniu numer 6471 w Mini Lotto wylosowano kule: 7 17 20 21 36 (CSN 511 630) Zawarto ok. 1 146 806 zakładów wśród których nie zanotowano trafienia 5/5. U mnie: 1 x 0/5. |
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 112 113 114 ... 197 198 Wyślij wiadomość do admina |