Jump to content
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

الخبراء
  • Content Count

    1,842
  • Joined

  • Days Won

    30

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

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

Community Reputation

738 Excellent

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

  • Birthday 02/14/1980

Profile Information

  • Gender (Ar)
    ذكر
  • Job Title
    مطور إداري
  • Location
    صعيد مصر
  • Interests
    https://elshriefacademy.blogspot.com

Contact Methods

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

Recent Profile Visitors

2,293 profile views
  1. جزاكم الله خيرا أستاذنا // عادل حنفي وبالنسبة لإستفسار الاخ / حراثي لو رجعت للموضوع الأصلي الخاص بك ستجد الاجابة اضغط هنا
  2. أخى الكريم بالمرفقات ما طلبت توضيح (( اليوزرفورم المستخدم )) بعد فتح الملف ، قم بالوقوف على الخلية المراد لصق البيانات بدءا منها ثم من خلال الضغط على زر اضغط هنا يقوم بفتح نافذة حوار من خلالها قم بإختيار الملف المطلوب النسخ منه ثم تقوم بتحديد البيانات أو النطاق المراد نسخ البيانات منه سيظهر النطاق المحدد باليوزرفورم ثم اختر طريقة اللصق التى تفضلها ثم اضغط على زر لصق الملف المطبق به اليوزرفورم v1.xlsm
  3. أعتقد والله أعلم - أخى الكريم / ان المشكلة فى الإعدادات وليست نسخة الأوفيس قد يكون سببها انك استخدمت شفرة برمجية قامت بتغيير الإعدادات الافتراضية ولحل المشكلة من جذورها يجب ان تصل لهذا الملف الذى به تلك الشفرة وتقوم بعكسها أى ارجاعها الى الاعدادات الافتراضية اذا لم تستطع الوصول لها عليك بإلغاء التشغيل التلقائي لتمكين وحدات الماكرو وراجع اعدادات الـ Advanced كالتالي File tab >> click Options >> click Advanced قم بالنزول ال اسفل حتى تجد Display اذا وجدت تحديدا على المربع الذى بجوار جملة Disable hardware graphics acceleration قم بإلغاء التحديد ثم الحفظ واغلق الاكسل واعد فتحه من جديد للعلم هذه إحدى الطرق وقد تنفع معك أو لا ... فى حالة لا قدر الله لم تصلح معك يمكنك تحميل تلك الأداه تصلح لويندوز 7 لتصحيح الأخطاء لتحميل الأداة  اضغط هنا أو يمكنك زيارة الرابط التالي وتجربة عدة طرق لتصيح المشكلة اضغط هنا - docs.microsoft
  4. بعد اذن الأستاذ // علي محمد علي والأستاذ // أبو عيد الأخ الكريم الخطأ رقم 1004 إليك توضيح بسيط عنه بإيجاز (أسبابه) ------------------------------------------------------------------------------------------------------------------------ تعريفه : خطأ في التطبيق أو تعريف الكائن الوصف : هذه رسالة خطأ catch-all شائعة جدًا. لماذا يحدث ؟ : يحدث هذا الخطأ عندما لا يتطابق أحد الأخطاء مع الخطأ المحدد بواسطة VBA . بمعنى آخر ، يتم تعريف الخطأ بواسطة Excel (أو بعض الكائنات الأخرى) ويتم نشر مرة أخرى إلى VBA. ---------------------------------------------------------------------------------------------------------------------- وبما أنك لم تحدد ما هو الخطأ بالكود ال حضرتك كاتبه بطريقة النسخ واللصق ( لذا الكود غير واضح ) فالأفضل رفع الملف لتسهيل العمل عليه ----------------------------------------------------------------------------------------------------------------- أو اذا اردت التعامل مع الخطأ بنفسك قم بتشغيل الكود وعندما تظهر لك رسالة الخطأ اضغط على كلمة Debug سيقوم بفتح المحرر وسيقوم قاريء المحرر تلقائيا بتحديد سطر ووضع خلفية باللون الأصفر عليه قم بإلغاء التحديد بالضغط على أيقونة Reset ( شكلها مربع بلون ازرق) بجوار زر الـ Run الأخضر من شريط المهام بالأعلي بأيقونة ثم حاول تصحيح الخطأ
  5. الأخ الكريم برنامج الـ one not فكرته الأساسية كمفكرة ( لتدوين الملاحظات ....الخ ) لكن مع التحديثات الأخيرة له أصبح هذا البرنامج له دور كبير فى كثير من المور منها على سبيل المثال عملية التعلم والتواصل ومشاركة الملفات والعديد من الأمور الرائعة صدق أولا تصدق أن معظم الدول أعتمدت هذا البرنامج كأحد البرامج المسؤولة عن تطوير تقنية التعليم فى المدارس وأصبح إلزاما فى العديد من الدول أن يتعلم المدرسين والطلاب كيفية استخدامه للتواصل فيما بينهم بل أصبح يستخدم فى المشاريع العملاقة ، وإدارة الموارد البشرية بالشركات المحترمة يمكنك من خلاله انشاء العديد من الأقسام وبكل قسم العديد من الصفحات يمكنك اضافة الفيديوهات وإنشاء بعض المعادلات الرياضية وأيضا يمكنك إدراج ملفات بداخله كذلك يمكنك اضافة الجداول وتنسيق المواعيد وإدارة العمليات والمتابعة من خلاله ايضا يمكنك ادراج جداول اكسل بداخله يمنكك مشاركة الملف بعدة طرق مع آخرين لتعملوا معا عليه هذا البرنامج اصبح بالفعل برنامجا قويا يمتلك العديد من المقومات وخاصة عملية البحث الموجودة بداخلة
  6. اذا كان اصدار ماك لديك تحت رقم 15.40 يلزم تحديث الاصدار للتحديث اذهب الى قائمة المساعدة Excel's Help اختر التحقق من التحديثات Check For Updates بتطبيق AutoUpdate اختر مربع Insider program واستخدم Insider Slow للحصول على آخر تحديث اضغط مرة اخري Check For Updates بعد اختيار Insider Slow وجرب تشغيل وحدات الماكرو بعد التحديث
  7. أتقدم بخالص الشكر والتقدير للسيد المهندس // محمد طاهر لموافقته على نشر سلسلة الفيديوهات بالموقع الخاصة بـ ( تعلم لغة الفيجوال بيسك للتطبيقات ) وليس فقط على الموقع بل رحب بنشر تلك السلسلة التعليمية بمجموعة أوفيسنا على الفيس بوك وهذا ليس غريبا عليه ولا على موقع أوفيسنا الذى لا أنسي فضل هذا الموقع على بعد رب العالمين فى تعلم أساسيات لغة الفيجوال بيسك للتطبقات على يد أساتذة أجلاء فى حين أن 21 موقع عربي آخر قمت بمراسلتهم وجميعهم اما ان تهربوا بعدم الرد أو بالرفض بشكل صريح ولا أفهم السبب رغم أن من أصحاب تلك المواقع من أعرفه معرفة شخصية أو تواصلت معه كثيرا عبر الهاتف غير أنهم يرفضون نشر تلك السلسلة التعليمية على جروباتهم على الفيس بوك أو يوافقوا عليها بمضض ويعلم الله عز وجل أننى لا أريد من وراء تلك السلسلة التعليمية سوى نشر العلم ووضع من يرغب فى التعلم على الطريق الصحيح وأن يجعله الله فى ميزان حسناتى يوم القيامة داعيا المولى عز وجل أن يوفقنا جميعا لما يحبه ويرضاه
  8. الأستاذ الكريم // ali mohamed ali جزاكم الله خير الخير #ExcelVBA التهيئة وإعدادات الأمان
  9. بسم الله الرحمن الرحيم السادة // أعضاء المنتدى الكرام السلام عليكم ورحمه الله وبركاته ،،، كل منا يرغب فى تطوير ذاته ، بعدة طرق شتى وهناك الكثير الأسئلة التى تندرج تحت معرفة لغة الفيجوال بيسك للتطبيقات والتى تختصر الى VBA وهناك أيضا الكثير من الأسئلة التى تطرح هنا وهناك حول كيفية تعلم تلك اللغة وكنت أنا ممن يبحثون عن كيفية التعلم ومازلت أتعلم ، فالعلم كل يوم فى تطوير وابتكار وابداع وتفكير مستمر وأحمد الله عز وجل على أننى وصلت لمرحلة متقدمة لحد ما فى هذه اللغة وقررت أن أشارككم معرفتى وحصيلتى العلمية حولها من خلال فيديوهات تعليمية ( برنامج تعليمي ) يبدأ معك من الصفر الى ما لا نهاية وأود أن أشير إلى أننى سأحاول قدر استطاعتى وأسأل الله عز وجل أن يعيننى على ذلك أن أضعك على الطريق الصحيح لسلك درب التعلم ، ولكل مجتهد نصيب ، ( بمعنى عليك بذل المزيد من الجهد والصبر والممارسة فى مراحل التعلم ) لأننى لن أستطيع أن أغطى جميع جوانب اللغة ولكننى سأعطيك دليلا شاملا لتعلم لغة الفيجوال بيسك للتطبيقات "" توجد تدريبات فى نهاية بعض الفيديوهات أتمنى من كل متدرب أن يطبقها ، وأن يطبق كل شىء يتعلمه بدون الممارسة المستمرة لن تتعلم شيئا "" "" للمهتمين : توجد ملاحظات أسفل كل فيديو يرجى قرائتها بعناية "" يمكنك الضغط على العنوان للإنتقال للمشاهدة أو بالضغط على الفيديو لمشاهدته المقدمة
  10. الأخ الكريم سؤالك غير منطقى وغير مفهوم انت تقول ... ((( على سبيل المثال البحث عن تاريخ 5/2/2018 هو تاريخ محصور بين تاريخين فى شيت الاكسل هما من 1/2/2018 : 28/2/2018 وفى المقابل يقوم بعرض البيانات المقابله له فى التكست بوكس المقابله له . على الرغم ان تاريخ 5/2/2018 غير مدرج فى شيت الاكسل ولاكن هو فترة زمنيه محصورة بين تاريخين معينين . ))) فكيف للاكسل ان يجد هذا التاريخ !!!! ؟ وكيف يكون له بيانات وهو غير مدرج !!!! ؟
  11. لا أعلم بالضبط ما هى المشكلة الموجوده لديك ولكنى أقترح بعض الأمور * تأكد من اعدادات الاكسل من File > Options > Add-ins تأكد من وجود الوظائف الاضافية الخاصة بالـ VBA ان لم تكن موجودة عليك بتثبيتها من موقع مايكروسوفت * تأكد من اظهار قائمة Developer ( المطور ) * تأكد من وجود مسار الحفظ الخاص بالملفات التى تحتوى على ماكرو وهو Excel Macro - Enabled Workbook من خلال حفظ اى مصنف بأسم جديد مع تغيير نوع مسار الملف ان لم يكن هذا المسار موجود ( فلديك مشكلة بنسخة الأوفيس الموجودة لديك ، ولا ينفع تسطيب نسخة أوفيس جديدة الا بعد عمل فورمات فى هذه الحالة )
  12. أخى الكريم يمكنك التعديل بكل سهولة عند الضغط على ALT+F11 يظهر محرر الأكواد اضغط على نموذج الفورم المسمى Toumana الموجود على يسار النافذة ، تظهر الفورم ومن خلالها يمكنك تغيير ما تريد الشعار موجود فى أعلى الفورم بالمنتصف وهو بداخل Image1 بالضغط عليها كليك يسار ثم اختر خصائص تظهر لك نافذة تجد على يسار النافذة الجديدة كلمة picture وبجوارها بالجانب الأيمن عند الضغط عليها تظهر نافذة إختر الصورة المطلوبة من جهازك (( الشعار )) أما البيانات يمكنك الكتابة مباشرة بعد تحديد الكتابة الحالية
  13. بوركتم أستاذنا القدير // محمد صالح جعله الله بميزان حسناتكم وتقبل منى وافر الاحترام والتقدير
  14. أخى الكريم بوركتم وجزيتم عنى خيرا
  15. أخى الكريم الكود راح يكون هكذا ولاحظ التغيير فيه مع تغيير أماكن خلايا الشرط أصبحت ( 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
×
×
  • Create New...