Forum strony www.multipasko.pl [Regulamin]


Dodaj wpis w tym temacie
Spis tematów
Login:

Hasło:
Strona: 1 2 3 ... 51 52
Wyślij wiadomość do admina

Przewiń wpisy ↓

Excel- potrzebna pomoc

2009-02-17 (05:35)

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

2572
wpis nr 181 642
[ CZCIONKA SPECJALNA ]

Witam,

onegdaj napisałem prostą funkcję do \"wyłuskiwania\" wylosowanych liczb z tekstu - jednej komórki zawierającej wynikj losowania. Nazwałem ją text2int aby podkreslić, że z tekstu wyłapywane są tylko liczby w postaci całkowitej.

W przeciwieństwie do fukcji systemowej FragmentTekstu nie mmuszę badać w jaki sposób są rozdzielone poszczególne liczby w wyniku losowania, tak więc czy będę je miał w postaci:

02,05,07,12,15,19,24,28,32,36,40,41,56,57,58,59,62,68,76,77

czy też:

gfdhdf02//\\\\\\05lkmnad07$$$$$12(()15\'\'\',,,.....!!19trete24ojjjj28??32+++36<>,40fgs,41gf,56//,57!!!,58cds,59ggg,62gha;;,68,@@76###77

wynik zawsze będzie ten sam:

2 5 7 12 15 19 24 28 32 36 40 41 56 57 58 59 62 68 76 77

Wynik jest wyprowadzany w postaci tablicy, więc tradycyjnie należy skorzystać z Ctrl+Shift+Enter

Funkcję można oczywiście podpiąć pod jakąś procedurę, albo przerobić ją na fragment procedury

Pozdrawiam





\'=======================================

Function text2int(tekst_org As String) As Variant

Dim tab1 As Variant, tab2 As Variant, j As Integer, i As Integer, pom As String, tekst As String, flaga As Boolean



tekst = \"\"

flaga = False

j = Len(tekst_org)

For i = 1 To j

pom = Mid(tekst_org, i, 1)

If IsNumeric(pom) Then

tekst = tekst & pom

flaga = True

ElseIf Not (IsNumeric(pom)) And flaga = True Then

tekst = tekst & \";\"

flaga = False

End If

Next i



tab1 = Split(tekst, \";\")

j = UBound(tab1)



ReDim tab2(j)



For i = 0 To j

tab2(i) = Val(tab1(i))

Next i



text2int = tab2

End Function

2009-02-17 (17:49)

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

561
wpis nr 181 743
[ CZCIONKA SPECJALNA ]

...dylong te twoje makro nie chce dzialac...ctrl+shift+enter i nic sie niedzieje

...a dzieki za makro do wpisywania losowan i samoisnego kasowania sie okreslonego losowania i przesuwania komorek...rewelacja

...czyli ze jeszcze jestem reformowalny

...a powiedzcie czy macie makro do obliczania najdluzej oczekiwanej liczby lub zestawu liczb?

...moze to tez jest takie proste jak z tymi wynikami losowan???

pzdr.nara:)
2009-02-17 (19:37)

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

721
wpis nr 181 778
[ CZCIONKA SPECJALNA ]

= .



A Ja nadal nie reformowany jestem choć już postępy zrobiłem ogromne, prosta funkcja MAX zawsze mi poda które ostatnie mam zapisane losowanie.

Odpowiednio ustawiłem kolumny i po wklejeniu od razu mam w oddzielnej kolumnie numer losowania w drugiej datę która jest tak zapisana że na datę Excela trzeba i tak przerobić i trzecia kolumna gdzie mam same liczby.

Mówi się że początki są trudne to ja o końcu wole nie myśleć bo wtedy dopiero będą trudności.

I tak się nie dam jednym kliknięciem musi się wszystko zapisać



wesołego wieczoru

2009-02-17 (19:47)

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

721
wpis nr 181 781
[ CZCIONKA SPECJALNA ]

Ice a jak kopiowałeś liczby jako zwykły tekst czy jak leci prosto ze strony
2009-02-17 (20:29)

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

561
wpis nr 181 791
[ CZCIONKA SPECJALNA ]

...liczby wpisalem recznie...jak i nr i date losowania

...a z makro dylonga zkopiowalem prosto ze strony (chyba jako text zwykly) kopiuj i wklej...wkleilo mi liczby w pionie i na kolorowo...i tak smo przenioslo do arkusza głownego...hmmm

...u mnie dziala...ale u ciebie to chociaz jakos wyglada graficznie...bo u mnie to tak byle jak surowo...beee

pzdr.nara:)
2009-02-17 (20:39)

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

721
wpis nr 181 802
[ CZCIONKA SPECJALNA ]

Ice u mnie jeszcze nie działa tylko ładnie wygląda ...... a działać i tak będzie



wesołego wieczoru
2009-02-17 (20:44)

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

721
wpis nr 181 806
[ CZCIONKA SPECJALNA ]

Ice już rozumiem wkleiłeś jak tekst HTML .... musisz to wkleić jako wklejenie specjalne i zaznaczyć Tekst Unicode

2009-02-17 (20:57)

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

561
wpis nr 181 824
[ CZCIONKA SPECJALNA ]

...aaa jest ok

..na odatek wciskam \"urzyj kreatora importu textu\" i kleja mi tak jak chcem w kazda komurke oddzielnie!

...a makro dylonga nadal cos mi nie dziala...znika mi cala baza wynikow...smiesznie

pzdr.nara:)
2009-02-17 (21:21)

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

2572
wpis nr 181 835
[ CZCIONKA SPECJALNA ]

Ice, to nie makro, to funkcja. Obsługa taka jak każdej innej, po wklejeniu jej do modułu albo kodu arkusza, można jej używać (w danym arkuszu); przykładowo:

- w komórkę A1 wklejasz tekst zawierający liczby, potem w komórce A2 piszesz =text2int(a1)



i enterek



- w komórce A2 znalazła się pierwsza liczba, funkcja zwraca tablicę a jako, że wstępnie jest zaznaczona tylko jedna komórka to zwróci pierwszy element tej tablicy, aby więcej należy:



Począwszy od komórki A2 zaznaczyć tyle komórek ile liczb oczekujemy (dla ML ad A2 do T2), następnie kliknąć w pasek formuły i wtedy Ctrl+Shift+Enter

no i jest:





Oczywiście aby to przenieść w inne miejsce, należy po skopiowaniu wklejać jako wartości, dlatego jesli ktoś zmaga się z full automatem lepiej stosować tę funkcję w makrze, i wynik wyprowadzać pojedynczo jako wartość do każdej komórki oddzielnie, bo tak może procedura - funkcji nie uda się to nigdy

Pozdrawiam

PS

Wklejanie z Explorera do excela to porażka (wkleja z niby html\'owym formatowaniem) ja korzystam z Opery i jest OK





2009-02-18 (15:56)

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

561
wpis nr 181 952
[ CZCIONKA SPECJALNA ]

...hmmm...u mnie wychodzi jakos tak...tzn nie wychodzi...moze dlatego ze to explorer?



pzdr.nara:)
2009-02-18 (17:42)

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

2572
wpis nr 181 971
[ CZCIONKA SPECJALNA ]

hmmm, #NAZWA? oznacza, iż excel nie odnalazł funkcji o tej nazwie, może wpisałeś oś nie tak np. zamiast text2int tex2int albo inaczej. Aby się nie pomylić i sprawdzić czy faktycznie excel widzi tę funkcję nie wpisuj ręcznie tylko poprzez \"Wstaw funkcję\" (kliknąc na fx najprościej). Powinna się znajdować w kategorii Wszystkie oraz Użytkownika.

Pozdrawiam

2009-02-18 (18:21)

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

561
wpis nr 181 980
[ CZCIONKA SPECJALNA ]

...wpisane jest prawidlowo...tylko moze problem tkwi w tym ze ja mam excel 2003?

...albo nie tak jak trzeba wkleilem funkcje w visual basic?

pzdr.nara:)
2009-02-18 (19:34)

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

721
wpis nr 181 992
[ CZCIONKA SPECJALNA ]

A ja nadal mam stare 97



= .



Jednak poszedłem na łatwiznę zastosowałem formułkę fragment tekstu do każdej osobnej kratki zaznaczając jaki teks ma być widoczny i tak dla 06 jest D6;1;2 gdzie D6 mówi o położeniu tekstu 1 od której pozycji teks się zaczyna i 2 ile tekstu ma być widoczne. Dla 10 będzie D6;3;2 dla 13 będzie D6;5;2 i tak wszystkie liczby. Z numerem losowania też odbyło się bez problemów Funkcja T i określenie co ma pokazać. Schody zaczynają się z data jest zapisana jak widać z kropkami 15.02.2009 jak ja przekształcić tego nie wiem ale cóż dowiem się.

Jest jeszcze problem z zapisem liczb do dziesięciu jak widać jest zero przed liczbą ale jak wiem na to też jest jakiś sposób tylko ja go nie znam



wesołego wieczoru
2009-02-18 (19:38)

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

721
wpis nr 181 995
[ CZCIONKA SPECJALNA ]

zle podałem przesuniecie powinno być co 3 a nie co 2 jak napisałem
2009-02-18 (20:42)

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

561
wpis nr 182 016
[ CZCIONKA SPECJALNA ]

...wooow...slawek jestem pod wrazeniem

...tylko powiedz jak zaznaczyc zkond ma sciagac wynik losownaia i nr i date...jak to funkcja?

...tez tak sobie zrobie

...aha i nie omieszkam pozdrowic od ciebie pielegniareczek bo jutro wybywam

pzdr.nara:)
2009-02-18 (20:48)

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

721
wpis nr 182 017
[ CZCIONKA SPECJALNA ]

Ice jak to skąd wiadomo ze strony wyników .... ale to jeszcze nie koniec zmagań z tym wszystkim teraz z datą się będę męczył i nieszczęsnym zerem przed liczbami



Coś mi się wydaje ze takich jak nas Tu jest dwóch to każdego nauczyciela wykończy a przecież to początek arkusza który robimy

2009-02-18 (20:53)

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

721
wpis nr 182 019
[ CZCIONKA SPECJALNA ]

Poproszę bardziej łopatologicznie gdzie funkcje wkleić ....... najlepiej obrazkowo ..... wzrokowiec jestem
2009-02-18 (21:00)

status janus
Data rejestracji: 2005-06-06
Ilość postów: 14775

982
wpis nr 182 023
[ CZCIONKA SPECJALNA ]

Witam,

Ice, wybierz jakąś wolną komórkę, odszukaj u góry Wstaw, wybierz hiperłącze i wklej



http://www.multipasko.pl/wyniki-lotto/multi-lotek/



i w ten sposób kliknięcie w komórkę zawsze doprowadzi Cię do wyników Paski

Janusz
2009-02-18 (22:00)

status janus
Data rejestracji: 2005-06-06
Ilość postów: 14775

982
wpis nr 182 052
[ CZCIONKA SPECJALNA ]

Sławek, męczysz się jeszcze

podpowiedź wstaw przed fragment tekstu =WARTOŚĆ(FRAGMENT.TEKSTU())

I 0 Ci znikną.
2009-02-18 (23:05)

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

561
wpis nr 182 071
[ CZCIONKA SPECJALNA ]

...dzieki wielkie janus...ale ja myslalem ze to mi samo sciagnie z tej strony z odpowiedniej linijki po kliknieciu na komorke

...za duzo wymagam?...nie znam sie na tym

pzdr.nara:)
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lottoStrona: 1 2 3 ... 51 52
Wyślij wiadomość do admina