Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - VlookUp jako makro w VBA

Gurallek · Świeżak Wersja: Win Office 365 Posty: 5

Cześć,

szukałem na forum ale niestety nigdzie nie mogłem znaleźć odpowiedzi na moje pytanie.

Chciałbym stworzyć makro działające jak vlookup. Na samym początku makro pyta : zaznacz co chcesz szukać - następnie my zaznaczamy zakres jedno-kolumnowy. następnie makro pyta : gdzie chcesz szukać - następnie zaznaczamy zakres, w którym chcemy szukać. Następnie makro pyta z której komórki chcesz brać dane : my wpisujemy numer kolumny. Doszedłem do etapu gdzie makro nas pyta gdzie chcemy szukać i niestety nie potrafię sobie z tym poradzić, nie umiem kodzie vlookup odwołać się do zakresu, który zaznaczyłem. Rzućcie okiem na mój kod :

Kod:

Dim tbl As Range
Dim tbl2 As Range
Dim tbl3 As Range
Dim n As Integer
Dim a As Integer
Dim b As Variant

Set tbl = Application.InputBox(prompt:="Zaznacz czego chcesz szukac", _
Title:="Dane wejściowe", _
Type:=8)

If tbl.Columns.Count > 1 Then
MsgBox prompt:="Zaznacz po czym chcesz szukac", _
Title:="bład", _
Buttons:=vbOKOnly + vbCritical
End If

Set tbl2 = Application.InputBox(prompt:="Zaznacz gdzie chcesz szukać", _
Title:="Dane wejściowe", _
Type:=8)

Set tbl3 = Application.InputBox(prompt:="Zaznacz pierwsza komórke dla wyniku", _
Title:="Dane wejściowe", _
Type:=8)

'a = tbl.Rows.Count

' On Error Resume Next

'For n = 0 To a

b = Chr(34)

Range("P2").Value = "=VLOOKUP(" & b & tbl.Cells(1, 1).Value & b & ", tbl2.range,2,0)"

'Next n

byłbym bardzo wdzięczny za jakieś wskazówki.

oczywiście na samym końcu chciałbym wrzucić to w pętle ale póki co nie potrafię poradzić sobie z jedną komórka :(

dzięki :)

wczesny · Wysłany: 19-02-2021, 14:12

Daj załacznik, to będzie szybciej.
Ewentualnie spróbuj: https://docs.microsoft.com/en-us/office/vba/api/excel.worksheetfunction.vlookup

Kod:

Range("P2").Value = Application.Vlookup()

Skoro tbl jest zakresem, to po co piszesz tbl.range.

Rafał B. · Wysłany: 19-02-2021, 14:19

Kod:

Application.Vlookup != Application.WorksheetFunction.Vlookup

Te dwa przykłady różnią się wiązaniem: warto dodać, że w przypadku błędu pierwsza funkcja zwraca wartość (typ - błąd), natomiast druga wykonuje Err.Raise.

wczesny · Wysłany: 19-02-2021, 14:33

Rafał, czytałem watek na forum :)
To i to rozwiazanie zadziała, a obsługi błędów kolega jeszcze nie ma.

Gurallek · Świeżak Wersja: Win Office 365 Posty: 5

Hej Panowie,

bardzo dziekuje za szybka odpowiedz. W zalaczniku przykladowa tabela oraz kod.

jeszcze raz dzieki za pomoc!

Test_1.xlsm

Pobierz Plik ściągnięto 4 raz(y) 16.13 KB

wczesny · Wysłany: 19-02-2021, 15:22

Co konkretnie chcesz znaleźć? Wiek danej osoby?
Bo szukana to tekst a nie zakres.
Sprubuj tak:

Kod:

Range("P2").Value = Application.VLookup(tbl, tbl2, 1, 0)

Pamiętaj, że tbl - wybierasz jedną wartość, tbl2 - Zaznaczasz całą tabelę.

Gurallek · Świeżak Wersja: Win Office 365 Posty: 5

@Wczesany

bardzo mi pomogłeś - wystarczyło dodac application i sprawa sie rozwiazała :)

dziekuje Ci bardzo!!!

udanego dnia

wczesny · Wysłany: 19-02-2021, 15:49

To tak nie do końca.
Ty dodawałeś formułę w arkuszu, a ja używając funkcji arkuszowej dodałem wartość, która ta funkcja zwraca.

Gurallek · Świeżak Wersja: Win Office 365 Posty: 5

@wczesany

a rzucilbys okiem jaki tutaj blad robie :

On Error Resume Next

Kod:

a = tbl.Rows.Count

On Error Resume Next

For n = 1 To a

tbl4.Offset(n - 1, 0).Value = Application.VLookup(tbl.Cells(n, 1).Value, tbl2.Cells(n, 1).Value, tbl3, 0)

Next n

Wrzucam to w petle tak by zrobic ta sama czynnosc dla kazdej komórki z wybranego zakresu ale caly czas mi wyrzuca arg ;(

wczesny · Wysłany: 19-02-2021, 17:30

Poczytaj o funkcji Vlookup i sprawdź jakie argumenty przyjmuje. Link masz powyżej.

Gurallek · Świeżak Wersja: Win Office 365 Posty: 5

Wszystko działa. Jeszcze raz dzięki !