نویسنده موضوع: استفاده از vlookup  (دفعات بازدید: 170 بار)

saeid49

  • کاربر تازه‌وارد
  • *
  • ارسال: 13
  • جمع امتیازها: +1/-0
استفاده از vlookup
« : 27 آذر 1399 - 18:29 »
با سلام
در یک فیلد برای دستور vlookup  هم عدد داریم هم کد حروفی  میخواستم دستور vlookup   را برای  دو نمونه فعال کنم  لطفا راهنمایی کنید  در حال حاضر  یا برای  عدد یا برای حروف فقط  فعال  میشه ولی نمیتونم برای  دو حالت فعال کنم
لطفا راهنمایی کنید

lamp

دانلود فهرست + فصل اول کتاب توابع و فرمول نویسی اکسل

خبر: کامل ترین کتاب توابع و فرمول نویسی در اکسل ترجمه تیم فرساران


majid_mx4

  • مدیران انجمن
  • *
  • ارسال: 1963
  • جمع امتیازها: +790/-7
پاسخ : استفاده از vlookup
« پاسخ #1 : 28 آذر 1399 - 01:29 »
با سلام

لطفا فایل ضمیمه را بررسی نمایید.



موفق باشید میر

saeid49

  • کاربر تازه‌وارد
  • *
  • ارسال: 13
  • جمع امتیازها: +1/-0
پاسخ : استفاده از vlookup
« پاسخ #2 : 28 آذر 1399 - 20:02 »
با سلام

اگر بخواهم با یوزر فرمی  از شیت دیگری  اطلاعات را جستجو کنم  ایراد دارد .

لطفا راهنمایی کنید 

majid_mx4

  • مدیران انجمن
  • *
  • ارسال: 1963
  • جمع امتیازها: +790/-7
پاسخ : استفاده از vlookup
« پاسخ #3 : 28 آذر 1399 - 20:50 »
با سلام

لطفا دستورات زیر را جایگزین دستورات قبلی کنید.

Private Sub text1_Change()

If text1.Value = "" Then
    text2.Value = ""
    TextBox1.Value = ""
End If


Dim FirstAddress As String
    Dim MySearch As Variant
    Dim myColor As Variant
    Dim Rng As Range
    Dim I As Long

    MySearch = Array(text1)
    With Worksheets("Asli").Range("A1:C100")

        .Interior.ColorIndex = xlColorIndexNone

        For I = LBound(MySearch) To UBound(MySearch)

            Set Rng = .Find(What:=MySearch(I), _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlFormulas, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)

            If Not Rng Is Nothing Then
                FirstAddress = Rng.Address
                Do
                   
                    Set Rng = .FindNext(Rng)
                   
                Loop While Not Rng Is Nothing And Rng.Address <> FirstAddress
            End If
        Next I
    End With
   
   text2.Text = Worksheets("Asli").Range(Rng.Address).Offset(0, 1)
  TextBox1.Text = Worksheets("Asli").Range(Rng.Address).Offset(0, 2)


10:


End Sub

پایدار باشید میر