กล่องรายการ: แสดงหนึ่งรายการส่งคืนรายการจากคอลัมน์ที่อยู่ติดกันในตาราง

เรามีสเปรดชีตที่เรากรอกข้อมูลการเรียกเก็บเงินแล้วอัปโหลดไปยังโฮสต์ผ่าน FTP คอลัมน์แรกต้องมีบัญชีลูกค้า NUMBER สิ่งที่ฉันต้องการจะทำคือให้รายการแบบหล่นลงของชื่อลูกค้า A-Z (ฉันมีตารางชื่อและหมายเลข 2 คอลัมน์) เมื่อพวกเขาเลือกชื่อฉันต้องการใส่หมายเลขลูกค้าลงในเซลล์ไม่ใช่ชื่อ

ดร็อปดาวน์: Aname Bname Cname เมื่อเลือกส่งคืนและเติมเซลล์ด้วยหมายเลขบัญชี 111111,222222,333333 ฉันสามารถทำได้ง่ายพอที่จะใช้ vlookup แต่ต้องใช้คอลัมน์เพิ่มเติม ฉันต้องการแยกหน้าที่สองครั้งออกจากคอลัมน์แรก

ความคิดใด ๆ

พิจารณาภาพหน้าจอต่อไปนี้:

เมื่อเลือกชื่อลูกค้าแล้วแมโครต่อไปนี้จะแทนที่ชื่อด้วยหมายเลขลูกค้าจากตารางการค้นหาในคอลัมน์ D และ E ทันทีรายการแบบหล่นลงจะเก็บรายชื่อลูกค้า ในสกรีนช็อตลูกค้า C ได้ถูกเลือกก่อนและมาโครแทนที่ชื่อด้วยหมายเลข ขณะนี้ดร็อปดาวน์ยังสามารถใช้เพื่อเลือกลูกค้ารายอื่น

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LookupTable As Range
Set LookupTable = ThisWorkbook.Worksheets("Sheet1").Range("D2:E100")
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        Application.EnableEvents = False
        Target = Application.WorksheetFunction.VLookup(Target.Value, LookupTable, 2, False)
        Application.EnableEvents = True
    End If
End Sub

คลิกขวาที่แท็บแผ่นงานเลือก "ดูรหัส" และวางรหัสลงในหน้าต่างรหัส ปรับการอ้างอิงให้เหมาะกับสมุดงานของคุณ

อย่าลืมบันทึกไฟล์เป็นสมุดงานที่เปิดใช้งานแมโคร