اذهب الي المحتوي

محمود_الشريف

الخبراء
  • Content Count

    1,835
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    30

محمود_الشريف last won the day on February 5 2017

محمود_الشريف had the most liked content!

السمعه بالموقع

732 Excellent

11 متابعين

عن العضو محمود_الشريف

  • تاريخ الميلاد 14 فبر, 1980

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    مطور إداري
  • بلد الإقامة
    صعيد مصر
  • الإهتمامات
    https://elshriefacademy.blogspot.com

وسائل التواصل

  • Website URL
    https://elshriefacademy.blogspot.com

اخر الزوار

2,118 زياره للملف الشخصي
  1. الأستاذ الكريم // ali mohamed ali جزاكم الله خير الخير #ExcelVBA التهيئة وإعدادات الأمان
  2. بسم الله الرحمن الرحيم السادة // أعضاء المنتدى الكرام السلام عليكم ورحمه الله وبركاته ،،، كل منا يرغب فى تطوير ذاته ، بعدة طرق شتى وهناك الكثير الأسئلة التى تندرج تحت معرفة لغة الفيجوال بيسك للتطبيقات والتى تختصر الى VBA وهناك أيضا الكثير من الأسئلة التى تطرح هنا وهناك حول كيفية تعلم تلك اللغة وكنت أنا ممن يبحثون عن كيفية التعلم ومازلت أتعلم ، فالعلم كل يوم فى تطوير وابتكار وابداع وتفكير مستمر وأحمد الله عز وجل على أننى وصلت لمرحلة متقدمة لحد ما فى هذه اللغة وقررت أن أشارككم معرفتى وحصيلتى العلمية حولها من خلال فيديوهات تعليمية ( برنامج تعليمي ) يبدأ معك من الصفر الى ما لا نهاية وأود أن أشير إلى أننى سأحاول قدر استطاعتى وأسأل الله عز وجل أن يعيننى على ذلك أن أضعك على الطريق الصحيح لسلك درب التعلم ، ولكل مجتهد نصيب ، ( بمعنى عليك بذل المزيد من الجهد والصبر والممارسة فى مراحل التعلم ) لأننى لن أستطيع أن أغطى جميع جوانب اللغة ولكننى سأعطيك دليلا شاملا لتعلم لغة الفيجوال بيسك للتطبيقات "" توجد تدريبات فى نهاية بعض الفيديوهات أتمنى من كل متدرب أن يطبقها ، وأن يطبق كل شىء يتعلمه بدون الممارسة المستمرة لن تتعلم شيئا "" "" للمهتمين : توجد ملاحظات أسفل كل فيديو يرجى قرائتها بعناية "" يمكنك الضغط على العنوان للإنتقال للمشاهدة أو بالضغط على الفيديو لمشاهدته المقدمة
  3. محمود_الشريف

    ارجو المساعده للأهمية

    الأخ الكريم سؤالك غير منطقى وغير مفهوم انت تقول ... ((( على سبيل المثال البحث عن تاريخ 5/2/2018 هو تاريخ محصور بين تاريخين فى شيت الاكسل هما من 1/2/2018 : 28/2/2018 وفى المقابل يقوم بعرض البيانات المقابله له فى التكست بوكس المقابله له . على الرغم ان تاريخ 5/2/2018 غير مدرج فى شيت الاكسل ولاكن هو فترة زمنيه محصورة بين تاريخين معينين . ))) فكيف للاكسل ان يجد هذا التاريخ !!!! ؟ وكيف يكون له بيانات وهو غير مدرج !!!! ؟
  4. لا أعلم بالضبط ما هى المشكلة الموجوده لديك ولكنى أقترح بعض الأمور * تأكد من اعدادات الاكسل من File > Options > Add-ins تأكد من وجود الوظائف الاضافية الخاصة بالـ VBA ان لم تكن موجودة عليك بتثبيتها من موقع مايكروسوفت * تأكد من اظهار قائمة Developer ( المطور ) * تأكد من وجود مسار الحفظ الخاص بالملفات التى تحتوى على ماكرو وهو Excel Macro - Enabled Workbook من خلال حفظ اى مصنف بأسم جديد مع تغيير نوع مسار الملف ان لم يكن هذا المسار موجود ( فلديك مشكلة بنسخة الأوفيس الموجودة لديك ، ولا ينفع تسطيب نسخة أوفيس جديدة الا بعد عمل فورمات فى هذه الحالة )
  5. أخى الكريم يمكنك التعديل بكل سهولة عند الضغط على ALT+F11 يظهر محرر الأكواد اضغط على نموذج الفورم المسمى Toumana الموجود على يسار النافذة ، تظهر الفورم ومن خلالها يمكنك تغيير ما تريد الشعار موجود فى أعلى الفورم بالمنتصف وهو بداخل Image1 بالضغط عليها كليك يسار ثم اختر خصائص تظهر لك نافذة تجد على يسار النافذة الجديدة كلمة picture وبجوارها بالجانب الأيمن عند الضغط عليها تظهر نافذة إختر الصورة المطلوبة من جهازك (( الشعار )) أما البيانات يمكنك الكتابة مباشرة بعد تحديد الكتابة الحالية
  6. بوركتم أستاذنا القدير // محمد صالح جعله الله بميزان حسناتكم وتقبل منى وافر الاحترام والتقدير
  7. محمود_الشريف

    جلب بينات بين تاريخين

    أخى الكريم بوركتم وجزيتم عنى خيرا
  8. محمود_الشريف

    جلب بينات بين تاريخين

    أخى الكريم الكود راح يكون هكذا ولاحظ التغيير فيه مع تغيير أماكن خلايا الشرط أصبحت ( T9 و U9 ) وتغيير النطاق بشيت الاستعلام مرفق مثال توضيحي على الملف الخاص بكم Sub Work() Sheet2.Range("S13:V5000").ClearContents r = 13 For i = 11 To Sheet1.Range("E10000").End(xlUp).Row + 1 If Sheet2.Range("T9").Value = "" Then GoTo a If Sheet2.Range("T9").Value <= Sheet1.Cells(i, "E") Then a: If Sheet2.Range("U9").Value = "" Then GoTo a1 If Sheet2.Range("U9").Value >= Sheet1.Cells(i, "E") Then a1: Sheet2.Cells(r, 19) = Sheet1.Cells(i, 2) Sheet2.Cells(r, 20) = Sheet1.Cells(i, 3) Sheet2.Cells(r, 21) = Sheet1.Cells(i, 4) Sheet2.Cells(r, 22) = Sheet1.Cells(i, 5) r = r + 1 End If End If Next i End Sub جلب بيانات بين تاريخين_2.rar
  9. محمود_الشريف

    طلب من اصحاب الخبرة الكرام

    أشكرك أخى الكريم ولا داعى للإعتذار فكلنا هنا اخوة ويرجي إيضاح الطلب الذى ذكرته فى ردى والخاص بالنقطة خامسا والمرتبط بطلبك بالنقطة ثالثا
  10. محمود_الشريف

    اخفاء الاكواد والدلات

    أخى الكريم لم أفهم قصدك من كود إخفاء الأكواد الأكواد لا يتم إخفاؤها إلا بحالة واحده وهو تحويل الملف إلى تنفيذى وهناك برامج متخصصة فى ذلك منها ما يعمل بالفعل ومنها تجريبية وغيره أما إذا كنت تقصد حماية محرر الأكواد وهى طريقة غير فعالة نظرا لوجود برامج كسر الحماية وهى وضع باسوورد لمحرر الأكواد أما فيما يختص بحماية المعادلات أيضا هى غير فعالة فى حالة حمايتها بكود والكود كل ما يفعله إما حجبها من رؤية المعادلة بشريط الصيغة أو يجعلك تنتقل إلى خلية ليس بها معادلة وسبب عدم فعاليتها أن الكود لا يعمل فى حالة عدم تفعيل الماكرو وأفضل حماية هى الحماية العادية ( وهى ليست فعالة أيضا ) ولكنها تؤتي بثمارها بحماية الخلايا من خلال باسوورد أى غلق الخلية من التعديل وعدم فعاليتها بسبب برامج كسر الحماية
  11. أخى الكريم راجع موضوعك تحت الرابط التالي وبرجاء الإلتفات إلى تعليمات المنتدى وما ذكرته لكم بالرابط أعلاه وتقبل منى وافر الاحترام والتقدير
  12. محمود_الشريف

    جلب بينات بين تاريخين

    أخى الكريم شرح الكود سطر سطر لأنى لا أعرف مقصدك ------------------------- Sheet2.Range("B13:E5000").ClearContents هذا السطر يتحدث عن النطاق الذى سيتم ادخال البيانات أى جلب أى استعلام البيانات بالشيت 2 شيت البحث ، والنطاق المذكور هو النطاق الذى سيتم مسح أى بيانات بداخله استعدادا للبيانات الجديدة ---------------------------- r = 13 هذا السطر يتحدث عن أن r تساوى 13 أى أن الصف رقم 13 بشيت 2 بداية جلب البيانات له ------------------------ For i = 13 To Sheet1.Range("E10000").End(xlUp).Row + 1 هذا السطر بداية حلقة تكرارية بنقول فيه ان (( i )) تساوى 13 أى الصف رقم 13 بشيت 1 شيت المصدر لغاية المدى E10000 حتى آخر صف بهذا العمود بالنطاق المحدد 10000 ------------------------- If Sheet2.Range("D8").Value = "" Then GoTo a If Sheet2.Range("D8").Value <= Sheet1.Cells(i, "E") Then هذان السطرين يتحدثان عن الحلقة التكرارية المطلوبة بالشروط التى سنضعها فى حالة كون الخلية D8 بشيت 2 وهو شيت الاستعلام وليس المصدر اذهب الى الشيت 1 فى العمود E وهكذا للسطرين التاليين من الكود ------------------- Sheet2.Cells(r, 2) = Sheet1.Cells(i, 2) هذا السطر مهم وقد يكون هو الذى تسأل عنه بنقول فيه شيت 2 ، السطر r وتم تعريفه سابقا أنه رقم 13 ، العمود الثاني وهو B بيساوى الشيت 1 ، السطر i وتم تعريفه سابقا أنه رقم 13 ، العمود الثاني وهو B
  13. محمود_الشريف

    طلب من اصحاب الخبرة الكرام

    الأخ الكريم لماذا كل هذا الانفعال هدىء من روعك أولا لا يوجد أحد بالمنتدى يبخل بأى معلومة ، وكلنا هنا إخوة نتعاون فيما بيننا للوصول للنتيجة المطلوبة ثانيا دائما عندما تطرح موضوع فلا تستعجل الرد فالكل يشارك حسب وقته وجهده ثالثا أيضا عند طرح موضوع لا تطلب عده طلبات دفعة واحدة فهذا الأمر يجعل الكثير يحجب عن الرد لا بخلا أو ما شابه ولكنه يستصعب الأمر وكل حسب وقته رابعا بالمرفقات تجد أنه تم العمل على الطلب الأول والثاني خامسا زر حفظ التعديل مرتبط بالكمبوبوكس 1 وهذا الكمبوبوكس لا يعمل وعلى أى أساس سيتم البحث على عمود الرقم الوزارى أم عمود الأسم برجاء توضيح تلك النقطه ولعل أحد السادة أساتذتى يدخل لكى يكمل العمل بالنقاط الأخري (( كل حسب وقته )) 2017صيفية برمجية المعتمدة استعلام_1.rar
  14. محمود_الشريف

    تعديل في عدة اعمدة في الاكسل

    أخى الكريم بداية يرجى ارفاق ملف للعمل عليه ثانيا للتغيير فى عمود أو مجموعة داخل عمود من خلال فورم لا أعتقد أنك ستجد حل لذلك لأنه بإفتراض أمامك شيت الاكسل هل تستطيع أن تغير فى كامل العمود مرة واحده ولا يتم التغيير فى خلية خلية ثالثا وهذه نقطه مهمة ما فهمته من طلبك الثاني أن هناك مجموعة موقوف راتبهم ترغب فى استدعاء بياناتهم مثلا لكى يتم التعديل لماذا لم تطلب ذلك من الأول حفاظا على وقت وجهد الآخرين برجاء التوضيح وارفاق ملف للعمل عليه
  15. محمود_الشريف

    جلب بينات بين تاريخين

    أخى الكريم هل تقصد السطر الذى يتم استدعاء البيانات إليه r=13
×