أكاديمية الصقر للتدريب

لوحة التميز الأسبوعي
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
العضو المتميز المشرف المتميز المراقب المتميز المدير المتميز الموضوع المتميز القسم المتميز
khaled alborene مجدى يونس-- لا تميز خلال هذه الفترة YasserKhalil تصدير كل الجداول في اكسل كصور في مجلد يتم اختياره اكسيل اسئله واجابات


اعلان هنا
أكاديمية الصقر للتدريب
أعلن هنا
أعلن هنا
صفحتنا على الفيس بوك
أعلن هنا



أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





كود بحث عن رينج في بيانات أخرى وبشرط

السلام عليكم ورحمة الله وبركاته اساتذتنا الافاضل تم تبسيط المطلوب وارجو افادتي جزاكم الله خيرا المطلوب هنا بال ..



04-11-2018 09:12 مساء
Abo Sohaib
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-11-2017
رقم العضوية : 1397
المشاركات : 104
الجنس : ذكر
تاريخ الميلاد : 1-7-1985
يتابعهم : 13
يتابعونه : 1
قوة السمعة : 212
الاعجاب : 4
 offline 

السلام عليكم ورحمة الله وبركاته اساتذتنا الافاضل تم تبسيط المطلوب وارجو افادتي جزاكم الله خيرا    
    
 المطلوب هنا بالملف 
البحث عن قيم  في
رينج محدد  ، نبحث عنها في شيت معين وان وجدت يتم مسح محتويات خلية معينه

لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
 
  بحث بشرط.rar   تحميل rar مرات التحميل :(6)
الحجم :(22.061) KB








04-11-2018 10:57 مساء
مشاهدة مشاركة منفردة [1]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1357
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 3
يتابعونه : 71
قوة السمعة : 8423
الاعجاب : 10
 offline 
look/images/icons/i1.gif كود بحث عن رينج في بيانات أخرى وبشرط
استخدم الكود التالى داخل ورقة العمل Search عله يفى بالغرض
Sub test()
Dim rw&, lr&
lr = Sheet2.Cells(Rows.Count, 1).End(3).Row
On Error Resume Next
rw = Evaluate("MATCH(A2&B2&C2,JurnalData!A2:A" & lr & "&JurnalData!D2:D" & lr & "&JurnalData!J2:J" & lr & ",0)") + 1
    If rw <> 0 And Sheet2.Cells(rw, "Q").Value = "غير مرحل لسماك" Then
        Sheet2.Cells(rw, "Q").Value = ""
        Range("A2:C2").ClearContents
    End If
On Error GoTo 0
End Sub






05-11-2018 12:06 صباحا
مشاهدة مشاركة منفردة [2]
ali mohamed ali
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 909
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 46
قوة السمعة : 4110
الاعجاب : 58
 offline 
look/images/icons/i1.gif كود بحث عن رينج في بيانات أخرى وبشرط
بارك الله فيك استاذ اسلام كود ممتاز جعله الله فى ميزان حسناتك



توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله



05-11-2018 08:12 صباحا
مشاهدة مشاركة منفردة [3]
Abo Sohaib
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-11-2017
رقم العضوية : 1397
المشاركات : 104
الجنس : ذكر
تاريخ الميلاد : 1-7-1985
يتابعهم : 13
يتابعونه : 1
قوة السمعة : 212
الاعجاب : 4
 offline 
look/images/icons/i1.gif كود بحث عن رينج في بيانات أخرى وبشرط
جزاكم الله خيرا اخي الحبيب أ اسلام 
الله يجازيكم خير وينفع بيكم يااارب






05-11-2018 08:36 صباحا
مشاهدة مشاركة منفردة [4]
Abo Sohaib
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 08-11-2017
رقم العضوية : 1397
المشاركات : 104
الجنس : ذكر
تاريخ الميلاد : 1-7-1985
يتابعهم : 13
يتابعونه : 1
قوة السمعة : 212
الاعجاب : 4
 offline 
look/images/icons/i1.gif كود بحث عن رينج في بيانات أخرى وبشرط
كم انا راءع ياصديقي 
جزاك الله خيرا كود جميل أ اسلام 
قلت انه ممكن نستخدم match 
وإبداعك في استخدامها بهذا الشكل 
جميل جمييييل 






05-11-2018 07:14 مساء
مشاهدة مشاركة منفردة [5]
Eslam Abdullah
مشرف على لغات برمجة آخرى
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1357
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 3
يتابعونه : 71
قوة السمعة : 8423
الاعجاب : 10
 offline 
look/images/icons/i1.gif كود بحث عن رينج في بيانات أخرى وبشرط
وجزاك الله خيرا أخى الكريم
والحمد لله أن تم الطلب على خير







الكلمات الدلالية
رينج ، بيانات ، أخرى ، وبشرط ،


 







اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.



الساعة الآن 10:30 مساء

أعلن هنا
أعلن هنا
أعلن هنا