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: 64037 Skopiuj do schowka Jakie funkcje? wyszukiwanie pokrywających się kilometracji
Autor Wiadomość
megg989
świeżak


Posty: 5
Wysłany: 04-02-2019, 21:54   Jakie funkcje? wyszukiwanie pokrywających się kilometracji

Mam 2 tabele w 2 arkuszach
Tab 1 (nazwa, lp, km od , km do)
Tab 2 (lp, km od, km do)
Jakich funkcji użyć, żeby do lp z tabeli 2 przyporządkować nazwę z tab 1 (jeżeli km z LP z tabela 1 zawiera się w km z Lp tabela 2). Może być tak że kilka nazw będzie pasować do km dla Lp
W załączeniu tabelka

przykład.xls
Pobierz Plik ściągnięto 18 raz(y) 29.5 KB

ID posta: 361959 Skopiuj do schowka
 
 
BrunO 
ExcelSpec



Pomógł: 126 razy
Posty: 551
Wysłany: 05-02-2019, 11:01   

Zapis kilometrażu z kropkami jest bardzo złym pomysłem. Excel widzi to jako tekst, więc nie licz na to, że coś ci z tego policzy....

Co masz na myśli pisząc "zawiera się w km z Lp tabela 2"?
pokrywać maja się km od z km od? km do z km do? Jedno i drugie?

Cytat:
Może być tak że kilka nazw będzie pasować do km dla Lp
I co wtedy?


Ogólnie pewnie do zastosowania będzie pewnie funkcja WYSZUKAJ.PIONOWO ew. PODAJ.POZYCJĘ, ale najpierw trzeba te dane do jakiegoś ładu doprowadzić... Z g... bata nie ukręcisz...
ID posta: 361982 Skopiuj do schowka
 
 
megg989
świeżak


Posty: 5
Wysłany: 05-02-2019, 11:31   

Kropki to zła naleciałośc z autocada
BrunO napisał/a:
Co masz na myśli pisząc "zawiera się w km z Lp tabela 2"?
pokrywać maja się km od z km od? km do z km do? Jedno i drugie?

Przykładowo mam w tab 2 - kom. A4 (Lp1) km od 275,073 km do 318,686
w tym km mieści się kom A26(tab 1) km od 290,207 km do 290,2017 -(Anna)
pokrywa się =obejmuje całościowo, na części, punktowo- jak w przykładzie powyżej

BrunO napisał/a:
Może być tak że kilka nazw będzie pasować do km dla Lp

kom A5(tab 2) km od -0,345 km do 30,604
w tym km mieści się kom A6 (tab 1 ) km od 9,992 km do 9,992 (Piotr)
i kom A13 km od 3,195-3,195 (Ewelina)

Nie wiem czy z tym się da coś zrobić bo tu jest wiele relacji
ID posta: 361986 Skopiuj do schowka
 
 
BrunO 
ExcelSpec



Pomógł: 126 razy
Posty: 551
Wysłany: 05-02-2019, 12:26   

Liczyłem, ze twój post uprości temat, a tu widzę tylko narastające komplikacje...
Jeśli to mają być "odcinki" zawarte w innych, to wyszukaj.pionowo odpada. Formuły tablicowe pewnie wchodziłyby w grę, ale w nich jestem mniej niż słaby, więc obleciałbym to makrem.


Kod:
Sub kilometry()

Dim w1 As Long, w2 As Long
Dim t1 As Worksheet, t2 As Worksheet
Dim str As String

Set t1 = Sheets("Tabela 1")
Set t2 = Sheets("Tabela 2")


For w2 = 4 To 19        'zakres wierszyw Tabeli 2
    For w1 = 2 To 28    'zakres wierszyw Tabeli 1
       
        If t2.Cells(w2, "B") <= t1.Cells(w1, "C") And t2.Cells(w2, "C") >= t1.Cells(w1, "D") Then
            If Len(str) > 0 Then str = str & Chr(10)
            str = str & t1.Cells(w1, "A") & " - " & t1.Cells(w1, "B") & " (" & t1.Cells(w1, "C") & "-" & t1.Cells(w1, "D") & ")"
        End If
       
    Next w1
   
    t2.Cells(w2, "D") = str
    str = ""
Next w2

End Sub



Tylko że najpierw trzeba zrobić porządek z danymi.
Rozumiem, że kropki należy zamienić na przecinki? Pierwotnie myślałem, ze robią za separator tysięcy... Bez kombinowania użyłem znajdź i zamień.

W kolumnę D wrzuciłem nie tylko Imię, ale wszystko co wynika z pasującego rekordu.

Mogą być kilometry ujemne? :shock:

przykład Kilometry.xlsm
Pobierz Plik ściągnięto 10 raz(y) 18.94 KB

ID posta: 361989 Skopiuj do schowka
 
 
megg989
świeżak


Posty: 5
Wysłany: 05-02-2019, 13:30   

Rewelacja :-) o to chodziło. A dałoby radę, żeby w kolumnie D wyświetlały się nazwy z zakresem danych które podałeś, tylko dla tego samego LP co w komórce A4 (np w D4 tylko Anna - 1 (290,207-290,207))?
W przypadku tego proj mogą być km ujemne :-)
ID posta: 361997 Skopiuj do schowka
 
 
BrunO 
ExcelSpec



Pomógł: 126 razy
Posty: 551
Wysłany: 05-02-2019, 13:44   

teoretycznie wystarczyłoby dorzucić jeden warunek do linijki sprawdzającej zawieranie się km
Kod:
If t2.Cells(w2, "B") <= t1.Cells(w1, "C") And t2.Cells(w2, "C") >= t1.Cells(w1, "D") And t2.Cells(w2, "A") = t1.Cells(w1, "B") Then

ale w LP. też leży jakość danych i raz jest tam liczba a raz tekst wyglądający jak liczba. Przekonwertowałem i coś tam wyszlo, ale przy tym dodatkowym warunku sporo wpisów zostało bez przyporządkowania.

przykład Kilometry.xlsm
Pobierz Plik ściągnięto 14 raz(y) 18.49 KB

ID posta: 361999 Skopiuj do schowka
 
 
megg989
świeżak


Posty: 5
Wysłany: 05-02-2019, 14:12   

Dziękuję za pomoc:-)
ID posta: 362002 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