بن خليفه قام بنشر أبريل 8, 2016 مشاركة قام بنشر أبريل 8, 2016 المطلوب كود VBA يقوم بعمل الدالة IFERROR(IF(ISERROR(MATCH($E$2,$C:$C,0)),INDEX($C:$C,MATCH("*"&$E$2&"*",$B:$B,0)),INDEX($B:$B,MATCH($E$2,$C:$C,0)))," ") المدخل في الخلية E5 من العمود B ما يقابله العمود C والعكس مع العلم أنه يمكن كتابة جزء من العمود B يعطي الناتج الصحيح في العمود C ويمكن كتابته حروف كبيرة أو صغيرة Match.rar رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 8, 2016 مشاركة قام بنشر أبريل 8, 2016 الكود المطلوب Sub My_formula() Range("e3").FormulaR1C1 = "=IFERROR(IF(ISERROR(MATCH(R2C5,C3,0)),INDEX(C3,MATCH(""*""&R2C5&""*"",C2,0)),INDEX(C2,MATCH(R2C5,C3,0))),"" "")" End Sub رابط هذا التعليق شارك More sharing options...
بن خليفه قام بنشر أبريل 8, 2016 الكاتب مشاركة قام بنشر أبريل 8, 2016 38 دقائق مضت, سليم حاصبيا said: الكود المطلوب Sub My_formula() Range("e3").FormulaR1C1 = "=IFERROR(IF(ISERROR(MATCH(R2C5,C3,0)),INDEX(C3,MATCH(""*""&R2C5&""*"",C2,0)),INDEX(C2,MATCH(R2C5,C3,0))),"" "")" End Sub العمل لدي في أكثر من شيت .. على أكثر من عمل في اليوزر .. أنا هنا كيف أحدد الشيت ؟؟ رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر أبريل 8, 2016 مشاركة قام بنشر أبريل 8, 2016 37 دقائق مضت, بن خليفه said: العمل لدي في أكثر من شيت .. على أكثر من عمل في اليوزر .. أنا هنا كيف أحدد الشيت ؟؟ ضع الكود بهذا الشكل Sub My_formula() For i = 1 To Sheets.Count Sheets(i).Range("e3").FormulaR1C1 = "=IFERROR(IF(ISERROR(MATCH(R2C5,C3,0)),INDEX(C3,MATCH(""*""&R2C5&""*"",C2,0)),INDEX(C2,MATCH(R2C5,C3,0))),"" "")" Next End Sub رابط هذا التعليق شارك More sharing options...
بن خليفه قام بنشر أبريل 8, 2016 الكاتب مشاركة قام بنشر أبريل 8, 2016 48 دقائق مضت, سليم حاصبيا said: ضع الكود بهذا الشكل Sub My_formula() For i = 1 To Sheets.Count Sheets(i).Range("e3").FormulaR1C1 = "=IFERROR(IF(ISERROR(MATCH(R2C5,C3,0)),INDEX(C3,MATCH(""*""&R2C5&""*"",C2,0)),INDEX(C2,MATCH(R2C5,C3,0))),"" "")" Next End Sub أشكرك لكن مو هذا اللي أقصده .. الي أحتاجه موجود في المرفق واللي أحتاجه في يوزرفورم ياخذ البيانات من شيت معين ويطبق العملية على اليوزر فورم رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر أبريل 12, 2016 مشاركة قام بنشر أبريل 12, 2016 تفضل اخي الكريم لعله المطلوب اختر البحث بمعلومية الB or C Match.rar 1 رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر أبريل 12, 2016 مشاركة قام بنشر أبريل 12, 2016 او هذا المرفق البحث بمعلومية الاتنين في وقت واحد Match.rar رابط هذا التعليق شارك More sharing options...
بن خليفه قام بنشر أبريل 13, 2016 الكاتب مشاركة قام بنشر أبريل 13, 2016 22 ساعات مضت, ياسر العربى said: تفضل اخي الكريم لعله المطلوب اختر البحث بمعلومية الB or C Match.rar أشكرك يا عسل ومنكم نتعلم رابط هذا التعليق شارك More sharing options...
بن خليفه قام بنشر أبريل 15, 2016 الكاتب مشاركة قام بنشر أبريل 15, 2016 في 4/12/2016 at 12:08, ياسر العربى said: تفضل اخي الكريم لعله المطلوب اختر البحث بمعلومية الB or C وين أحط اسم الشيت في كود اليوزرفورم إذا كنت أستخدم أكثر من شيت Match.rar رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر أبريل 15, 2016 مشاركة قام بنشر أبريل 15, 2016 تفضل شوف المرفق دا Match.rar رابط هذا التعليق شارك More sharing options...
بن خليفه قام بنشر أبريل 17, 2016 الكاتب مشاركة قام بنشر أبريل 17, 2016 في 4/15/2016 at 20:35, ياسر العربى said: تفضل شوف المرفق دا Match.rar عزيزي وأستاذي ياسر .. أنا أبغا كود بدون ما أظهره في اليوزر فورم يعني أحدد الداتا من شيت 3 مثلا وأحدد الرينج رابط هذا التعليق شارك More sharing options...
ياسر العربى قام بنشر أبريل 18, 2016 مشاركة قام بنشر أبريل 18, 2016 تفضل اخي الكريم هذا الكود ضعه مكان الكود الاخر Private Sub TextBox1_Change() On Error Resume Next TextBox2.Text = Application.WorksheetFunction.Index(ZZZ.Range("c2:c11"), Application.WorksheetFunction.Match("*" & TextBox1.Text & "*", ZZZ.Range("b2:b11"), 0), 1) On Error Resume Next TextBox2.Text = Application.WorksheetFunction.Index(ZZZ.Range("b2:b11"), Application.WorksheetFunction.Match(Val(TextBox1.Text), ZZZ.Range("c2:c11"), 0), 1) End Sub تستطيع تغيير الحروف ZZZ بالكود الى الشيت الذي تريد البحث فيه لعله المطلوب رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان