آموزش كار با تابع hlookup - بصورت عادي ، آرايه اي و در vb

[misammisam]

1 : نحوه كار ساده با تابع HLOOKUP

1- 1 : بانك اطلاعاتي مورد نظر


1- 2 : شروع كار با تابع HLOOKUP و مشخص كردن ستون مورد جستجو




1- 3 : مشخص كردن محدوده بانك اطلاعاتي در HLOOKUP


1- 4 : مشخص كردن رديف مورد جستجو


1- 5 : در صورت FALSE بودن گزينه پنجم ، مقدار دقيق برگردانده ميشود


1- 6 : نتيجه جستجو با HLOOKUP




2 : چند مثال كاربردي در HLOOKUP

2 - 1 : مثال اول - جستجوي ساده



2 - 2 :






2 - 3 : مثال دوم - جستجوي ستون خاص با كلمه اول ستون به كمك كاراكتر *







3 : HLOOKUP در ويژوال بيسيك

3 - 1 : بانك اطلاعاتي مورد نظر


3 - 2 : بطور مثال كد زير را در VB به يك دكمه اختصاص بدهيد

Sub H_LOOKUP()  On Error GoTo ErrorHandler  Dim student As String  Dim Result As String  student = InputBox("Enter the student Name:")  If Len(student) > 0 Then    Result = "Science - " & Application.WorksheetFunction.HLookup(student, ActiveSheet.Range("A1:I5"), 2, False)    Result = Result & vbNewLine & "Maths - " & Application.WorksheetFunction.HLookup(student, ActiveSheet.Range("A1:I5"), 3, False)    Result = Result & vbNewLine & "English - " & Application.WorksheetFunction.HLookup(student, ActiveSheet.Range("A1:I5"), 4, False)    Result = Result & vbNewLine & "History - " & Application.WorksheetFunction.HLookup(student, ActiveSheet.Range("A1:I5"), 5, False)    MsgBox student & " has got following Marks:" & vbNewLine & Result  End If  Exit Sub  ErrorHandler:  If Err.Number = 1004 Then    MsgBox "Student Not found in the records!"  Else    MsgBox "Some Error Occurred"  End If  End Sub 

3 - 3 : نتيجه در يك MsgBox به نمايش در ميايد




4 :* جستجوي ناموفق در HLOOKUP و كاربرد تابع ISNA در HLOOKUP



4 - 1 : در صورت عدم موفقيت در HLOOKUP با پيغام N/A# مواجه خواهيد شد






4 - 2 : براي جلو گيري از نمايش اين پيغام و دادن پيغام مورد نظر خودمان از تابع ISNA ميتوان به صورت زير استفاده كرد






5 : استفاده از فرمولهاي آرايه اي HLOOKUP در اكسل








منبع سايت : Tricking Excel The Smarter Way !