ฟังก์ชั่นการค้นหาใน VBA / Excel
ฉันพยายามสร้างแมโครที่ค้นหาค่าในฐานข้อมูลและคัดลอกข้อมูลในสองคอลัมน์หลังจากการอ้างอิง
ตัวอย่าง:
ฐานข้อมูล:
PS85
ps86
ps77
ps52
...
- ในรูปแบบผู้ใช้เมนูดร็อปที่มีค่า "ps86" และอื่น ๆ ที่มีหมายเลข "5"
- ปุ่มส่ง
- เมื่อฉันคลิกปุ่มฉันจะได้รับในฐานข้อมูล:
PS85
ps86 5
ps77
ps52
...
สารละลาย
ลองรหัสนี้:
ComboBox1 = ผู้สนับสนุนที่มีค่า (ps85, ps86 ... )
ComboBox2 = รายการปริมาณ
CommandButton1 = ปุ่มส่ง
ปรับรหัสต่อไปนี้:
Private Sub CommandButton1_Click () Dim RngTrouve เป็น Range หาก ComboBox1 "" และ ComboBox2 "" แล้วด้วย Sheets (NomDeTaFeuil). คอลัมน์ (1) ตั้งค่า RngTrouve = .Cells.Find (ComboBox1.Value มองหา: = xlWhole) MsgBox "valeur inexistante" Else RngTrouve.Offset (0, 2) .Value = ComboBox2.Value End ถ้าจบด้วย End หาก Set ด้วย RngTrouve = ไม่มี End Sub
ขอบคุณ pijaku สำหรับคำแนะนำนี้