ابايوسف قام بنشر ديسمبر 7, 2019 مشاركة قام بنشر ديسمبر 7, 2019 السلام عليكم رجائي معادلة مزدوجة لجلب الاسم والرقم في نفس الخانة معادلة مزدوجة.xlsx رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 7, 2019 مشاركة قام بنشر ديسمبر 7, 2019 وعليكم السلام-تفضل =IF(ISNUMBER(E3),VLOOKUP(E3,$A$2:$B$500,2,0),INDEX($A:$A,MATCH(E3,$B:$B,0))) معادلة مزدوجة1.xlsx 3 رابط هذا التعليق شارك More sharing options...
ابايوسف قام بنشر ديسمبر 7, 2019 الكاتب مشاركة قام بنشر ديسمبر 7, 2019 جزيت خيرا - مشكور - المعادلة شغالة - تسلم رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 7, 2019 مشاركة قام بنشر ديسمبر 7, 2019 يمكن استعمال هذا الكود Option Explicit Dim My_rgA As Range, My_rgB As Range Dim r% '++++++++++++++++++++++++++++++++++ Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Set My_rgA = Range("A2", Range("A1").End(4)) Set My_rgB = Range("B2", Range("B1").End(4)) If Target.Cells.Count = 1 Then Select Case Target.Address Case "$E$3": get_valB Case "$F$3": get_valA End Select End If Application.EnableEvents = True End Sub '++++++++++++++++++++++++++++++++++++++ Sub get_valB() If Application.CountIf(My_rgA, Range("E3")) Then r = My_rgA.Find(Range("E3"), lookat:=1).Row If r <> 0 Then Range("F3") = My_rgB.Cells(r - 1) Else Range("F3") = vbNullString End If End Sub '+++++++++++++++++++++++++++++++++++++ Sub get_valA() If Application.CountIf(My_rgB, Range("F3")) Then r = My_rgB.Find(Range("F3"), lookat:=1).Row If r <> 0 Then Range("E3") = My_rgA.Cells(r - 1) Else Range("E3") = vbNullString End If End Sub الملف مرفق Double_formula.xlsm 2 رابط هذا التعليق شارك More sharing options...
ابايوسف قام بنشر ديسمبر 8, 2019 الكاتب مشاركة قام بنشر ديسمبر 8, 2019 (معدل) ابداع - تسلم واذا كانت البيانات في شيت (السجل) والبحث في شيت اخر (البحث) اين يكون التعديل تم تعديل ديسمبر 8, 2019 بواسطه ابايوسف رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 8, 2019 أفضل إجابة مشاركة قام بنشر ديسمبر 8, 2019 في هذه الحالة شيت Source هي شيت المصدر و شيت Salim هي شيت النتيجة الكود اللازم Option Explicit Dim My_rgA As Range, My_rgB As Range Dim r% '++++++++++++++++++++++++++++++++++ Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Set My_rgA = Sheets("Source").Range("A2", Sheets("Source").Range("A1").End(4)) Set My_rgB = Sheets("Source").Range("B2", Sheets("Source").Range("B1").End(4)) If Target.Cells.Count = 1 Then Select Case Target.Address Case "$E$3": get_valB Case "$F$3": get_valA End Select End If Application.EnableEvents = True End Sub '++++++++++++++++++++++++++++++++++++++ Sub get_valB() If Application.CountIf(My_rgA, Range("E3")) Then r = My_rgA.Find(Range("E3"), lookat:=1).Row If r <> 0 Then Range("F3") = My_rgB.Cells(r - 1) Else Range("F3") = IIf(Range("E3") = "", "", "Not Found") End If End Sub '+++++++++++++++++++++++++++++++++++++ Sub get_valA() If Application.CountIf(My_rgB, Range("F3")) Then r = My_rgB.Find(Range("F3"), lookat:=1).Row If r <> 0 Then Range("E3") = My_rgA.Cells(r - 1) Else Range("E3") = IIf(Range("F3") = "", "", "Not Found") End If End Sub الملف الجديد Double_formula 2 Sheets.xlsm 2 رابط هذا التعليق شارك More sharing options...
ابايوسف قام بنشر ديسمبر 8, 2019 الكاتب مشاركة قام بنشر ديسمبر 8, 2019 جزيت خيرا تسلم 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.