اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

الخبراء
  • Content Count

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

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

  • Days Won

    30

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

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

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

728 Excellent

11 متابعين

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

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

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

  • Gender (Ar)
    ذكر
  • Job Title
    مطور إداري
  • بلد الإقامة
    صعيد مصر
  • الإهتمامات
    صل من قطعك وأعفو عن من ظلمك

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

  • Yahoo
    m80_elshrief@yahoo.com

اخر الزوار

2,002 زياره للملف الشخصي
  1. أخى الكريم يمكنك التعديل بكل سهولة عند الضغط على ALT+F11 يظهر محرر الأكواد اضغط على نموذج الفورم المسمى Toumana الموجود على يسار النافذة ، تظهر الفورم ومن خلالها يمكنك تغيير ما تريد الشعار موجود فى أعلى الفورم بالمنتصف وهو بداخل Image1 بالضغط عليها كليك يسار ثم اختر خصائص تظهر لك نافذة تجد على يسار النافذة الجديدة كلمة picture وبجوارها بالجانب الأيمن عند الضغط عليها تظهر نافذة إختر الصورة المطلوبة من جهازك (( الشعار )) أما البيانات يمكنك الكتابة مباشرة بعد تحديد الكتابة الحالية
  2. بوركتم أستاذنا القدير // محمد صالح جعله الله بميزان حسناتكم وتقبل منى وافر الاحترام والتقدير
  3. محمود_الشريف

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

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

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

    أخى الكريم الكود راح يكون هكذا ولاحظ التغيير فيه مع تغيير أماكن خلايا الشرط أصبحت ( 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
  5. محمود_الشريف

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

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

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

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

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

    أخى الكريم شرح الكود سطر سطر لأنى لا أعرف مقصدك ------------------------- 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
  9. محمود_الشريف

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

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

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

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

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

    أخى الكريم هل تقصد السطر الذى يتم استدعاء البيانات إليه r=13
  12. محمود_الشريف

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

    أخى الكريم مجهود رائع مشكور عليه شرح الكود بإختصار يبدأ بتحديد المدى الذى سينقل إليه البيانات ويقوم بمسحه من أى بيانات به تحديد السطر رقم 13 وهو سطر بدء استدعاء البيانات إليه حلقة تكرارية تبدأ من السطر 13 من الشيت المصدر بالعمود E حتى آخر صف تم تحديده ( 10000 ) عمود التاريخ جملة شرطية فى حاله الخلية D8 بها بيانات اذهب إلى A لتدوير الحلقة التكرارية بين الشرطين و D9 والخاصيين بالتاريخ الموجود بالعمود E فى كلا الشيتين ( أى أن العمود E فى الشيت 1 والشيت 2 بهم الشرط وهو التاريخ )
  13. أخى الكريم وبعد إذن الأستاذ الفاضل // أحمد والأستاذ القدير // حماده عمر إليكم بالمرفقات محاولة منى تم العمل على الفورم رقم 11 أتمنى أن يكون به ما طلبت TEST_1_MZM.rar
  14. محمود_الشريف

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

    الأخ الكريم / السائل وبعد إذن أستاذى القدير // حماده عمر إليكم بالمرفقات نموذج به فورم يمكنك من خلاله التعديل على أى عمود تريد يجب خفض مستوى أمان الماكرو لكى يعمل الملف بالشكل المطلوب بالضغط على زر الفورم تظهر الفورم من خلالها زر جديد لبدء تسجيل بيانات جديدة مع اضافة تسلسل تلقائي وتضغط على زر حفظ و يوجد زر ( حذف & تعديل ) بالضغط عليه تظهر الجزء الآخر من الفورم من خلال الأسهم الخاصة بكل كمبوبوكس بالضغط عليها تظهر قائمة منسدلة بها كامل بيانات العمود الخاص بها بالضغط علي البيان المطلوب تظهر جميع بيانات الصف داخل ( الكمبوبوكس الأخرى ) بالضغط على زر استدعاء البيانات تظهر نفس بيانات الصف داخل التكست بوكس من خلالها عدل كيفما تشاء ثم اضغط على حفظ TEST_MZM.rar
  15. محمود_الشريف

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

    ولإثراء الموضوع وبعد اذن الأستاذ الكبير // سليم حاصبيا اليكم طريقة أخري بالكود مع تغيير طفيف شكل الشيت الكود بحدث Sheet2 يعمل تلقائيا بمجرد ادخال التاريخين جلب بيانات بين تاريخين _ 1.rar
×