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

آخر المشاركات

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

الرئيسية

اكسيل شروحات فيديو

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

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

: لا يمكنك الرد على هذا الموضوع لا يمكنك إضافة موضوع جديد

أدوات الموضوع

أدوات الموضوع

تحميل محتوى الموضوع

عرض نسخة صالحة للطباعة

أرسل هذا الموضوع إلى صديق

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

24-08-2018 02:04 صباحا

emad ghazi

عضو محترف

تاريخ الإنضمام : 21-08-2017

رقم العضوية : 13

المشاركات : 91

الجنس :

تاريخ الميلاد : 1-12-1979

الدعوات : 1

يتابعهم : 5

يتابعونه : 319

قوة السمعة : 1040

الاعجاب : 206

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

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

: توقيع :emad ghazi

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

: 24-08-2018 02:30 صباحا

[1]

ali mohamed ali

عضو محترف

تاريخ الإنضمام : 20-11-2017

رقم العضوية : 1757

المشاركات : 429

الدولة : مصر

الجنس :

يتابعهم : 0

يتابعونه : 20

قوة السمعة : 2357

الاعجاب : 693

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

وعليكم السلام عودا حميدا استاذ عماد بارك الله فيك -ولعل غيابك وانقطاعك يكون خيرا
كل عام وانتم بخير -عمل رائع وكود ممتاز جعله الله فى ميزان حسناتك

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

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

: توقيع :ali mohamed ali

{ وَقُل رَّبِّ زِدْنِي عِلْمًا }

[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره

أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة

الاخرين لوجه الله وان تحتسب له اجر عند الله

: 24-08-2018 02:35 صباحا

[2]

هانى على

عضو فعال

تاريخ الإنضمام : 10-03-2018

رقم العضوية : 4794

المشاركات : 182

الجنس :

تاريخ الميلاد : 1-4-1980

يتابعهم : 0

يتابعونه : 1

قوة السمعة : 297

الاعجاب : 126

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

: أحسنت استاذ عماد وجزاك الله كل خير

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

: 24-08-2018 09:27 صباحا

[3]

salim

خبير معتمد

تاريخ الإنضمام : 22-08-2017

رقم العضوية : 43

المشاركات : 157

الجنس :

تاريخ الميلاد : 1-5-1989

يتابعهم : 13

يتابعونه : 5

قوة السمعة : 1844

الاعجاب : 355

: البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل 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]

عبدالجيد

عضو محترف

تاريخ الإنضمام : 26-08-2017

رقم العضوية : 194

المشاركات : 331

الدولة : مصر

الجنس :

تاريخ الميلاد : 15-2-1986

يتابعهم : 106

يتابعونه : 22

قوة السمعة : 2269

الاعجاب : 562

موقعي : زيارة موقعي

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

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

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

: توقيع :عبدالجيد

: لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
واتس أب
01069712052

: 24-08-2018 04:21 مساء

[5]

emad ghazi

عضو محترف

تاريخ الإنضمام : 21-08-2017

رقم العضوية : 13

المشاركات : 91

الجنس :

تاريخ الميلاد : 1-12-1979

الدعوات : 1

يتابعهم : 5

يتابعونه : 319

قوة السمعة : 1040

الاعجاب : 206

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

المشاركة الأصلية كتبت بواسطة: هانى على »

أحسنت استاذ عماد وجزاك الله كل خير

المشاركة الأصلية كتبت بواسطة: عبدالجيد »

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

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

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

: توقيع :emad ghazi

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

: 24-08-2018 04:27 مساء

[6]

emad ghazi

عضو محترف

تاريخ الإنضمام : 21-08-2017

رقم العضوية : 13

المشاركات : 91

الجنس :

تاريخ الميلاد : 1-12-1979

الدعوات : 1

يتابعهم : 5

يتابعونه : 319

قوة السمعة : 1040

الاعجاب : 206

: البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل 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

عضو محترف

تاريخ الإنضمام : 21-08-2017

رقم العضوية : 13

المشاركات : 91

الجنس :

تاريخ الميلاد : 1-12-1979

الدعوات : 1

يتابعهم : 5

يتابعونه : 319

قوة السمعة : 1040

الاعجاب : 206

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

المشاركة الأصلية كتبت بواسطة: ali mohamed ali »

وعليكم السلام عودا حميدا استاذ عماد بارك الله فيك -ولعل غيابك وانقطاعك يكون خيرا
كل عام وانتم بخير -عمل رائع وكود ممتاز جعله الله فى ميزان حسناتك

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

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

: توقيع :emad ghazi

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

: 24-08-2018 07:19 مساء

[8]

مهند محسن

عضو نشيط

تاريخ الإنضمام : 21-03-2018

رقم العضوية : 5025

المشاركات : 99

الجنس :

تاريخ الميلاد : 19-3-1990

يتابعهم : 0

يتابعونه : 4

قوة السمعة : 203

الاعجاب : 84

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

: بارك الله فيك استاذ عماد احسنت شرح رائع وكود ممتاز
والشكر موصول لأستاذنا وخبيرنا ومعلمنا الكبير الأستاذ سليم حاصبيا له منا كل المحبة والإحترام ,كود وملف ممتازان جزاكم الله جميعا كل خير وأكثر الله من أمثالكم

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

: 24-08-2018 08:20 مساء

[9]

salim

خبير معتمد

تاريخ الإنضمام : 22-08-2017

رقم العضوية : 43

المشاركات : 157

الجنس :

تاريخ الميلاد : 1-5-1989

يتابعهم : 13

يتابعونه : 5

قوة السمعة : 1844

الاعجاب : 355

: البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل 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

عضو ماسي

تاريخ الإنضمام : 22-08-2017

رقم العضوية : 16

المشاركات : 477

الجنس :

تاريخ الميلاد : 9-9-1990

الدعوات : 1

يتابعهم : 7

يتابعونه : 6

قوة السمعة : 518

الاعجاب : 203

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

: تحية طيبة استاذ عماد
شكرا لك على الكود الجميل

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

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

: 24-08-2018 10:54 مساء

[11]

khaled alborene

عضو ماسي

تاريخ الإنضمام : 22-08-2017

رقم العضوية : 16

المشاركات : 477

الجنس :

تاريخ الميلاد : 9-9-1990

الدعوات : 1

يتابعهم : 7

يتابعونه : 6

قوة السمعة : 518

الاعجاب : 203

: البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل 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

خبير معتمد

تاريخ الإنضمام : 03-10-2017

رقم العضوية : 852

المشاركات : 1083

الجنس :

تاريخ الميلاد : 1-9-1995

الدعوات : 2

يتابعهم : 3

يتابعونه : 50

قوة السمعة : 6421

الاعجاب : 1823

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

: مشكور أستاذنا حبيبنا
مبدع من يومك
جزاك الله خيرا

أعجبني أعجبك هذاإلغ اعجابي 0

: لا يمكنك الرد على هذا الموضوع لا يمكنك إضافة موضوع جديد

المواضيع المتشابهه
عنوان الموضوع	الكاتب	الردود	الزوار	آخر رد
اريد البحث في اكثر من شيت	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 ، البحث ، اكثر ، قيمة ، قاعدة ، البيانات ، باسهل ، واسرع ، طريقة ، ثوانى ، معدودة ، اكسل ، عماد ، غازى ،

« شرح عمل قائمة منسدلة في اكسل | فيديو شرح pivot table في اكسل تحليل البيانات باستخدام pivot table »

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

سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

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