วิธี vlookup และคืนค่าที่ตรงกันพร้อมความคิดเห็นของเซลล์
เมื่อคุณใช้ฟังก์ชัน Vlookup เพื่อส่งคืนค่าที่ตรงกันมันจะดึงเฉพาะค่าที่ไม่มีการจัดรูปแบบเช่นสีเติมแบบอักษรหรือความคิดเห็นเป็นต้น แต่บางครั้งคุณอาจต้อง vlookup และส่งคืนค่าที่ตรงกันรวมถึงความคิดเห็นด้วย เพื่อรับผลภาพหน้าจอต่อไปนี้ คุณจะแก้งานนี้ใน Excel ได้อย่างไร
Vlookup และคืนค่าการจับคู่พร้อมความคิดเห็นของเซลล์โดยใช้รหัส VBA
Vlookup และคืนค่าการจับคู่พร้อมความคิดเห็นของเซลล์โดยใช้รหัส VBA
รหัส VBA ด้านล่างอาจช่วยให้คุณ vlookup และส่งคืนค่าที่ตรงกันพร้อมกับความคิดเห็นโปรดทำดังนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: Vlookup และส่งคืนค่าที่ตรงกันพร้อมความคิดเห็นของเซลล์:
Function VlookupComment(LookVal As Variant, FTable As Range, FColumn As Long, FType As Long) As Variant
'Updateby Extendoffice
Application.Volatile
Dim xRet As Variant 'could be an error
Dim xCell As Range
xRet = Application.Match(LookVal, FTable.Columns(1), FType)
If IsError(xRet) Then
VlookupComment = "Not Found"
Else
Set xCell = FTable.Columns(FColumn).Cells(1)(xRet)
VlookupComment = xCell.Value
With Application.Caller
If Not .Comment Is Nothing Then
.Comment.Delete
End If
If Not xCell.Comment Is Nothing Then
.AddComment xCell.Comment.Text
End If
End With
End If
End Function
3. จากนั้นบันทึกรหัสและปิดหน้าต่างรหัสป้อนสูตรนี้: = vlookupcomment (H2, A2: C10,3, FALSE) ลงในเซลล์ว่างเพื่อค้นหาผลลัพธ์แล้วกด เข้าสู่ คีย์ค่าที่ตรงกันและความคิดเห็นจะถูกส่งกลับในครั้งเดียวดูภาพหน้าจอ:
หมายเหตุ: ในสูตรข้างต้น H2 คือค่าการค้นหาที่คุณต้องการส่งคืนค่าที่เกี่ยวข้อง A2: C10 คือตารางข้อมูลที่คุณต้องการใช้หมายเลข 3 คือหมายเลขคอลัมน์ที่มีค่าที่ตรงกันที่คุณต้องการส่งคืน
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!