Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 ... 9 10 11 ... 53 54
Wyślij wiadomość do admina

Przewiń wpisy ↓

Excel- potrzebna pomoc

2009-04-07 (12:21)

status dylong
Data rejestracji: 2006-07-21 00:00:00
Ilość postów: 2814

2572
wpis nr 192 635
[ CZCIONKA MONOSPACE ]

Sławku, taką prymitywną metodą, samo rozpisanie zestawu (20 liczb) na dziesiątki. Zestaw umieszczasz w pierwszych 20 komórkach Arkusz1, dziesiątki lądują do Arkusz2. Zakładam, że korzystasz ze starszego excela więc zrzut dziesiątek w trzech blokach (blok.. kolumna przerwy..blok..)

Pozdrawiam







Option Explicit

Option Base 1



Sub zestaw20na10()

Dim zestaw As Variant

Dim a As Byte, b As Byte, c As Byte, d As Byte, e As Byte

Dim f As Byte, g As Byte, h As Byte, i As Byte, j As Byte

Dim k As Long, m As Byte, flaga As Boolean



Dim tab10() As Variant



Application.ScreenUpdating = False

Arkusz1.Select

zestaw = Arkusz1.Range(Cells(1, 1), Cells(1, 20)).Value



k = 1

m = 1

ReDim tab10(65536, 10)



For a = 1 To 11

For b = a + 1 To 12

For c = b + 1 To 13

For d = c + 1 To 14

For e = d + 1 To 15

For f = e + 1 To 16

For g = f + 1 To 17

For h = g + 1 To 18

For i = h + 1 To 19

For j = i + 1 To 20

tab10(k, 1) = zestaw(1, a)

tab10(k, 2) = zestaw(1, b)

tab10(k, 3) = zestaw(1, c)

tab10(k, 4) = zestaw(1, d)

tab10(k, 5) = zestaw(1, e)

tab10(k, 6) = zestaw(1, f)

tab10(k, 7) = zestaw(1, g)

tab10(k, = zestaw(1, h)

tab10(k, 9) = zestaw(1, i)

tab10(k, 10) = zestaw(1, j)

k = k + 1

If k = 65537 And flaga = False Then

Arkusz2.Select

Arkusz2.Range(Cells(1, m), Cells(65536, m + 9)).Value = tab10

k = 1

m = m + 11

If m = 23 Then

flaga = True

ReDim tab10(53684, 10)

End If

End If

If k = 53685 And flaga = True Then

Arkusz2.Select

Arkusz2.Range(Cells(1, m), Cells(53684, m + 9)).Value = tab10

End If

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

Application.ScreenUpdating = True

End Sub
2009-04-07 (12:22)

status dylong
Data rejestracji: 2006-07-21 00:00:00
Ilość postów: 2814

2572
wpis nr 192 636
[ CZCIONKA MONOSPACE ]

oczywiście zamiast buźki ma być:

tab10(k, 8 ) = zestaw(1, h)
2009-04-07 (13:12)

status slawek001
Data rejestracji: 2005-02-24 00:00:00
Ilość postów: 6116

721
wpis nr 192 645
[ CZCIONKA MONOSPACE ]

Dzięki a już się zastanawiałem jak w Makro buzkę narysować



wesołego dnia
2009-04-07 (13:22)

status slawek001
Data rejestracji: 2005-02-24 00:00:00
Ilość postów: 6116

721
wpis nr 192 646
[ CZCIONKA MONOSPACE ]

od razu mam pytanie i to nawet bez sprawdzenia co Makro robi

Jak rozumiem 10/10 jest zapisane w Arkuszu2 czy kiedy nowe 10/10 będe chciał zapisać to zapisze się w tym samym miejscu czy obok ? jak sądzę to wszystko odbywać się będzie w \"locie\" więc kiedy obok zapisywac sie będzie następna 10 powinienem wyczyścić cały arkusz żeby się nie zapełnił po którymś tam dokonanym wpisie jak tak to z tym sobie dam rade znam komędę dla Makra co cały Arkusz wyczyści

Czy to Makro bierze ostatnią zapisaną 20 z Arkusza1 bo jak tak to bardzo sprawę analiz dwóch ostatnich losowań by mi to ułatwiło



wesołego dnia
2009-04-07 (13:46)

status dylong
Data rejestracji: 2006-07-21 00:00:00
Ilość postów: 2814

2572
wpis nr 192 651
[ CZCIONKA MONOSPACE ]

to taki przykład tylko, bez szukania ostatniego losowania itp. zestaw jest pobierany z komórek A1:T1 (na sztywno), a dziesątki do Arkusz2 też bez kontroli czy tam coś jest czy nie. Nie wiem co, skąd i co z tym dalej, dlatego tak tylko... przykładowo... Do dziesiątek to lepiej excel2007 bo wszystko można zrzucić w jednym bloku, albo pliki tekstowe, i jak to Leo preferuje, operacje na strumieniach. Ja w takich dużych zbiorach nie grzebię, więc rzecz mi to nie znana, ale jak coś tam trzeba jeszcze i dam radę...
2009-04-07 (17:41)

status slawek001
Data rejestracji: 2005-02-24 00:00:00
Ilość postów: 6116

721
wpis nr 192 672
[ CZCIONKA MONOSPACE ]

Dzięki teraz wszystko rozumiem będę miał przez jakiś czas czym się bawić



wesołego dnia
2009-04-09 (15:13)

status slawek001
Data rejestracji: 2005-02-24 00:00:00
Ilość postów: 6116

721
wpis nr 192 944
[ CZCIONKA MONOSPACE ]

W miarę swoich możliwości przystosowałem Makro do Arkusza, z jakim się bawię. Ilość zestawów dziesiątek jest tak duża, że jako abstrakcje zaczynam to odbierać.

Co wykonałem?

Zmieniłem Arkusz, z którego są pobierane liczby do rozpisu zestawu 20 liczb na 10 i podałem inne miejsce gdzie znajdują się liczby a liczby znajdują się w Arkusz2 pozycja D7:W7 i drugi zestaw liczb D8:W8

Dla pierwszego zestawu 20 liczb została wykonana zmiana w Makro



Arkusz2.Select

zestaw = Arkusz2.Range(Cells(7, 4), Cells(7, 24)).Value



Gdzie po wpisaniu liczb w Arkusz3 zostają skopiowane AH1 celem wykonania miejsca do zapisania drugiego zestawu 20 liczb



Range(\"A1:AF65536\").Select

Selection.Copy

Range(\"AH1\").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False



Drugi zestaw 20 liczb pobierany jest z Arkusza2 pozycja D8:W8 wiec zmiana wpisu w Makro została też zmieniona na



Arkusz2.Select

zestaw = Arkusz2.Range(Cells(8, 4), Cells(8, 24)).Value



I tu już bez zmian 10 są zapisane jak podaje Makro a Arkusz3 tym sposobem w Arkusz3 posiadam zapisane około 360 tyś, 10 które i tak jako anty w dalszej zabawie będą służyły.

Anty, dlatego ze przyjmując średnią wystąpień liczb z dwóch 20 występujących po sobie kolejnego dnia w każdej z nich wychodzi 7 liczb wiec wiadomo, że uzyskamy 7/10 w 360 tyś ułożonych 10 nie więcej a mnie interesuje więcej.

Suma licz dwóch po sobie wychodzących losowań średnio wynosi 36 liczb gdzie dnia następnego po losowaniu wychodzi do 13 liczb zachowując średnia 10 liczb. Tak, więc układając z 36 liczb 10 i po odjęciu 360 tyś anty mamy gdzieś w tym tłumie, 10/10 choć wiem, że ilość 10 jest astronomiczna bawię się tym dalej.



Jaką zastosować formułę żeby sumowała mi liczby podane w pozycji D7:W7 i D8:W8 omijając podwójne wpisy liczb i zapisała w pozycji B5:AO5 wiadomo w tych pozycjach muszę wpisać tą formułę.



wesołego dnia





2009-04-11 (18:22)

status slawek001
Data rejestracji: 2005-02-24 00:00:00
Ilość postów: 6116

721
wpis nr 193 267
[ CZCIONKA MONOSPACE ]

poradziłem sobie z formułą znalazłem ją u Janusza w Arkuszu



= .



teraz tylko Makro napisać co liczby na 10 rozpisze i bawię się dalej



Wesołych Świąt
2009-04-11 (20:30)

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

3566
wpis nr 193 286
[ CZCIONKA MONOSPACE ]

Dla 34 liczb wyjdzie przeszło 131 milionów \"10\". Excel odmówi chyba współpracy.
2009-04-12 (10:48)

status slawek001
Data rejestracji: 2005-02-24 00:00:00
Ilość postów: 6116

721
wpis nr 193 370
[ CZCIONKA MONOSPACE ]

masz racje mi już odmawia trzeba wyniki zapisać na kliku arkuszach wiedząc ze przedział liczb jest ruchomy i mieści się w granicy od 34 do 40 liczb ..... tu jak zwykle liczę na pomoc ....... ja tam i tak robię swoje szukam punktów odniesienia żebym miał czym 10 odejmować od tej powstałej ilości ..... jest przecież tak ze raz 360 tyś już utworzonych 10 na w sobie do 13 poprawnych liczb raz właśnie te są anty ..... ale z określeniem kiedy są anty a kiedy poprawne problemu i tak nie ma



Wesołych Świąt
2009-05-20 (16:20)

status icemario
Data rejestracji: 2005-01-07 00:00:00
Ilość postów: 6391

561
wpis nr 199 493
[ CZCIONKA MONOSPACE ]

...panowie potrzebuje pomocy w kilku sprawach...pomozecie???

...po primo pierwsze...potrzebuje wykonac ( itu nie wiem co bedzie lepsze czy mapa z zestawami wszystkich 4liczb z 80ML do znalezienia najdluzej oczekiwanego zestwu min.2/4 czy jakies madre makro ktore w pamieci policzy najdluzej oczekiwany zestaw 4liczb z 80ML gdzie padlo min.2/4)

...po due drugie nie wiem jakiej funkcji urzyc w mapie liczb zeby mi podswietlalo na inny kolor komurke z liczba (dodam ze w komurkach sa same formuly i funkcja wyszukaj i zamien nie zdaje egzaminu)

pzdr.nara:)
2009-05-20 (17:49)

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

1386
wpis nr 199 507
[ CZCIONKA MONOSPACE ]

icemario > podeślij ten swój arkusz to Ci wmontuje takie makro ,bo sam go nie dasz rady przerobić.
2009-05-20 (17:52)

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

1386
wpis nr 199 508
[ CZCIONKA MONOSPACE ]

.. wystarczy takie coś ?

2009-05-20 (18:56)

status slawek001
Data rejestracji: 2005-02-24 00:00:00
Ilość postów: 6116

721
wpis nr 199 512
[ CZCIONKA MONOSPACE ]

Ice odnosnie kolorów to masz formatowanie warunkowe ustawisz kolor na okreslone warunki i już sa kolorki



= .



wesołego dnia



tylko przedtem nie zapomnij zaznaczyć pola które maja spełniać warunki jakie chcesz
2009-05-21 (13:56)

status icemario
Data rejestracji: 2005-01-07 00:00:00
Ilość postów: 6391

561
wpis nr 199 632
[ CZCIONKA MONOSPACE ]

...slawek bomba...jestes wielki

...nie wiedzialem ze jest cos takiego jak formatowanie warunkowe...szukalem w formatowaniu komorek...i nic nie znalazlem

...leo wlasnie o takie makro mi chodzilo...nie musi byc kolorowe...poczta poszla...dzieki

pzdr.nara:)
2009-05-31 (18:54)

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

4662
wpis nr 201 510
[ CZCIONKA MONOSPACE ]

pomóżcie, panowie, ewntualnie napiszcie jaka cena takiej porady

mam kolumne \"A\" w której jest 500 danych, są to wiersze z zakresu

od 1 do 6023

np



2355

1201

0032

3481

0219

......



i potrzebuje w tej kolumnie zrobić zamiane wszystkich liczb od 1600 do 2892 - na jedną liczbe np 6



wszystkich liczb od 3042 do 4580 na liczbe np 7 tak aby zamiast

3042=7

3043=7

3044=7

....

...

4579=7

4580=7



czy da sie jaką formułke w exelu aby dokonać takiej hurtowej zamiany

i nie robić tego pojedynczo, czyli: edycja,zamień,edycja,zamień......



chodzi o to abym mógł zamienić np jakieś zakres np od 2028 do 3801 na jedna liczbe np wszystkie liczby z tego zakresu na jena liczbe 5?



jest to do zrobienia

z góry dziekuje za podpowiedź

2009-05-31 (19:42)

status KURKA
Data rejestracji: 2009-01-23 00:00:00
Ilość postów: 2551

4098
wpis nr 201 518
[ CZCIONKA MONOSPACE ]

zamiast :

3042=7

3043=7

3044=7

....

...

4579=7

4580=7



napisz:

3042=7

3043=A3042

i przeciąg w dół do komórki A4580

....

...

4579=A4578

4580=A4579





2009-05-31 (19:50)

status Molek
Data rejestracji: 2005-12-12 00:00:00
Ilość postów: 4798

1497
wpis nr 201 521
[ CZCIONKA MONOSPACE ]

Może tak:

Formułę wpisać do B1

=JEŻELI(ORAZ(A1=>2028;A1=<3801);5;\"\")

po czym zaznaczyć B1 złapać za uchwyt i przeciągnąć w dół

Jeżeli spełniony warunek = 5 jeśli nie = \"\"(spacja)

Henryk
2009-05-31 (20:14)

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

4662
wpis nr 201 529
[ CZCIONKA MONOSPACE ]

Molek, bardzo bardzo dziekuje za odpowiedź,

dokładnie o to mi chodziło, działa tj chciałem

pozdrawiam

2009-05-31 (21:46)

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

1386
wpis nr 201 557
[ CZCIONKA MONOSPACE ]

makro ,zakresem jest wszystko co masz w kolumnie A



Sub PODMIEŃ()



ZAKRES = Application.WorksheetFunction.CountA(Range(\"A:A\"))

\'jeśli tylko do 500-wiersza to zmień na Range(\"A1:A500\")



LICZBA_WSKAZANA = CInt(InputBox(\"Wpisz LICZBĘ wstawianą zamiast wybranych \", \"dane\"))

Liczba_MINIMUM = CInt(InputBox(\"Wpisz MINIMALNĄ LICZBĘ DO PODMIANY \", \"dane\"))

Liczba_MAXIMUM = CInt(InputBox(\"Wpisz MAXYMALNĄ LICZBĘ DO PODMIANY \", \"dane\"))

For i = 1 To ZAKRES

If Cells(i, 1) >= Liczba_MINIMUM And Cells(i, 1) <= Liczba_MAXIMUM Then Cells(i, 1) = LICZBA_WSKAZANA

Next i



End Sub

| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 ... 9 10 11 ... 53 54
Wyślij wiadomość do admina