Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 70431 Skopiuj do schowka UDF wyszukaj poziomo wszystko
Autor Wiadomość
ws1948
[Usunięty]

Wysłany: 15-03-2021, 17:28   UDF wyszukaj poziomo wszystko

Witam,
niedawno na tym forum otrzymałem UDF-a WyszukajPionowoWszystko wypisującego w komórce, dla podanego argumentu wszystkie wartości z wybranej kolumny zakresu.
Wiem, że funkcja WYSZUKAJ.PIONOWO jest bardziej popularna od funkcji WYSZUKAJ.POZIOMO, dlatego umieściłem ten temat w ZADANIACH, mając nadzieję, że kogoś zainteresuje temat i podzieli się rozwiązaniem. Nie umieściłem swoich "dokonań", gdyż uważam, że łatwiej jest napisać nowy kod, niż poprawiać cudze błędy.

poziomo.xlsx
Pobierz Plik ściągnięto 6 raz(y) 9.38 KB

ID posta: 402146 Skopiuj do schowka
 
 
Maciej Gonet 
Excel Expert


Wersja: Win Office 2016
Pomógł: 2118 razy
Posty: 6628
Wysłany: 15-03-2021, 19:51   

Jeśli tamta funkcja Ci odpowiadała, to jaki problem obrócić dane o 90°?
Kod:
Function WyszukajPoziomoWszystko(Szukana, Zakres, Wiersz As Long, Optional Separator As String) As String
'=======================================================
'funkcja działa na podobnej zasadzie co wyszukaj.poziomo, z tą różnicą,
'że jako wynik zwraca wszystkie wyszukane wartości oddzielone
'zdefiniowanym jako argument funkcji separatorem;
'uwzględnia tylko wyszukiwanie dokładne

    Dim tTab
    Dim sFnd$
    Dim j&

    tTab = Zakres

    For j = 1 To UBound(tTab, 2)
        If Szukana = tTab(1, j) And Len(tTab(Wiersz, j)) > 0 Then
            sFnd = sFnd & Separator & tTab(Wiersz, j)
        End If
    Next j
    WyszukajPoziomoWszystko = Replace(sFnd, Separator, "", 1, 1)

End Function


poziomo.xlsm
Pobierz Plik ściągnięto 7 raz(y) 14.86 KB

ID posta: 402156 Skopiuj do schowka
 
 
ws1948
[Usunięty]

Wysłany: 15-03-2021, 21:21   

Witam,
dziękuję za zainteresowanie tematem i pomoc. UDF działa poprawnie.
Wcześniej kombinowałem z funkcją WyszukajPionowoWszystko, ale popełniłem błąd w zamianie miejscami zmiennych i udf nie chciał działać.
ID posta: 402162 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe