snasui.com ยินดีต้อนรับ ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ ระบุ Version ของ Excel
Sub vl()
Dim e As Range
Dim Lookup_Range As Range
Dim r As String
Set e = Range("a2:a4")
Set Lookup_Range = Range("a2:b4")
r = Application.WorksheetFunction.VLookup(e, Lookup_Range, 2, False)
End Sub
Sub vl()
Dim e As Range
Dim Lookup_Range As Range
Dim r As String
Set e = Sheets(1).Range("a2:a4")
Set Lookup_Range = Sheets(1).Range("a2:b4")
r = Application.WorksheetFunction.VLookup(e, Lookup_Range, 2, False)
End Sub
You do not have the required permissions to view the files attached to this post.
Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim e As Range
Set e = Sheet2.Range("a1:a4")
Set Lookup_Range = Sheet1.Range("a2:b4")
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, e) Is Nothing Then
If Target.Value <> "" Then
Application.EnableEvents = False
Target.Value = Application.WorksheetFunction.VLookup(Target.Value, Lookup_Range, 2, False)
Application.EnableEvents = True
End If
End If
End Sub
If Not Intersect(Target, e) Is Nothing Then
If Target.Value <> "" Then
Application.EnableEvents = False
Target.Value = Application.WorksheetFunction.VLookup(Target.Value, Lookup_Range, 2, False)
Application.EnableEvents = True
End If
End If