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

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




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





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

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



24-08-2018 02:04 صباحا
emad ghazi
menu_open عضوية موثقة
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 13
المشاركات : 98
الجنس : ذكر
تاريخ الميلاد : 1-12-1979
الدعوات : 1
يتابعهم : 5
يتابعونه : 335
قوة السمعة : 1172
الاعجاب : 237
 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
المشاركات : 614
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 28
قوة السمعة : 2962
الاعجاب : 950
 Online 
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
المشاركات : 220
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 1
قوة السمعة : 347
الاعجاب : 148
 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
المشاركات : 214
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
يتابعهم : 13
يتابعونه : 8
قوة السمعة : 2236
الاعجاب : 477
 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
بتاريخ:24-08-2018 09:33 صباحا


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




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

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




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

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

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


توقيع :emad ghazi


24-08-2018 04:27 مساء
مشاهدة مشاركة منفردة [6]
emad ghazi
menu_open عضوية موثقة
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 13
المشاركات : 98
الجنس : ذكر
تاريخ الميلاد : 1-12-1979
الدعوات : 1
يتابعهم : 5
يتابعونه : 335
قوة السمعة : 1172
الاعجاب : 237
 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
المشاركات : 98
الجنس : ذكر
تاريخ الميلاد : 1-12-1979
الدعوات : 1
يتابعهم : 5
يتابعونه : 335
قوة السمعة : 1172
الاعجاب : 237
 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
المشاركات : 164
الجنس : ذكر
تاريخ الميلاد : 19-3-1990
يتابعهم : 0
يتابعونه : 4
قوة السمعة : 274
الاعجاب : 118
 offline 
look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
بارك الله فيك استاذ عماد احسنت شرح رائع وكود ممتاز
والشكر موصول لأستاذنا وخبيرنا ومعلمنا الكبير الأستاذ سليم حاصبيا له منا كل المحبة والإحترام ,كود وملف ممتازان جزاكم الله جميعا كل خير وأكثر الله من أمثالكم

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




24-08-2018 08:20 مساء
مشاهدة مشاركة منفردة [9]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 214
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
يتابعهم : 13
يتابعونه : 8
قوة السمعة : 2236
الاعجاب : 477
 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
المشاركات : 525
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 567
الاعجاب : 223
 Online 
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
المشاركات : 525
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 1
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 567
الاعجاب : 223
 Online 
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
المشاركات : 1214
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 2
يتابعهم : 3
يتابعونه : 60
قوة السمعة : 7264
الاعجاب : 2061
 offline 
look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
مشكور أستاذنا حبيبنا
مبدع من يومك biggrin2
جزاك الله خيرا 81






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تخزين بيانات اكثر من صفحة في مصفوفة VBA حسين مامون
11 144 حسين مامون
كيف يمكن تحويل داتا access الى excel لاكثر من 65000 المهندس عامر
4 47 YasserKhalil
الترحيل في كمبوكس باكثر من شرط رمضان بكري
4 112 YasserKhalil
هل يوجد طريقة لكشف التكرار في اكثر من ورقة عمل؟ mohammad excel
2 93 YasserKhalil
اريد البحث في اكثر من شيت aboyazed1984
12 334 YasserKhalil

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


 







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



الساعة الآن 03:50 مساء

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