Działa w kolumnach E i F. Dla pozostałych zrób analogicznie jak będą w nich dane.
Jedną formułą? Musiałaby być jakaś karkołomna-tablicowa. Zrobiłbym to tak (załącznik).
A takie rozwiązanie? Function Szukanie(Wskaznik, Rok, Zakres as Range) For Each Kom In Zakres If Kom = Wskaznik Then Wiersz = Kom.Row End If Next For Each Kom In Zakres If Kom = Rok Then Kolumna = Kom.Column End If Next Szukanie = Zakres(Wiersz - 1, Kolumna).Value / 100 End Function Powinno działać prawidłowo. Dodane: Coby funkcja była...
Jak masz tak ładnie popisane "stare:xxxxxxx" i "nowe:yyyyyy" we wszystkich wierszach to nawet nie musisz sięgać ani do wyrażeń regularnych, ani do VBA :please: Wystarczy zrobić odpowiednią formułę (na bazie fragment.tekstu) w kolumnach C i D i przeciągnąć ją na dół kolumny :idea: :idea:
Witam If Left(Cells(w2, k).Value,6) = lista(licznik_petli) Then
Zarejestruj jeszcze wyszukiwanie tekstu (Ctrl+f), zamiast 'Activate/Select' wpisz 'Column' i przypisz do zmiennej. Powinno wyjść coś takiego p.kaczmarek2 . Do tego obsługa błędu, w razie nieznalezienia, oraz różne takie mniej istotne...
Dodałem opcję czyszczenia.
Powinnaś dokładnie opisać swoje dane, a poza tym trzeba mieć świadomość istnienia dwóch zasadniczych algorytmów wyszukiwania: dokładnego i przybliżonego. Algorytm dokładny działa w ten sposób, że szuka dokładnie poszukiwanego wzorca i jeśli go nie znajdzie zwraca błąd. Jeśli wzorzec występuje wielokrotnie - zwraca pierwsze wystąpienie. Dane do tego...
Ponieważ zamknąłeś topik adamasa_nt i uważam że jest jak najbardziej trafione.
Zmienna TswPesel jest u Ciebie zadeklarowana jako String . Tymczasem w tabeli masz zarówno teksty (te zaczynające się od 0) jak i liczby (te, które nie zaczynają się od 0). Próba wyszukiwania tekstu wśród liczb kończy się błędem, dlatego trzeba szukać tekstu gdy zaczyna się od 0, a liczby w pozostałych przypadkach.
VBA jest tylko modelem Excela, a nie jego wiernym odwzorowaniem. Nie wszystko, co jest możliwe w Excelu da się odwzorować w VBA. Według mojej wiedzy nie ma możliwości zmiany ustawienia tego pola wyboru z poziomu VBA. Można próbować wyświetlić przez VBA okna dialogowe Find i zmienić ustawienia poprzez te okna. Opisz dokładniej swój scenariusz, co chciałbyś...
Zobacz, czy o to chodziło. Starałem się jak najmniej zmieniać w Twoim kodzie, ale nie bardzo wiedziałem, czy chcesz szukać całych komórek z podaną zawartością, czy fragmentów. W tej chwili wyszukuje fragmentów. Nie jest ten kod za bardzo optymalny, bo wykorzystuje Find tylko do wyszukania arkusza, a potem szukanie wystąpień w arkuszu, to już porównania...
Najszybciej zrobisz to bez excela ;) 1. Zainstaluj sobie Notepad++ (Freeware) 2. Skopiuj do niego zawartość arkusza. Lub zapisz arkusz jako csv i otwórz w Notepad++ 3. W Notepad++ zamień znak tabulatora "\t" (jesli kopiowałeś) lub średnik ze spacją "; " (jeśli zapisywałeś csv) na znak nowej linii ("\n"). Musisz użyć wyszukiwania rozszerzonego 4. Wynik...
makro akapit przed właściwym nagłówkiem również formatuje Faktycznie tak się dzieje - trudno precyzyjnie operować jest ułomnymi "symbolami wieloznacznymi :cry: Dla tego zmieniłem zapis tych "wyrażeń regularnych" Worda, zmieniłem też zastosowane style (na dotyczące znaków i akapitu :idea: ) i całość w nowej formie zamieściłem w załączniku. Czy jest...
Najprościej zaciągnąć dane kwerendą (jak leci), http://obrazki.elektroda.pl/2859189500_1... ew. można zoptymalizować, czyt. wyrzucić co niepotrzebne. Nagraj makro wykonywania w/w czynności, a do wyszukiwania użyj arkuszowych formuł...
http://obrazki.elektroda.pl/5044212000_1... http://obrazki.elektroda.pl/5044212000_1...
Pytania uściślające: - w której wersji Excela ma to działać (jeśli w kilku wersjach, to podać najstarszą), - jak rozumieć te kategorie wagowe, np. pozycja [syntax=text]0,9 kg 3,38[/syntax] oznacza wagę powyżej 0,4 kg do 0,9 kg włącznie, czy od 0,9 kg do 1,4 kg wyłącznie? - czy ustalenie kategorii wagowej ma służyć jeszcze do czegoś innego poza ustaleniem...
A nie wystarczy zastosowanie filtrów w "Zeszyt1.xls"? W załączniku rozwiązanie z funkcjami wyszukiwania i kolumnami pomocniczymi. Przy otwarciu kliknij 'Edytuj łącza' i wskaż właściwy plik.
Zacznij od funkcji wyszukaj.pionowo
Jest taka możliwość. Nie napisałeś czy chodzi tylko o spis plików czy też ze ścieżkami. Potrzebny będzie Total Commander i Excel ;-) . 1. Włączasz TC. 2. Wkładasz płytę i otwierasz ją w TC. 3. Polecenia -> Szukaj (Alt+F7) 4. W polu szukaj wpisz: *.* A następnie klikasz Zacznij szukać . Jak skończy szukać będziesz miał listę wszystkich plików i katalogów...
Można wykorzystać ciekawą właściwość funkcji podaj.pozycję - jeśli typ wyszukiwania ustawimy równy 1 to będzie ona wyszukiwać najbliższego wyniku mniejszego niż szukany. Tak więc przy obecnym układzie można wypróbować coś takiego (dla komórki F2): =INDEKS($C$2:$C$4;PODAJ.POZYCJĘ&... I rozciągnąć w dół. Oczywiście...
Mam skoroszyt excela w którym w poszczególnych arkuszach (każdy miesiąc ma osobny arkusz) przechowywane są dane o pracownikach i jak pracowali w danym miesiącu. Czasem pracownik w ciągu miesiąca pracuje na kilku punktach pracy czyli zmienia lokalizacje. Przykład w arkuszu X pracownik o nazwisku i imieniu A7 129 pracował w lokalizacjach Bogdanka, Wieliczka...
Do pierwszego możesz użyć funkcji RIGHT (zakładając że tydzień jest dwucyfrowy i zawsze na końcu) tydzien = Right(wartosc_komorki, 2) Do drugiego: albo użyć przycisku którego kliknięcie wywołuje makro dodające nową osobę do zakłądki "status" i "zasoby", albo spróbować obsłużyć zdarzenie Worksheet_Change zawężone do kolumny gdzie jest nazwisko....
Tylko że "Poprawność danych" uniemożliwia wprowadzenie złych danych a nie wyszukuje istniejących i nie zwraca wartości
Zainteresuj się oprogramowaniem o nazwie MapInfo, masz plik mapy w formacie bmp,jpg możesz ją „geokodować” przypisać jej współrzędne geograficzne, możesz utworzyć bazę danych z grobami, jeżeli masz takie dane w pliku excel możesz je zaimportować, przyda się znajomość języka zapytań SQL, oprogramowanie MapInfo pozwala na generowanie dodatkowych...
No i jak zrobić żeby wyszukał z kilku arkuszy??? Zrobiłbym tak: Wyszukiwanie i składanie stringu dla etykiety umieściłbym w osobnej funkcji, do której z głównej procedury zdarzeniowej przekazywało by się argumenty: tekst wyszukiwania i nazwa arkusza, a która zwracałaby string dla etykiety. W zależności od tego ile masz magazynów (arkuszy) zastosowałbym...
Witam, chcę stworzyć plik excel "consumer" w którym będę mógł zamieszczać poszczególne dane ( one w czasie będą dochodzić, zmieniać nazwę itd.). Zależy mi głównie na : 1. dodaniu przycisku WYSZUKAJ ( HLA50, czy HLA 50 - w celu szybszego wyszukania spacja nie powinna być brana pod uwagę), 2. jak wyszuka zaznaczenie całego wiersza na jakiś kolor, 3. automatyczne...
Możesz do tego celu użyć np. Total Commandera i użyć opcji wyszukaj. Program pozwala umieścić wszystkie wyniki wyszukiwania w jednym oknie co umożliwi łatwe ich skopiowanie do nowego katalogu i nagranie np. na płytę. Najlepiej wyszukiwać według rozszerzeń *.doc - dla plików Worda, *.xls - dla plików Excela (nie *.txt jak podał Szarańcza bo to zwykłe...
Można i bez VBA z dwoma kolumnami pomocniczymi, w oparciu o funkcje wyszukiwania i adresu: arkusz źródłowy http://obrazki.elektroda.pl/3552563400_1... arkusz wynikowy http://obrazki.elektroda.pl/5969816300_1...
Witam wszystkich. mam problem, nie mogę znaleźć żądnej funkcji która by wyszukiwała jedno wyrażenie (słowo) w jednym arkuszu i wyświetlałą je w drugim. Np. mamy tabele z 5 kolumnami i wyszukujemy w kolumnie 2 słowo np. "głowa" i w drugim arkuszu wyśiwetli wszystkie wiersze zawierające słowo "głowa" + dane mieszczące się obok np rozmiar itp. Bardzo prosze...
excel2003pl wyszukiwanie po kilku znakach / modyfikowanie / dodawanie nowych Witam poszukuję rozwiązania dla mojego problemu dotyczącego wyszukiwania mam listę osób i rozegranych z nimi pojedynków Przykładowa lista: osobawygralprzegralremis poddanyz kim gacek11200ozon pinki kajko rak44-3000kosa lipa rety taki_jaki0111fanty azory sepy Co będzie mi potrzebne...
Przetestuj: [syntax=VB]Sub Data_Bold() Dim lLstRw& Dim i& Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ 'definicja wyrażenia regularnego do wyszukiwania Dim sCol$ 'kolumna z danymi sCol = "A" With ActiveSheet sRegExpPatt = "Data" lLstRw = .Cells(Rows.Count, sCol).End(xlUp).Row Set objRegExp = CreateObject("VBScript.RegExp") objRegExp.Global...
Cześć jestem nowy na forum i potrzebuję jakiegoś magika który podpowiedział by mi jak zrobić pewien formularz w excelu, mianowicie : Mam 4 nagłówki w tabeli takich jak kolejno; klient adres towar kod towaru chciał bym żeby jak w kolumnie klient wpisuje nowak jan automatycznie w kolumnie wskakiwał mi jego adres później zebym miał do wyboru z 5 rodzajów...
...1. jak mam sformatować komórkę aby wyświetlała w zawartości ze zczytanego kodu kreskowego zawartość w postaci szeregu cyfr. Nie wiem dlaczego w jednej komórce, która jest sformatowana jako tekst wyświetla ten szereg cyfr a w innej mimo iż jest tak samo sformatowana już nie. 2. Jak mam połączyć funkcję ... Tak abym do komórki D28 nie wpisywał jak...
Taki na szybko przykład (łatwiej by było zrozumieć z cenami i nie tylko gdybyś ty zrobił przykład katalogu i główne dane). Nie wiem czy dobrze cię zrozumiałem z tymi cenami, ale funkcje wyszukiwania ustawione sa na cały arkusz 1. Mają też trochę zabezpieczeń jak głupotę wpiszesz. Możesz też kopiować przeciągając komórki - po to sa dolary przy odwołaniu...
Przetestuj następujące makro [syntax=vb]Sub GetVIN() Dim lLstRw& Dim i& Dim l% Dim objRegExp As Object Dim objFnd As Object Dim sRegExpPatt$ 'definicja wyrażenia regularnego do wyszukiwania Dim sCol$ 'kolumna z danymi sCol = "D" With ActiveSheet sRegExpPatt = "[A-Z0-9]{17}" lLstRw = .Cells(Rows.Count, sCol).End(xlUp).Row Set objRegExp = CreateObject("VBScript.RegExp")...
1. #N/D! - da się wyeliminować przez dodanie na zewnątrz formuły JEŻELI.ND albo JEŻELI.BŁĄD. Obie działają podobnie do funkcji JEŻELI, więc nie powinieneś mieć z nimi kłopotów 2. Da radę przeszukać kilka arkuszy jednocześnie - wystarczy w zakresie podać adresy zakresów w poszczególnych arkuszach rozdzielone średnikami, np. Arkusz1!C1:C3;Arkusz2!B1:B3,...
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
W Excelu 2016 możesz użyć formuły: [syntax=text]=PODAJ.POZYCJĘ(PRAWDA;CZY.L...
Funkcja =jeżeli....... na początku i sprawa załatwiona.
Funkcja(UDF) w Module1 Patrz przyklad.
Witam, Ja znam i używam jednej z czterech metod wyszukiwania danych. 1. z wykorzystaniem funkcji FIND() 2. z wykorzystaniem pętli FOR 3. z wykorzystaniem pętli FOR EACH 4. (niezałączona) z wyszukiwaniem binarnym na posortowanych danych Trzy z nich załączam w pliku "testowym". Znajduje się w nim 10.000 losowych, nieposortowanych rekordów: firma, miasto,...
Moja sugestia jest jednak taka, żeby te pliki wrzucić do tabeli w Accessie i tam je analizować. To a propos pytania "co byście zmienili". Jeśli już się uprzeć przy pliku, to usuwanie większej ilości wierszy pojedynczo poleceniem .Delete jest baaaardzo wolne, zagnieżdżona pętla też nie pomaga. 4 pomysły na przyspieszenie: 1. Kopiować znajdowane wiersze...
W załączniku.
Sprobuj Optional txt As String = "; "
... gdyż naciskasz F9 idziesz zrobić kawę, wracasz i gotowe :D ... A mogę zapytać po co naciskasz F9? Masz wyłączone automatyczne odświeżanie? Odwołania cykliczne w formułach? Owszem F9 wymusza przeliczanie ale całego arkusza/skoroszytu a akurat "moje" rozwiązanie tego nie potrzebuje (pod warunkiem że masz włączony standardowo automat w opcjach) W...
W tej postaci pozostaje tylko wykorzystanie VBA. Sugerowałbym także przeorganizowanie danych w arkuszu "BAZA". Gatunek powinien być również wybierany z listy. Nie będzie konieczności rozbijania łańcucha i unikniesz błędów (Np. D2<>D11). Możesz użyć dwóch kolumn Np. "Gatunek1" i "Gatunek2". Filtry najlepiej zastosować w arkuszu "BAZA" http://obrazki.elektroda.net/10_12648418...
użyj formuły =wyszukaj.pionowo
Należałoby przeszukać sąsiadów w wierszu "wierszkontrahenta"... Taki efekt: http://obrazki.elektroda.pl/8119171000_1... uzyskałem przy pomocy [syntax=vb]Sub Szukaj() ilekontrahentow = 20000 ListaFirm = "nazwisko" 'symulacja wartości pola tekstowego wiersz = Worksheets("KONTRAHENT").Range("B3", "B" & ilekontrahentow) _ .Find(what:=ListaFirm,...
Wszystko już masz w arkuszu "Baza", trzeba tylko dołożyć obliczenia. Nie widzę potrzeby zastosowania VBA. Po mojemu dolna tabelka w arkuszu "Dane" jest na oko zwyczajnie zdublowana...
wyszukiwanie różnych słów
chciałbym aby to wyświetlało się od razu po dodaniu w arkuszu głównym Jeśli ten projekt jest taki prosty jak w Twoim przykładzie :D to nawet w starszych wydaniach Excela można to zrealizować w oparciu o funkcje wyszukaj.pionowo przy wykorzystaniu kilku tricków (np. pomocnicza kolumna z "indeksami", funkcje "nazwane" itp. ) :spoko: Całość widać na zrzucie...
"Mój tekst" Sheets("Arkusz2").Range("D4")
Czy da się to zrobić? Można to zrobić np przy użyciu dodatkowych kolumn z formułami pośrednimi, oraz przy użyciu funkcji WYBIERZ() tak jak na zrzucie: 917448 Wszystkie funkcje w załączonym pliku :spoko: 917452
wcztywanie danych ma nastąpić z innego arkusza oraz szukanie po imieniu i nazwisku Trzeba oczywiście dostosować bazę danych i formuły do takiego rozwiązania :D np tak jak na zrzucie i w załączonym pliku :spoko: 1044835 1044836
excel wyniki wyszukiwania wyniki wyszukiwania wyniki wyszukiwania opcje wyszukiwania
parametry dynamiczne zasilacza rzuty prostokątne prędkość przesyłu danych
falowniki homag kalibracja ekranu tomtom
SR360 – dioda Schottky 3A 60V: maksymalny prąd, parametry, zastosowania Zablokowane pasy bezpieczeństwa po zderzeniu z sarną – działanie SRS, napinacze, diagnostyka