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

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

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




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





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

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



24-08-2018 02:04 صباحا
emad ghazi
menu_open عضوية موثقة
عضو محترف
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 13
المشاركات : 100
الجنس : ذكر
تاريخ الميلاد : 1-12-1979
الدعوات : 1
يتابعهم : 5
يتابعونه : 381
قوة السمعة : 1357
الاعجاب : 271
 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
المشاركات : 794
الدولة : مصر
الجنس : ذكر
يتابعهم : 0
يتابعونه : 40
قوة السمعة : 3705
الاعجاب : 1220
 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
المشاركات : 265
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 0
يتابعونه : 2
قوة السمعة : 415
الاعجاب : 177
 Online 
look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
أحسنت استاذ عماد وجزاك الله كل خير

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




24-08-2018 09:27 صباحا
مشاهدة مشاركة منفردة [3]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 267
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 9
قوة السمعة : 2515
الاعجاب : 589
 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
المشاركات : 370
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 15-2-1986
يتابعهم : 157
يتابعونه : 29
قوة السمعة : 2650
الاعجاب : 654
موقعي : زيارة موقعي
 offline 
look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
بارك الله فيك استاذ عماد
نتمنى لك الصحة والعافية
وشكرا للأستاذ سليم على ملاحظاتة القيمة

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




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

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

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


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

 



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

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




24-08-2018 08:20 مساء
مشاهدة مشاركة منفردة [9]
salim
menu_open
خبير معتمد
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 43
المشاركات : 267
الجنس : ذكر
تاريخ الميلاد : 1-5-1989
الدعوات : 1
يتابعهم : 13
يتابعونه : 9
قوة السمعة : 2515
الاعجاب : 589
 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
المشاركات : 591
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 669
الاعجاب : 269
 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
المشاركات : 591
الجنس : ذكر
تاريخ الميلاد : 9-9-1990
الدعوات : 2
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 669
الاعجاب : 269
 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
المشاركات : 1328
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
الدعوات : 4
يتابعهم : 3
يتابعونه : 70
قوة السمعة : 8215
الاعجاب : 2325
 offline 
look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
مشكور أستاذنا حبيبنا
مبدع من يومك biggrin2
جزاك الله خيرا 81






المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
محتاج كود تحريك اكثر من farme داخل user forme محمد رشدي
3 62 YasserKhalil
قائمة باكثر من عمود واكثر من صف Excelawy
9 182 YasserKhalil
بحث واستبدال لاكثر من قيمه مختلفه mmase
3 114 mmase
طلب تنفيد اكثر من مهمة من listbox aljathmai
7 229 محمود ابو الدهب
أستدعاء بيانات طبقا لاكثر من فلتر Excelawy
6 568 YasserKhalil

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


 







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



الساعة الآن 04:21 مساء

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