[ Pobierz całość w formacie PDF ]
.NIEPUSTYCH(dronio!$A:$A);1)" a powinno byæ tak:=PRZESUNIÊCIE(dronio!$A$1;0;1;ILE.NIEPUSTYCH(dronio!$A:$A);1)na skutek 2-ch znaków równo¶ci Excel doda³ cudzys³owy itd.Natomiast je¶li chodzi o przytoczony przez Ciebie kod, to tak jak Maciek pisze, nie jest to wyszukiwanie, tylko próba dodania do kolekcji nazw kolejnej nazwy dla danego zakresu komórek:Help: Etykiety i nazwy w formu³ach informacjeMo¿na u¿ywaæ etykiet kolumn i wierszy w arkuszu, aby odwo³ywaæ siê do komórek w tych kolumnach i wierszach.Mo¿na równie¿ tworzyæ opisowe nazwy reprezentuj±ce komórki, zakresy komórek, formu³y lub warto¶ci sta³eWiêc tak naprawdê nie wiem o co Ci chodzi ? To ma byæ namiastka managera nazw, czy wyszukiwanie, ¿eby znowu niepotrzebnie nie pisaæ czego¶?[Post edytowany dnia 17-04-2005 13:48 przez karolinavb]_____________________________________________Karolina17-04-2005 13:41 losmac"profesorek"Typ:neutralPostów: 758Zarejestrowany: May 2003Umie¶æ nowy modu³ i wklej w nim poni¿szy kod.Option ExplicitSub SzukajLiczby()Dim liczba As DoubleDim sNazwa As StringOn Error GoTo Err_SzukajLiczbyliczba = CDbl(InputBox("Podaj liczbê.", "Podaj liczbê.", "")sNazwa = DajNazwe(liczba)MsgBox sNazwa, vbInformation, "Wynik wyszukiwania"Exit_SzukajLiczby: Exit SubErr_SzukajLiczby: Resume Exit_SzukajLiczbyEnd SubFunction DajNazwe(liczba As Double) As StringDim i As LongDajNazwe = "Nie ma nazwy odpowiadaj±cej dla tej liczby!"i = 1Do If CStr(liczba) = ThisWorkbook.Worksheets("dronio".Range("A" & i) Then DajNazwe = ThisWorkbook.Worksheets("dronio".Range("B" & i) Exit Do End If i = i + 1Loop While ThisWorkbook.Worksheets("dronio".Range("A" & i) <> ""End FunctionUmie¶æ przycisk w swoim arkuszu, a do tego przycisku przypisz procedurê SzukajLiczbyWszystko powinno dzia³aæ!Mam nadziejê, ¿e o to Ci chodzi³o!I jeszcze jedno.Nie umie¶ci³em w kodzie, tak jak zrobi³a to elegancko Karolinka, sprawdzenia czy u¿ytkownik wpisa³ liczbê.Mo¿esz korzystaj±c z jej rozwi±zañ wzbogaciæ mój kod o tê funkcjonalno¶æ.[Post edytowany dnia 17-04-2005 20:38 przez losmac]_____________________________________________POSTULATY STARUSZKA: 1) Ludzie, dbajcie o polszczyznê!!! 2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie och³apy i trzeba siê domy¶laæ o co chodzi!!! Powodzenia Maciej £o¶17-04-2005 20:35 DronioTyp:neutralPostów: 7Zarejestrowany: Apr 2005dzieki wielkie losmac i karolina mam tylko pytanko do losmac jak zrobic zeby mi wynik byl pogrubiona czcionka lamerskie pytanie ale sorka orlem z VBA nie bylem[Post edytowany dnia 17-04-2005 21:42 przez Dronio]17-04-2005 21:14 losmac"profesorek"Typ:neutralPostów: 758Zarejestrowany: May 2003Dronio,Mam pro¶bê, pisz i mów po polsku, bo po "naszemu" nie rozumiem Wiesz, swoje lata mam, a m³odzie¿owego slangu nijak nauczyæ siê nie umiem.bo nie chcê.W Office'97 mog³e¶ formatowaæ komunikat za pomoc± @, np.: Co¶ tam@ co¶ tam @ co¶ tam - dawa³o 3 linijki, gdzie pierwsza by³a pogrubiona.(przyznam Ci siê szczerze, ¿e nie pamiêtam, by takie formatowanie dzia³a³o w Excelu, a napewno dzia³a³o w Accessie)Kolejne wersje Office'a, niestety, tego nie umo¿liwiaj±._____________________________________________POSTULATY STARUSZKA: 1) Ludzie, dbajcie o polszczyznê!!! 2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie och³apy i trzeba siê domy¶laæ o co chodzi!!! Powodzenia Maciej £o¶17-04-2005 23:05 DronioTyp:neutralPostów: 7Zarejestrowany: Apr 2005to mam jeszcze jedno pytaniewszystko dziala ok ale chcialbym zrobic zeby czytalo mi tez wartosc z kolumny C tutaj zamieszczam plik czyli chcialbym zeby po wspisaniu wartosci "A" pokaz³ mi wartos " B i C"[Post edytowany dnia 20-04-2005 12:53 przez Dronio]20-04-2005 12:51 Wszystkich odpowiedzi: 12 :: Maxymalnie na stronê: 20Strona: [ > ] z 1
[ Pobierz całość w formacie PDF ]