logo

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



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





24-08-2018 02:04 صباحاً
بسم الله الرحمن الرحيم
اخوانى احبائى فى الله
السلام عليكم ورحمة الله وبركاتة
عــــــدنا اليكم من بعد فترة غياب لظروف خارجة عن الارداة
عـــــــــدنا اليكم بكود جديد وفيديو جديد ودرس جديد من دوروس اكسل vba

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




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


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


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




توقيع :ali mohamed ali


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

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




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

لذا يجب الكتابة بهذا الشكل Dim lr as long,x as long ,p as long زيادة في اثراء الموضوع هذا الكود
CODE

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 صباحاً


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



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




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



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


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

لذا يجب الكتابة بهذا الشكل Dim lr as long,x as long ,p as long زيادة في اثراء الموضوع هذا الكود
CODE

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
الحمد لله الذى بنعمتة تتم الصالحات
اللهم اجعل عملى كلة صالحا واجعله لوجهك خالصا ولا تجعل لاحد غيرك فيه شيئا
راسمالك علمك وعدوك جهلك
لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب


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



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


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




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

لذا يجب الكتابة بهذا الشكل Dim lr as long,x as long ,p as long زيادة في اثراء الموضوع هذا الكود
CODE

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

الملف مرفق

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




look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
  24-08-2018 10:48 مساءً   [10]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 834
الدولة : الاردن
الجنس :
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 988
الاعجاب : 0
تحية طيبة استاذ عماد
شكرا لك على الكود الجميل


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





look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
  24-08-2018 10:54 مساءً   [11]
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 16
المشاركات : 834
الدولة : الاردن
الجنس :
تاريخ الميلاد : 9-9-1990
الدعوات : 2
قوة السمعة : 988
الاعجاب : 0
المشاركة الأصلية كتبت بواسطة: salim بارك الله بك استاذ عماد
عندي ملاحظة بالنسبة Dim أرجو تقبلها
​عند اعلان المتغيرات بصيغة
dim lr,p,x as long
فان اكسل يأخذ اخر متغير بشكل long والباقيين يشكل Variant
​يمكن التحقق من ذلك بواسطة Local Window

لذا يجب الكتابة بهذا الشكل Dim lr as long,x as long ,p as long زيادة في اثراء الموضوع هذا الكود
CODE

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

الملف مرفق


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




look/images/icons/i1.gif البحث عن اكثر من قيمة فى قاعدة البيانات باسهل واسرع طريقة فى ثوانى معدودة اكسل vba مع عماد غازى
  25-08-2018 11:47 مساءً   [12]
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 852
المشاركات : 1580
الدولة : مصر
الجنس :
تاريخ الميلاد : 1-9-1995
الدعوات : 5
قوة السمعة : 10856
الاعجاب : 5
موقعي : زيارة موقعي
مشكور أستاذنا حبيبنا
مبدع من يومك biggrin2
جزاك الله خيرا 81




اضافة رد جديد اضافة موضوع جديد
الصفحة 2 من 2 < 1 2 >




المواضيع المتشابهه
عنوان الموضوع الكاتب الردود الزوار آخر رد
تعبئة الليست بوكس باكثر من عمود Haneen Amr
3 14 YasserKhalil
حل مشكلة فتح الملف اكثر من مرة عند استخدام تقنية ADO محمد ايمن
3 117 نصر الإيمان
المساعدة في عمل تنبؤ لاكثر من متغير saramf
0 132 saramf
@@@ المساعدة في نقل بيانات موظف من اكثر من جدول الى جدول واحد@@@ nabil2255
0 281 nabil2255
مشكلة الاكسيل لا يقبل اكثر 15 بشار1978
1 451 بشار1978

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









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

الساعة الآن 08:11 PM