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

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


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





البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى

بسم الله الرحمن الرحيم اخوانى احبائى فى الله السلام عليكم ورحمة الله وبركاتة عــــــدنا اليكم من بعد فترة غياب لظروف خ ..



24-08-2018 02:04 صباحا
emad ghazi
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 13
المشاركات : 124
الجنس : ذكر
تاريخ الميلاد : 1-12-1979
الدعوات : 4
يتابعهم : 5
يتابعونه : 544
قوة السمعة : 1736
 offline 

بسم الله الرحمن الرحيم 
اخوانى احبائى فى الله
السلام عليكم ورحمة الله وبركاتة 
عــــــدنا اليكم من بعد فترة غياب لظروف خارجة عن الارداة
عـــــــــدنا اليكم بكود جديد وفيديو جديد ودرس جديد من دوروس اكسل vba

البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب







توقيع :emad ghazi
الحمد لله الذى بنعمتة تتم الصالحات
اللهم اجعل عملى كلة صالحا واجعله لوجهك خالصا ولا تجعل لاحد غيرك فيه شيئا
راسمالك علمك     وعدوك جهلك
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 


24-08-2018 02:30 صباحا
مشاهدة مشاركة منفردة [1]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1763
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9632
عدد الإجابات: 46
 offline 
look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
وعليكم السلام عودا حميدا استاذ عماد بارك الله فيك -ولعل غيابك وانقطاعك يكون خيرا
كل عام وانتم بخير -عمل رائع وكود ممتاز جعله الله فى ميزان حسناتك


تم تحرير المشاركة بواسطة :ali mohamed ali
بتاريخ:24-08-2018 02:33 صباحا

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

24-08-2018 02:35 صباحا
مشاهدة مشاركة منفردة [2]
هانى على
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 473
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 855
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
أحسنت استاذ عماد وجزاك الله كل خير

24-08-2018 09:27 صباحا
مشاهدة مشاركة منفردة [3]
salim
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 853
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 33
قوة السمعة : 6607
عدد الإجابات: 67
 offline 
look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
بارك الله بك استاذ عماد
عندي ملاحظة بالنسبة Dim أرجو تقبلها
​عند اعلان المتغيرات بصيغة 
dim lr,p,x as long
فان اكسل يأخذ اخر متغير بشكل long والباقيين يشكل Variant
​يمكن التحقق من ذلك بواسطة Local Window
 لذا يجب الكتابة بهذا الشكل Dim lr as long,x as long ,p as long
زيادة في اثراء الموضوع هذا الكود

Sub filter_for_ME()
    With Application
     .ScreenUpdating = False
     .Calculation = xlCalculationManual
    End With
Dim S_sh As Worksheet: Set S_sh = Sheets("Sheet1")
Dim T_sh As Worksheet: Set T_sh = Sheets("Sheet2")
Dim My_Table As Range: Set My_Table = S_sh.Range("A1").CurrentRegion

T_sh.Range("a10").CurrentRegion.ClearContents
T_sh.Range("q2").Formula = "=Sheet1!A2=$B$3"

My_Table.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=T_sh.Range("Q1:q2"), _
CopyToRange:=T_sh.Range("A10:C10")
T_sh.Range("q2").ClearContents
    With Application
     .ScreenUpdating = True
     .Calculation = xlCalculationAutomatic
    End With
End Sub

الملف مرفق

 
 
  SALIM_FIND.rar   تحميل rar مرات التحميل :(15)
الحجم :(23.228) KB



تم تحرير المشاركة بواسطة :salim
بتاريخ:24-08-2018 09:33 صباحا


24-08-2018 10:12 صباحا
مشاهدة مشاركة منفردة [4]
عبدالجيد
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 26-08-2017
رقم العضوية : 194
المشاركات : 387
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 15-2-1986
الدعوات : 2
يتابعهم : 158
يتابعونه : 37
قوة السمعة : 2958
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
بارك الله فيك استاذ عماد
نتمنى لك الصحة والعافية
وشكرا للأستاذ سليم على ملاحظاتة القيمة

24-08-2018 04:21 مساء
مشاهدة مشاركة منفردة [5]
emad ghazi
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 13
المشاركات : 124
الجنس : ذكر
تاريخ الميلاد : 1-12-1979
الدعوات : 4
يتابعهم : 5
يتابعونه : 544
قوة السمعة : 1736
 offline 
look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
المشاركة الأصلية كتبت بواسطة: هانى على
أحسنت استاذ عماد وجزاك الله كل خير

المشاركة الأصلية كتبت بواسطة: عبدالجيد
بارك الله فيك استاذ عماد
نتمنى لك الصحة والعافية
وشكرا للأستاذ سليم على ملاحظاتة القيمة

جزاكم الله خير وتقبل الله منا ومنكم صالح الاعمال
توقيع :emad ghazi
الحمد لله الذى بنعمتة تتم الصالحات
اللهم اجعل عملى كلة صالحا واجعله لوجهك خالصا ولا تجعل لاحد غيرك فيه شيئا
راسمالك علمك     وعدوك جهلك
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 


24-08-2018 04:27 مساء
مشاهدة مشاركة منفردة [6]
emad ghazi
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 13
المشاركات : 124
الجنس : ذكر
تاريخ الميلاد : 1-12-1979
الدعوات : 4
يتابعهم : 5
يتابعونه : 544
قوة السمعة : 1736
 offline 
look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
المشاركة الأصلية كتبت بواسطة: salim
بارك الله بك استاذ عماد
عندي ملاحظة بالنسبة Dim أرجو تقبلها
​عند اعلان المتغيرات بصيغة 
dim lr,p,x as long
فان اكسل يأخذ اخر متغير بشكل long والباقيين يشكل Variant
​يمكن التحقق من ذلك بواسطة Local Window
 لذا يجب الكتابة بهذا الشكل Dim lr as long,x as long ,p as long
زيادة في اثراء الموضوع هذا الكود

Sub filter_for_ME()
    With Application
     .ScreenUpdating = False
     .Calculation = xlCalculationManual
    End With
Dim S_sh As Worksheet: Set S_sh = Sheets("Sheet1")
Dim T_sh As Worksheet: Set T_sh = Sheets("Sheet2")
Dim My_Table As Range: Set My_Table = S_sh.Range("A1").CurrentRegion

T_sh.Range("a10").CurrentRegion.ClearContents
T_sh.Range("q2").Formula = "=Sheet1!A2=$B$3"

My_Table.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=T_sh.Range("Q1:q2"), _
CopyToRange:=T_sh.Range("A10:C10")
T_sh.Range("q2").ClearContents
    With Application
     .ScreenUpdating = True
     .Calculation = xlCalculationAutomatic
    End With
End Sub

الملف مرفق


جزاك الله خير استاذى ملاحظة ممتازة وكود ممتا ز
انا تلميذ لكل واحد صاحب علم 
احنا هنا نتعلم من بعض
 
توقيع :emad ghazi
الحمد لله الذى بنعمتة تتم الصالحات
اللهم اجعل عملى كلة صالحا واجعله لوجهك خالصا ولا تجعل لاحد غيرك فيه شيئا
راسمالك علمك     وعدوك جهلك
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب

 





الكلمات الدلالية
excel vba ، vbaعماد غازى ، اكواد vba ، البحث ، اكثر ، قيمة ، قاعدة ، البيانات ، باسهل ، واسرع ، طريقة ، ثوانى ، معدودة ، اكسل ، عماد ، غازى ،


 










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

الساعة الآن 03:04 صباحا