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

Collapse
این تاپیک قفل است.
X
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • ظهور 313

    • 2017/01/20
    • 244
    #1

    [حل شده] جستجو و فراخوانی اطلاعات با دو شرط دزر دو محدوده مجزا

    سلام و عرض ادب خدمت همه اساتید محترم
    برای جستجو و فراخوانی اطلاعات از این فرمول استفاده میكنم و این مشكلی نداره، اما می‌خوام ببینم چطور میشه، یك شرط دیگه در یك رنج دیگه بهش اضافه كنم. الان داره فقط توی رنج AA دنبال شرط میگرده، میشه یه محدوده دیگه هم بهش داد؟
    یعنی بگیم اگر محدوده A:A مساوی بود با فلان مقدار و محدوده B:B هم مساوی بود با فلان مقدار، حالا برو و آفست فلانش رو برگردون؟

    Dim B As Range
    Dim find As Boolean
    find = False
    For Each B In Sheets("ESTEGHRAR").Range("AA13:AA100000")
    If B = ListBox1.Value And B <> "" Then


    UserForm1_ESTEGHRAR_SABT.TextBox20.Value = B.Offset(0, 13)
    UserForm1_ESTEGHRAR_SABT.TextBox2.Value = B.Offset(0, 16)

    UserForm1_ESTEGHRAR_SABT.Show
    Exit Sub
    End If


    Next
    End Sub
    Last edited by ظهور 313; 2018/03/10, 14:35.
    برچسب ها: هیچ‌کدام
    • ظهور 313

      • 2017/01/20
      • 244
      #2
      كسی نمیتونه كمك كنه
      اساتید لطفا راهنمایی بفرمایند

        کامنت

        • misammisam
          مدير تالار حسابداری و اکسل

          • 2014/04/04
          • 892
          • 64.00
          #3
          سلام
          خوب محدودتونو نام گذاری کنید و بجای این قسمت :
          کد PHP:
          Sheets("ESTEGHRAR").Range("AA13:AA100000") 
          نام اون محدوده رو بزارید تو فرمولتون .
          [CENTER][SIGPIC][/SIGPIC]
          [/CENTER]
          [CENTER][FONT=Tahoma][FONT=Tahoma][FONT=Tahoma][FONT=Tahoma][FONT=Tahoma][INDENT]
          [CENTER][SIZE=3][URL="https://affstat.adro.co/click/adf04053-f8a6-439a-9ac4-e6a7e6f4b455"][B]اينجا كليك نكنيا ![/B][/URL][/SIZE]
          [/CENTER]
          [/INDENT]

          [/FONT][/FONT][/FONT][/FONT][/FONT]
          [/CENTER]

            کامنت

            • ظهور 313

              • 2017/01/20
              • 244
              #4
              استاد متوجه نشدم
              باید دو تا محدوده داشته باشم
              یعنی اینطوری كه اگه ستون a مساوی با فلان مقدار بود و ستون b هم مساوی با یه مقدار دیگه، اون وقت آفستش رو برگردون
              امكانش هست كد رو كامل برام بزارید؟
              اگه جوابم رو زودتر بدید ممنون میشم
              برای این نیازم، دارم از فرمول‌های خود اكسل استفاده میكنم كه سرعت فایل رو خیلی میگیره.
              Last edited by ظهور 313; 2018/03/12, 00:49.

                کامنت

                • iranweld

                  • 2015/03/29
                  • 3341
                  #5
                  با سلام

                  و کسب اجازه از مدير تالار حسابداری و اکسل

                  فایل پیوست را بررسی بفرمایید
                  فایل های پیوست شده

                    کامنت

                    • ظهور 313

                      • 2017/01/20
                      • 244
                      #6
                      نوشته اصلی توسط iranweld
                      با سلام

                      و کسب اجازه از مدير تالار حسابداری و اکسل

                      فایل پیوست را بررسی بفرمایید

                      ممنون دوست عزیز، اما این چیزی نبود كه میخواستم
                      كد شما الان یك شرط رو در دو محدوده مورد بررسی قرار میده، اما من میخواستم دو شرط برای دو محدوده داشته باشه
                      با یه كم فكر تونستم جواب رو پیدا كنم، كد رو به صورت كامل برای استفاده دوستان قرار میدم
                      Private Sub CommandButton1_Click()
                      'فراخواني اطلاعات با دو شرط در دو محدوده
                      Dim A As Range
                      Dim find As Boolean
                      find = False
                      For Each A In Sheets("ESTEGHRAR").Range("AA13:AA100000")
                      If A <> "" And TextBox1.Text = A.Offset(0, 0) And TextBox2.Text = A.Offset(0, 1) Then

                      TextBox3.Value = A.Offset(0, -3)


                      find = True
                      Exit Sub
                      End If
                      Next A
                      End Sub

                        کامنت

                        قبلی template بعدی
                        چند لحظه..