Paieškos funkcija VBA / Excel

Bandau sukurti makrokomandą, kuri ieško vertės duomenų bazėje ir kopijuoja duomenis į dvi stulpelius po nuorodos.

pavyzdys:

duomenų bazė:

PS85

ps86

ps77

ps52

...

• Naudotojoje „drop“ meniu su reikšme „ps86“, kitas su numeriu „5“
• Pateikimo mygtukas
• kai spusteliu mygtuką, kurį norėčiau gauti į duomenų bazę:

PS85

ps86 5

ps77

ps52

...

Sprendimas

Išbandykite šį kodą:

„ComboBox1“ - „droplist“ su reikšme (ps85, ps86 ...)

ComboBox2 = Kiekio sąrašas

CommandButton1 = pateikimo mygtukas

Pritaikykite šį kodą:

 Privatus „Sub CommandButton1_Click“ („Dim“) „RngTrouve“ kaip diapazonas Jei „ComboBox1“ „“ ir „ComboBox2“ „“ tada su lapais (NomDeTaFeuil). MsgBox "valeur inexistante" Else RngTrouve.Offset (0, 2) .Value = ComboBox2.Value pabaiga Jei baigiasi pabaiga Jei rinkinys RngTrouve = Nieko pabaigos sub 

Ačiū pijaku už šį patarimą.