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



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





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

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



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

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

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


أثارت هذه المشاركة إعجاب: ali mohamed ali، هانى على، عبدالجيد، مهند محسن، عبدالله الضراسي، Eslam Abdullah، الميعادي الحر،


توقيع :emad ghazi



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


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


أثارت هذه المشاركة إعجاب: عبدالجيد، emad ghazi، Eslam Abdullah،


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


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

أثارت هذه المشاركة إعجاب: عبدالجيد، emad ghazi، Eslam Abdullah،




24-08-2018 09:27 صباحا
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
يتابعهم : 13
يتابعونه : 5
قوة السمعة : 1844
الاعجاب : 355
 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 مرات التحميل :(7)
الحجم :(23.228) KB



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


أثارت هذه المشاركة إعجاب: عبدالجيد، emad ghazi، مهند محسن،




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

أثارت هذه المشاركة إعجاب: salim،




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

جزاكم الله خير وتقبل الله منا ومنكم صالح الاعمال

أثارت هذه المشاركة إعجاب: عبدالجيد،


توقيع :emad ghazi


24-08-2018 04:27 مساء
مشاهدة مشاركة منفردة [6]
emad ghazi
menu_open عضوية موثقة
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 13
المشاركات : 91
الجنس : ذكر
تاريخ الميلاد : 1-12-1979
الدعوات : 1
يتابعهم : 5
يتابعونه : 319
قوة السمعة : 1040
الاعجاب : 206
 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

الملف مرفق


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

أثارت هذه المشاركة إعجاب: salim، عبدالجيد،


توقيع :emad ghazi


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

جزاك الله خير استاذى
وكل عام وحضرتك بخير

أثارت هذه المشاركة إعجاب: عبدالجيد،


توقيع :emad ghazi


24-08-2018 07:19 مساء
مشاهدة مشاركة منفردة [8]
مهند محسن
menu_open
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-03-2018
رقم العضوية : 5025
المشاركات : 99
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 203
الاعجاب : 84
 offline 
look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
بارك الله فيك استاذ عماد احسنت شرح رائع وكود ممتاز
والشكر موصول لأستاذنا وخبيرنا ومعلمنا الكبير الأستاذ سليم حاصبيا له منا كل المحبة والإحترام ,كود وملف ممتازان جزاكم الله جميعا كل خير وأكثر الله من أمثالكم

أثارت هذه المشاركة إعجاب: salim، عبدالجيد،




24-08-2018 08:20 مساء
مشاهدة مشاركة منفردة [9]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
يتابعهم : 13
يتابعونه : 5
قوة السمعة : 1844
الاعجاب : 355
 offline 
look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
المشاركة الأصلية كتبت بواسطة: emad ghazi »
المشاركة الأصلية كتبت بواسطة: 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

الملف مرفق


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

أثارت هذه المشاركة إعجاب: عبدالجيد، عبدالله الضراسي،




24-08-2018 10:48 مساء
مشاهدة مشاركة منفردة [10]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 477
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 518
الاعجاب : 203
 offline 
look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
تحية طيبة استاذ عماد 
شكرا لك على الكود الجميل 
 


تم تحرير المشاركة بواسطة :khaled alborene
بتاريخ:24-08-2018 10:56 مساء


أثارت هذه المشاركة إعجاب: عبدالجيد، salim،




24-08-2018 10:54 مساء
مشاهدة مشاركة منفردة [11]
khaled alborene
menu_open
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 477
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 518
الاعجاب : 203
 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

الملف مرفق




استاذي الكريم هل ممكن شرح الكود 

أثارت هذه المشاركة إعجاب: عبدالجيد، salim،




25-08-2018 11:47 مساء
مشاهدة مشاركة منفردة [12]
Eslam Abdullah
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1083
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 50
قوة السمعة : 6421
الاعجاب : 1823
 offline 
look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
مشكور أستاذنا حبيبنا
مبدع من يومك biggrin2
جزاك الله خيرا 81






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
اريد البحث في اكثر من شيت aboyazed1984
12 171 YasserKhalil
جدول بقيم متكررة في اكثر من عامود Bogshan
2 86 Bogshan
طلب تعديل بيانات في ورقة عمل معينة مختارة من بين اكثر من ورقة عمل باسنخدام كمبوبوك jamal89
2 79 YasserKhalil
اكسل تطوير اداءالدالة VLOOKUPللبحث عن القيم باكثر من شرط بطريقة اكثر دقة واحترافية emad ghazi
11 743 emad ghazi
طلب مساعدة في عمل محرك بحث باكثر من معيار في ملف معقد نوعا ما زياد عبد الجليل
0 58 زياد عبد الجليل

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


 







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



الساعة الآن 09:29 صباحا

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