Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 13 14 15 ... 53 54
Wyślij wiadomość do admina

Przewiń wpisy ↓

Excel- potrzebna pomoc

2010-02-16 (21:32)

status starak
Data rejestracji: 2005-09-29 00:00:00
Ilość postów: 141

1269
wpis nr 287 806
[ CZCIONKA MONOSPACE ]

wybacz,potężny błąd,ostatnie losowanie powinno być w Twoim zbiorze

zestaw 1--3,6,5,1,5,5,2,6,5,6,1,5

zestaw 2--2,6,0,2,6,6,0,1,1,5,5,6

zestaw 3--0,2,2,6,0,2,4,2,4,6,6,2

zestaw 4--2,0,6,6,1,5,6,6,2,5,1,4



sześć jest w każdym a chcielismy wspólne kombinacje.Pozdrawiam



2010-02-16 (23:34)

status starak
Data rejestracji: 2005-09-29 00:00:00
Ilość postów: 141

1269
wpis nr 287 871
[ CZCIONKA MONOSPACE ]

przepraszam potężny błąd ale u mnie.czasem coś w formułach się zaplącze.niemniej znakomity wynik.Dziękuję
2010-02-17 (07:27)

status 777ch
Data rejestracji: 2005-11-07 00:00:00
Ilość postów: 22544

1386
wpis nr 287 895
[ CZCIONKA MONOSPACE ]

Nie ma sprawy .
2010-03-15 (12:30)

status Karwoski
Data rejestracji: 2009-05-31 00:00:00
Ilość postów: 32

4662
wpis nr 299 339
[ CZCIONKA MONOSPACE ]

witam,

wpisuje się tu po prośbie,

ma ktoś jakąś formułkę gotową która by sortowała

bazę losowań od lewej do prawej od najmniejszej do największej,

Pasko podaje w formacie EXEL bazy losowań nie sortowane

a chciałbym je zmienić na sortowane te wszystkie bazy w exelu,

z góry dziękuję za podpowiedź ,





2331 26 1 2010 15 17 8 14 16

2332 28 1 2010 5 2 41 20 3

2333 30 1 2010 17 24 13 23 41

2334 2 2 2010 36 15 9 32 13

2335 4 2 2010 17 19 13 26 14

2336 6 2 2010 34 17 29 41 8

2337 9 2 2010 40 21 6 37 9

2338 11 2 2010 8 40 26 12 41

2339 13 2 2010 35 28 21 32 37

2340 16 2 2010 12 21 22 17 2

2341 18 2 2010 30 29 21 32 9

2342 20 2 2010 15 32 17 36 27

2343 23 2 2010 40 33 24 35 3

2344 25 2 2010 39 40 5 8 28

2345 27 2 2010 12 19 9 5 36

2346 2 3 2010 37 17 8 18 12

2347 4 3 2010 32 26 42 8 19

2010-03-15 (15:45)

status Janio
Data rejestracji: 2008-06-22 00:00:00
Ilość postów: 165

3566
wpis nr 299 424
[ CZCIONKA MONOSPACE ]

Dla mini lotto:

w komórkę K2 wpisz: =MAX.K(E2:I2;5)

w komórkę L2 wpisz: =MAX.K(E2:I2;4)

w komórkę M2 wpisz: =MAX.K(E2:I2;3)

w komórkę N2 wpisz: =MAX.K(E2:I2;2)

w komórkę O2 wpisz: =MAX.K(E2:I2;1)

Zaznacz powyższe komórki i przeciągnij w dół aż do końca bazy losowań.

Analogicznie zrobisz dla lotto i multi dodając odpowiednią ilość komórek.
2010-03-19 (17:13)

status starak
Data rejestracji: 2005-09-29 00:00:00
Ilość postów: 141

1269
wpis nr 301 415
[ CZCIONKA MONOSPACE ]

witaj Janio.Tu wkleję jeden z zestawów na poprawionej bazie,nie może być inaczej.

01,01,01,01,01,02,01,02,01,03,01,02

02,03,06,02,03,05,02,03,02,04,02,03

05,04,07,03,04,06,05,04,03,05,03,04

06,10,08,04,05,07,06,06,04,06,04,05

07,11,09,08,08,08,07,07,05,07,05,06

08,12,10,09,09,09,08,10,06,10,10,07

09,13,11,11,10,11,09,11,07,11,11,08

14,14,13,13,14,12,10,12,08,12,12,09

17,15,14,14,16,13,12,13,09,13,13,10

18,16,16,18,17,15,15,14,12,14,14,11

20,18,18,20,18,17,16,15,15,15,15,12

21,19,21,21,21,18,17,16,17,16,16,13

22,21,22,22,22,19,18,18,19,17,17,15

24,22,24,23,23,20,19,19,20,19,19,16

25,23,25,24,24,21,20,20,21,21,20,17

26,24,26,25,25,24,25,22,23,22,22,19

28,25,28,26,26,25,26,23,24,23,23,20

29,26,29,28,28,26,27,25,27,24,27,23

32,27,30,30,31,27,28,26,29,27,30,27

33,28,31,32,32,28,29,27,33,29,31,29

34,30,32,33,34,29,31,28,35,30,33,30

35,31,34,34,35,30,32,29,36,31,34,31

36,32,36,36,36,32,33,30,37,34,35,33

37,34,38,38,37,33,35,31,38,35,36,35

38,36,39,39,38,35,36,32,39,37,37,37

39,38,40,40,39,37,37,33,41,40,38,41

40,39,41,42,40,41,38,34,42,41,39,42

41,40,42,43,42,42,39,40,43,44,40,43

42,44,44,44,45,43,41,41,45,45,43,44

43,45,45,45,46,44,42,43,47,46,44,46

45,46,46,47,47,45,43,44,48,48,46,47

47,48,47,48,48,47,46,46,49,49,49,49

48,49,48,49,49,48,47,49

Pozdrawiam
2010-03-19 (22:17)

status janio
Data rejestracji: 2008-06-22 00:00:00
Ilość postów: 165

3566
wpis nr 301 523
[ CZCIONKA MONOSPACE ]

Starak

Ja przeniosłem dokończenie rozmowy do tematu \" Zagadki Karamby - nowa propozycja. Część 1\". Ale widzę moje nieporozumienie w odczycie twoich zestawów. Wypisałeś 12 zestawów po 4 liczby (ostatni 5 liczb) i odrzuciłeś zestawy X z poszczególnych pozycji. Ja otrzymałem takie zestawy:

1.-2,3,7,8,9,10,11,12

2.-2,3,5,6,9,10,11,12

3.-2,3,4,6,8,10,11,12

4.-2,3,4,5,7,10,11,12

5.-1,3,4,5,6,7,8,9

6.-1,3,6,7,8,9,11,12

7.-1,3,4,7,8,9,10,12

8.-1,3,4,7,8,9,10,11

9.-1,2,4,5,6,10,11,12

10.-1,2,4,5,6,8,9,12

11.-1,2,4,5,6,7,9,11

12.-1,2,4,5,6,7,8,10

Jednak ty swoje zestawy tworzysz w inny nie znany mi sposób.

Mój błąd przepraszam.

Pozdrawiam.
2010-03-19 (22:22)

status starak
Data rejestracji: 2005-09-29 00:00:00
Ilość postów: 141

1269
wpis nr 301 524
[ CZCIONKA MONOSPACE ]

W znany sposób,usuwasz zgodnie ze schematem 16 lub 17 liczb wskazanych przez 4*X ,w pozostałych 32lub 33 oczekujemy spełnienia...Miałem, może mam błędy w bazie losowań .Pozdrawiam
2010-03-22 (11:51)

status megi82
Data rejestracji: 2009-12-14 00:00:00
Ilość postów: 9

12300
wpis nr 302 390
[ CZCIONKA MONOSPACE ]

witam wszystkich chciałabym prosić o pomoc w napisaniu makra ,które wypisze mi w excelu z tych liczb : 11,23,24,25,32,33,36,37,38,44,47,48 wszystkie kombinacje szóstek. jesli ktoś miałby czas i chciał mi pomoc to z góry bardzo dziekuje
2010-03-22 (12:58)

status kleszek
Data rejestracji: 2006-05-27 00:00:00
Ilość postów: 4964

2047
wpis nr 302 408
[ CZCIONKA MONOSPACE ]

Megi82 ilość kombinacji 6 z 12 liczb to 924 zakłady. Kombinacje z Twoich liczb utworzyłem programem LottoCad i zapisałem je w arkuszu excela. Arkusz możesz pobrać z tego adresu

http://rapidshare.com/files/366664894/Dla_Megi82.xls

Można to pewnie zrobić makrem ale jak się ma odpowiednie narzędzia to lepiej ułatwiać sobie życie
2010-03-22 (16:37)

status megi82
Data rejestracji: 2009-12-14 00:00:00
Ilość postów: 9

12300
wpis nr 302 503
[ CZCIONKA MONOSPACE ]

dziekuje ci kleszek ale wolałabym makro które wypisuje kombinacje liczb z przecinkiem.
2010-03-24 (10:28)

status kleszek
Data rejestracji: 2006-05-27 00:00:00
Ilość postów: 4964

2047
wpis nr 303 209
[ CZCIONKA MONOSPACE ]

Megi82 mówisz i masz Znalazłem takie makro na stronie http://www.vbamania.pl/?go=forum&go2=zobacz&id_watek=1659&return=watek

Option Explicit



Dim vAllItems As Variant

Dim Buffer() As String

Dim BufferPtr As Long

Dim Results As Worksheet

\'

\' Myrna Larson, July 25, 2000, Microsoft.Public.Excel.Misc



Sub ListPermutationsOrCombinations()

Dim Rng As Range

Dim PopSize As Integer

Dim SetSize As Integer

Dim Which As String

Dim n As Double

Const BufferSize As Long = 4096



Worksheets(\"Arkusz1\").Range(\"A1\").Select

Set Rng = Selection.Columns(1).Cells

If Rng.Cells.Count = 1 Then

Set Rng = Range(Rng, Rng.End(xlDown))

End If



PopSize = Rng.Cells.Count - 2

If PopSize < 2 Then GoTo DataError



SetSize = Rng.Cells(2).Value

If SetSize > PopSize Then GoTo DataError



Which = UCase$(Rng.Cells(1).Value)

Select Case Which

Case \"C\"

n = Application.WorksheetFunction.Combin(PopSize, SetSize)

Case \"P\"

n = Application.WorksheetFunction.Permut(PopSize, SetSize)

Case Else

GoTo DataError

End Select

If n > Cells.Count Then GoTo DataError



Application.ScreenUpdating = False



Set Results = Worksheets.Add



vAllItems = Rng.Offset(2, 0).Resize(PopSize).Value

ReDim Buffer(1 To BufferSize) As String

BufferPtr = 0



If Which = \"C\" Then

AddCombination PopSize, SetSize

Else

AddPermutation PopSize, SetSize

End If

vAllItems = 0



Application.ScreenUpdating = True

Exit Sub



DataError:

If n = 0 Then

Which = \"Enter your data in a vertical range of at least 4 cells.\" _

& String$(2, 10) _

& \"Top cell must contain the letter C or P, 2nd cell is the Number\" _

& \"of items in a subset, the cells below are the values from Which\" _

& \"the subset is to be chosen.\"



Else

Which = \"This requires \" & Format$(n, \"#,##0\") & _

\" cells, more than are available on the worksheet!\"

End If

MsgBox Which, vbOKOnly, \"DATA ERROR\"

Exit Sub

End Sub



Private Sub AddPermutation(Optional PopSize As Integer = 0, _

Optional SetSize As Integer = 0, _

Optional NextMember As Integer = 0)



Static iPopSize As Integer

Static iSetSize As Integer

Static SetMembers() As Integer

Static Used() As Integer

Dim i As Integer



If PopSize <> 0 Then

iPopSize = PopSize

iSetSize = SetSize

ReDim SetMembers(1 To iSetSize) As Integer

ReDim Used(1 To iPopSize) As Integer

NextMember = 1

End If



For i = 1 To iPopSize

If Used(i) = 0 Then

SetMembers(NextMember) = i

If NextMember <> iSetSize Then

Used(i) = True

AddPermutation , , NextMember + 1

Used(i) = False

Else

SavePermutation SetMembers()

End If

End If

Next i



If NextMember = 1 Then

SavePermutation SetMembers(), True

Erase SetMembers

Erase Used

End If



End Sub \'AddPermutation



Private Sub AddCombination(Optional PopSize As Integer = 0, _

Optional SetSize As Integer = 0, _

Optional NextMember As Integer = 0, _

Optional NextItem As Integer = 0)



Static iPopSize As Integer

Static iSetSize As Integer

Static SetMembers() As Integer

Dim i As Integer



If PopSize <> 0 Then

iPopSize = PopSize

iSetSize = SetSize

ReDim SetMembers(1 To iSetSize) As Integer

NextMember = 1

NextItem = 1

End If



For i = NextItem To iPopSize

SetMembers(NextMember) = i

If NextMember <> iSetSize Then

AddCombination , , NextMember + 1, i + 1

Else

SavePermutation SetMembers()

End If

Next i



If NextMember = 1 Then

SavePermutation SetMembers(), True

Erase SetMembers

End If



End Sub \'AddCombination



Private Sub SavePermutation(ItemsChosen() As Integer, _

Optional FlushBuffer As Boolean = False)



Dim i As Integer, sValue As String

Static RowNum As Long, ColNum As Long



If RowNum = 0 Then RowNum = 1

If ColNum = 0 Then ColNum = 1



If FlushBuffer = True Or BufferPtr = UBound(Buffer()) Then

If BufferPtr > 0 Then

If (RowNum + BufferPtr - 1) > Rows.Count Then

RowNum = 1

ColNum = ColNum + 1

If ColNum > 256 Then Exit Sub

End If



Results.Cells(RowNum, ColNum).Resize(BufferPtr, 1).Value _

= Application.WorksheetFunction.Transpose(Buffer())

RowNum = RowNum + BufferPtr

End If



BufferPtr = 0

If FlushBuffer = True Then

Erase Buffer

RowNum = 0

ColNum = 0

Exit Sub

Else

ReDim Buffer(1 To UBound(Buffer))

End If



End If



\'construct the next set

For i = 1 To UBound(ItemsChosen)

sValue = sValue & \", \" & vAllItems(ItemsChosen(i), 1)

Next i



\'and save it in the buffer

BufferPtr = BufferPtr + 1

Buffer(BufferPtr) = Mid$(sValue, 3)

End Sub \'SavePermutation

makro to generuje zarówno kombinacje jak i permutacje; kod możesz wkleić to zwykłego modułu;

w komórce A1 wpisujesz \"C\" albo \"P\" w zależności od tego czy mają to być kombinacje czy też permutacje;

w A2 wpisujesz np. liczbę 6 w przypadku kiedy chcesz uzyskać kombinacje 6-elementowe

od A3 do A51 wpisujesz Twoje liczby. Sprawdzałem, na wersji excel 2003 makro działa bez problemu ,natomiast nie udało mi się uruchomić makra na excelu 2007
2010-03-25 (20:42)

status megi82
Data rejestracji: 2009-12-14 00:00:00
Ilość postów: 9

12300
wpis nr 303 824
[ CZCIONKA MONOSPACE ]

witam wszystkich kleszek dziekuje ci bardzo ale u mnie to makro nie działa pewnie przez to ze mam exela 2007
2010-03-25 (21:29)

status kleszek
Data rejestracji: 2006-05-27 00:00:00
Ilość postów: 4964

2047
wpis nr 303 855
[ CZCIONKA MONOSPACE ]

megi82 przerobiłem leciutko to makro ( usunąłem 1 wpis) i sądzę,że teraz już będzie ok. Sprawdzałem na excel 2007 i działa

Option Explicit



Dim vAllItems As Variant

Dim Buffer() As String

Dim BufferPtr As Long

Dim Results As Worksheet

\'

\' Myrna Larson, July 25, 2000, Microsoft.Public.Excel.Misc



Sub ListPermutationsOrCombinations()

Dim Rng As Range

Dim PopSize As Integer

Dim SetSize As Integer

Dim Which As String

Dim n As Double

Const BufferSize As Long = 4096



Worksheets(\"Arkusz1\").Range(\"A1\").Select

Set Rng = Selection.Columns(1).Cells

If Rng.Cells.Count = 1 Then

Set Rng = Range(Rng, Rng.End(xlDown))

End If



PopSize = Rng.Cells.Count - 2

If PopSize < 2 Then GoTo DataError



SetSize = Rng.Cells(2).Value

If SetSize > PopSize Then GoTo DataError



Which = UCase$(Rng.Cells(1).Value)

Select Case Which

Case \"C\"

n = Application.WorksheetFunction.Combin(PopSize, SetSize)

Case \"P\"

n = Application.WorksheetFunction.Permut(PopSize, SetSize)

Case Else

GoTo DataError

End Select



Application.ScreenUpdating = False



Set Results = Worksheets.Add



vAllItems = Rng.Offset(2, 0).Resize(PopSize).Value

ReDim Buffer(1 To BufferSize) As String

BufferPtr = 0



If Which = \"C\" Then

AddCombination PopSize, SetSize

Else

AddPermutation PopSize, SetSize

End If

vAllItems = 0



Application.ScreenUpdating = True

Exit Sub



DataError:

If n = 0 Then

Which = \"Enter your data in a vertical range of at least 4 cells.\" _

& String$(2, 10) _

& \"Top cell must contain the letter C or P, 2nd cell is the Number\" _

& \"of items in a subset, the cells below are the values from Which\" _

& \"the subset is to be chosen.\"



Else

Which = \"This requires \" & Format$(n, \"#,##0\") & _

\" cells, more than are available on the worksheet!\"

End If

MsgBox Which, vbOKOnly, \"DATA ERROR\"

Exit Sub

End Sub



Private Sub AddPermutation(Optional PopSize As Integer = 0, _

Optional SetSize As Integer = 0, _

Optional NextMember As Integer = 0)



Static iPopSize As Integer

Static iSetSize As Integer

Static SetMembers() As Integer

Static Used() As Integer

Dim i As Integer



If PopSize <> 0 Then

iPopSize = PopSize

iSetSize = SetSize

ReDim SetMembers(1 To iSetSize) As Integer

ReDim Used(1 To iPopSize) As Integer

NextMember = 1

End If



For i = 1 To iPopSize

If Used(i) = 0 Then

SetMembers(NextMember) = i

If NextMember <> iSetSize Then

Used(i) = True

AddPermutation , , NextMember + 1

Used(i) = False

Else

SavePermutation SetMembers()

End If

End If

Next i



If NextMember = 1 Then

SavePermutation SetMembers(), True

Erase SetMembers

Erase Used

End If



End Sub \'AddPermutation



Private Sub AddCombination(Optional PopSize As Integer = 0, _

Optional SetSize As Integer = 0, _

Optional NextMember As Integer = 0, _

Optional NextItem As Integer = 0)



Static iPopSize As Integer

Static iSetSize As Integer

Static SetMembers() As Integer

Dim i As Integer



If PopSize <> 0 Then

iPopSize = PopSize

iSetSize = SetSize

ReDim SetMembers(1 To iSetSize) As Integer

NextMember = 1

NextItem = 1

End If



For i = NextItem To iPopSize

SetMembers(NextMember) = i

If NextMember <> iSetSize Then

AddCombination , , NextMember + 1, i + 1

Else

SavePermutation SetMembers()

End If

Next i



If NextMember = 1 Then

SavePermutation SetMembers(), True

Erase SetMembers

End If



End Sub \'AddCombination



Private Sub SavePermutation(ItemsChosen() As Integer, _

Optional FlushBuffer As Boolean = False)



Dim i As Integer, sValue As String

Static RowNum As Long, ColNum As Long



If RowNum = 0 Then RowNum = 1

If ColNum = 0 Then ColNum = 1



If FlushBuffer = True Or BufferPtr = UBound(Buffer()) Then

If BufferPtr > 0 Then

If (RowNum + BufferPtr - 1) > Rows.Count Then

RowNum = 1

ColNum = ColNum + 1

If ColNum > 256 Then Exit Sub

End If



Results.Cells(RowNum, ColNum).Resize(BufferPtr, 1).Value _

= Application.WorksheetFunction.Transpose(Buffer())

RowNum = RowNum + BufferPtr

End If



BufferPtr = 0

If FlushBuffer = True Then

Erase Buffer

RowNum = 0

ColNum = 0

Exit Sub

Else

ReDim Buffer(1 To UBound(Buffer))

End If



End If



\'construct the next set

For i = 1 To UBound(ItemsChosen)

sValue = sValue & \", \" & vAllItems(ItemsChosen(i), 1)

Next i



\'and save it in the buffer

BufferPtr = BufferPtr + 1

Buffer(BufferPtr) = Mid$(sValue, 3)

End Sub \'SavePermutation
2010-03-25 (21:46)

status megi82
Data rejestracji: 2009-12-14 00:00:00
Ilość postów: 9

12300
wpis nr 303 864
[ CZCIONKA MONOSPACE ]

kleszek bardzo,bardzo dziekuje ci za to makro działa i jest super jeszcze raz wielkie dzieki
2010-04-09 (21:36)

status Wist
Data rejestracji: 2010-04-09 00:00:00
Ilość postów: 609

12468
wpis nr 309 496
[ CZCIONKA MONOSPACE ]

Witam wszystkich. Mam kilka pytan dotyczacych programu Excel moze ktos mi bedzie w stanie pomoc. Chodzi mi o gre 7/27 (Daily Play) Mam baze wynikow zapisana w arkuszu i chcialbym sie dowiedziec w jaki sposob sprawdzic wypadalnosc mojego zestawu chodzi mi o wypadalnosc 7/7 i 6/7 powiedzmy, ze moim zestawem jest 1,2,3,4,5,6,7. Przepraszam za brak polskich liter, ale pisze moj post w angielskojezycznej wersji Worda. Z gory dziekuje za pomoc.
2010-04-09 (21:50)

status Marriusz2
Data rejestracji: 2009-06-02 00:00:00
Ilość postów: 2436

4670
wpis nr 309 508
[ CZCIONKA MONOSPACE ]

Formatowanie warunkowe z górnego menu . Jest to jedna z podstawowych funkcji arkuszowych .

Pozdrawiam
2010-04-10 (15:07)

status Wist
Data rejestracji: 2010-04-09 00:00:00
Ilość postów: 609

12468
wpis nr 309 704
[ CZCIONKA MONOSPACE ]

Dziekuje za szybka odpowiedz. Dzisiaj zaloba
2010-05-29 (16:59)

status totkoman
Data rejestracji: 2010-05-29 00:00:00
Ilość postów: 2

12527
wpis nr 328 742
[ CZCIONKA MONOSPACE ]

Witam - mam taki problem z plusem w multi. Wyniki losowań niesortowane czyli plus w ostatniej 20 kolumnie. Jaką formułę zastosować w komórkach następnej kolumny by mieć tu wyliczony odstęp od ostatniego wystąpienia plusa z danego wiersza. Pewnie było to już omawiane ale nie mogę znaleźć.

Dzięki za ew. podpowiedź.
2010-05-30 (09:09)

status SirMavins
Data rejestracji: 2009-05-29 00:00:00
Ilość postów: 3951

4654
wpis nr 328 945
[ CZCIONKA MONOSPACE ]

tottkoman.



Ale o co chodzi?

Jeśli masz liczbę na pozycji 20 i ona nie wypada, to wystarczy zliczyć od ilu nie wypada i podać to w osobnej rubryce jako wynik.

Ostatni losowania to 1-13, czyli minimalny odstęp miedzy powtórzeniami.





Ja natomiast mam inny problem: segregowanie ciągów liczbowych w wierszach.

W kolumnach jest prosto - sortuj i po sprawie.

Lecz mając liczby poukładane chaotycznie chciałbym jest uszeregować wg dowolnej, wybranej przez siebie kolejności, ale w wierszu!!!

Powiedzmy, ze podam przykład, choć nie o te liczby chodzi.

Mam NIEPOSORTOWANE, a chcę POSORTOWANE.

I kicha, bo nie widzę instrukcji.
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 13 14 15 ... 53 54
Wyślij wiadomość do admina