Λειτουργία αναζήτησης σε VBA / Excel

Προσπαθώ να κάνω μια μακροεντολή που αναζητά μια τιμή σε μια βάση δεδομένων και να αντιγράφει τα δεδομένα σε δύο στήλες μετά την αναφορά.

παράδειγμα:

βάση δεδομένων:

PS85

ps86

ps77

ps52

...

• Σε μια φόρμα χρήστη, ένα μενού με τιμή "ps86", ένα άλλο με τον αριθμό "5"
• Ένα κουμπί υποβολής
• όταν κάνω κλικ στο κουμπί θα έμπαινα στη βάση δεδομένων:

PS85

ps86 5

ps77

ps52

...

Λύση

Δοκιμάστε αυτόν τον κωδικό:

ComboBox1 = droplist με τιμή (ps85, ps86 ...)

ComboBox2 = Λίστα ποσοτήτων

CommandButton1 = Το κουμπί υποβολής

Προσαρμόστε τον ακόλουθο κώδικα:

 (1) Ρυθμίστε το RngTrouve = .Cells.Find (ComboBox1.Value, lookat: = xlWhole) Εάν το RngTrouve δεν είναι τίποτα τότε MsgBox "valeur inexistante" Else RngTrouve.Offset (0, 2) .Value = Έξοδος ComboBox2.Value Εάν τελειώσει με το τέλος Εάν ορίσετε RngTrouve = Τίποτα End End 

Χάρη στο pijaku για αυτή την άκρη.