Wéi packen ech e Fallschierm richteg?
Virdeel. Editioun 2, iwwerschafft.
Loosst eis soen, mir hunn déi folgend Bestellungstabell:
Mir mussen zum Beispill wëssen, wat de Betrag vun der drëtter Uerdnung vum Ivanov war oder wéini Petrov säin zweeten Deal ausgefouert huet. Déi agebaute VLOOKUP Funktioun kann nëmmen no der éischter Optriede vum Familljennumm an der Tabell sichen a wäert eis net hëllefen. Froen wéi "Wien war de Manager vun der Bestellungsnummer 10256?" wäert och onbeäntwert bleiwen, tk. den agebaute VLOOKUP ass net fäeg Wäerter vu Spalten op der lénker Säit vun der Sich zréckzebréngen.
Béid vun dëse Probleemer ginn an engem Schlag geléist - loosst eis eis eege Funktioun schreiwen, déi net nëmmen no der éischter, mee am allgemengen no der Nth Optriede kuckt. Ausserdeem wäert et fäeg sinn Resultater an all Kolonnen ze sichen an ze produzéieren. Loosst eis et nennen, soen, VLOOKUP2.
Öffnen de Visual Basic Editor andeems Dir ALT + F11 dréckt oder aus dem Menü auswielen Service – Macro – Visual Basic Editor (Tools - Macro - Visual Basic Editor), en neie Modul setzen (Menu Insert - Modul) a kopéiert den Text vun dëser Funktioun dohinner:
Funktioun VLOOKUP2(Table As Variant, SearchColumnNum As Long, SearchValue As Variant, _ N As Long, ResultColumnNum As Long) Dim i As Long, iCount As Long Select Case TypeName(Table) Case "Range" For i = 1 To Table.Rows .Count If Table.Cells(i, SearchColumnNum) = SearchValue Then iCount = iCount + 1 End If If iCount = N Then VLOOKUP2 = Table.Cells(i, ResultColumnNum) Exit For End If Next i Case "Variant()" Fir i = 1 Fir UBound(Table) Wann Table(i, SearchColumnNum) = SearchValue Dann iCount = iCount + 1 Wann iCount = N Dann VLOOKUP2 = Table(i, ResultColumnNum) Ausfahrt Fir Enn Wann Next i End Wielt End Funktioun
Den Visual Basic Editor zoumaachen an zréck op Excel.
Elo duerch Insert - Funktioun (Insert - Funktioun) an der Kategorie Benotzerdefinéiert (Benotzerdefinéiert) Dir kënnt eis VLOOKUP2 Funktioun fannen a se benotzen. D'Funktioun Syntax ass wéi follegt:
=VLOOKUP2(Table; number_of_column_wou_mir sichen; lookup_value; N; number_of_column_from_to_get_value)
Elo sinn d'Aschränkungen vun der Standardfunktioun net en Hindernis fir eis:
PS E spezielle Merci un The_Prist fir d'Verbesserung vun der Funktioun sou datt et an zougemaachte Bicher ka sichen.
- Fannen an ersetzen Daten vun enger Tabell op en aneren mat der VLOOKUP Funktioun
- "Lénks VLOOKUP" mat den INDEX a MATCH Funktiounen