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

أ / محمد صالح

أوفيسنا
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    4479

  • تاريخ الانضمام

  • Days Won

    198

 نوع المحتوي 

كل منشورات العضو أ / محمد صالح

  1. أ / محمد صالح
    شكرا لكلماتك الرقيقة أستاذنا الفاضل نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا وأرجو من المشرفين وضع رابط المرفق في المشاركة ١٤ في أول الموضوع
  2. أ / محمد صالح
    شكرا لمرورك الكريم أخي الكريم الملف فعلا به فكر ويعتمد على حسابات كبيرة جدا للوصول لهذا الغرض بدون استعمال اي وسائل تكنولوجية فقط الجدول في ورقة مطبوعة الطريقة مطورة عن فكرة رجل عجوز في معرفة اليوم الخاص بالتاريخ خلال الشهر الحالي أو السابق أو التالي ويكفي أنه أول موضوع لي بمنتدى الإكسل لذا هل نتنافس في التوصل لسر ترتيب الأرقام بهذه الطريقة؟! فين الهمة يا شباب؟!
  3. أ / محمد صالح
    بارك الله لك أستاذ سعيد كلامك يؤكد كلامي ولا تعارض بينهما حيث يشجع كلاهما الإنسان على الاجتهاد والعمل والبحث والتعلم مهما كانت معرفته وأذكر حمة تقول: من قال: قد علمت. فقد جهل. ولا يتكبر أحدنا على سؤال الآخرين فمفتاح العلم السؤال ................... أرجو أن يكون الأخ زاكي بوشلاغم صاحب السؤال قد استفاد من هذه النقاشات الرائعة وتوصل لما يريد كل عام والجميع بخير وسعادة
  4. أ / محمد صالح
    جزاك الله خيرا أستاذ ياسر بدون مجاملات ولا قصد لأي إنسان مشكلة بعض الأصدقاء هنا في المنتدى أن بعضهم لا يريد أن يتعلم ليفعلها بنفسه وإنما يريد أن يحصل على ما يريده جاهزا ولا يعلم أنه بهذه الطريقة يجعل نفسه أسيرا لمن يجيبه أو لا يجيب حسب ظروف كل مشارك وإذا بدأ كل صاحب موضوع بالبحث والتعلم أولا ما حدث مثل هذا الجدل غير المفيد لصاحبه او المجيب وفقنا الله جميعا لكل ما يحب ويرضى
  5. أ / محمد صالح
    طالما لم تصلح معك فاعلم أنه يوجد خطأ في تنفيذ الخطوات التفصيلية المذكورة في المشاركة السابقة لا تعطني سمكة ولكن علمني كيف أصطاد
  6. أ / محمد صالح
    يوجد فرق بين thisworkbook و workbook الخطوات بالتفصيل انسخ الكود افتح محرر فيجوال بيسك بالضغط على alt+f11 في أعلى يسار المحرر نجد thisworkbook اضغط مزدوجا عليه الصق الكود عدل نص الرسالة إلى ما تريد
  7. أ / محمد صالح
    أعتقد المطلوب المذكور تم تنفيذه بالضبط في هذا المشاركة وإذا لم يكن هذا هو المطلوب يرجى شرح المطلوب بالتفصيل وشعارنا هنا المستحيل يوجد في عقول الكسالى
  8. أ / محمد صالح
    يبدو أن الأخ صاحب السؤال لا يريد أن يصل لإجابة سؤاله بأبسط الأكواد فهو لم يرد على منشورات مساعدتي له سواء بالقبول او الرفض وهذا ليس من آداب الحوار هدانا الله جميعا للصواب تقبلوا وافر احترامي
  9. أ / محمد صالح
    طريقة العمل في 2013 هي نفسها في 2010 بنسخ الكود السابق ووضعه في this workbook في محرر vba
  10. أ / محمد صالح
    تجديد للاستفادة الجماعية
  11. أ / محمد صالح
    المطلوب الأول واضح لذا تفضل هذا الحل mas_أقساط.rar
  12. أ / محمد صالح
    الملف يعمل بصورة ممتازة بارك اله لك أستاذ زيزو ولكن هذا الملف مرتبط بملفات أخرى لديك وإذا عرضت لنا صورة رسالة الخطأ ربما نصل لمعالجته بإذن الله
  13. أ / محمد صالح
    الملف موجود به كود رسالة فعلا Private Sub Workbook_Open() MsgBox "من إعداد بوشلاغم زاكي مقتصد متوسطة طالب عبد الله **بئر الشهداء** " _ & vbNewLine & "" & vbNewLine & "مع تحياتي و احترامي للأخ مخناش جمال " _ & vbNewLine & "" & vbNewLine & "" _ , vbMsgBoxRight, "مقتصد متوسطة طالب عبد الله" End Sub
  14. أ / محمد صالح
    إجابة نظرية مثل السؤال ممكن يكون السبب فواصل الصفحات أو ممكن ترفق ملفك لفحصه أو مثال منه
  15. أ / محمد صالح
    جرب هذا المرفق على العمود b كله وبأبسط كود ممكن ملحوظة: الكود مذكور في المشاركة السابقة No_writing in column b.rar
  16. أ / محمد صالح
    جزاك الله خيرا أستاذ سليم ولكن أعتقد أن السؤال عكس الكود فإذا كانتa1=1 لا يقبل التعديل علىb1 وتعود لقيمتها السابقة وإذا كانت a1 أي قيمة أخرى لا يتم تنفيذ شيء أو يقبل التعديل علىb1 لذا أقترح تعديل الكود إلى Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Column = 2 And [a1] = 1 Then Application.Undo Application.EnableEvents = True End Sub الباقي على صاحب السؤال
  17. أ / محمد صالح
    راجع الموضوع من بدايته ستجد إصدارات مختلفة بعد إضافة مقترحات الزملاء وقم بفحص أماكن الكود هذا فقط كل ما يلزمك حتى تضيف ساعة إلى برنامجك
  18. أ / محمد صالح
    شكرا جزيلا لمروركم الكريم أحبتي في الله ولكلماتكم الرقيقة
  19. أ / محمد صالح
    ما شاء الله إبداعات لا تنتهي موفقين إن شاء الله
  20. أ / محمد صالح
    يفضل إرفاق مثال بسيط موضح به المطلوب بالتفصيل الكلام النظري يصعب الإجابة عليه وإذا حدث فيصعب فهمها
  21. أ / محمد صالح
    فكرة رائعة أستاذ سعيد وهروب جميل من circular reference وفقكم الله لكل ما يحب ويرضى
  22. أ / محمد صالح
    وإياكم أستاذ ناصر الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هدانا الله
  23. أ / محمد صالح
    بعد إذن حبيبنا الغالي أبا البراء وعلى نفس طريقة الكود السابق فقط يمكن تعديله إلى Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 7 Then If Target.Column >= 89 And Target.Column <= 100 Then Application.EnableEvents = False Cells(Target.Row, "CT").Value = "" Cells(Target.Row, "CT").Value = Cells(Target.Row, "CV").Value - Int(Cells(Target.Row, "CV").Value) Application.EnableEvents = True End If End If End Sub وفقنا الله جميعا لكل ما يحب ويرضى
  24. أ / محمد صالح
    لإثراء الموضوع وكما طلب الأخ صاحب السؤال الأستاذ كعبلاوي هذه صورة توضح الخطوات بدقة في أوفيس 2003 وما قبله بداية من إظهار شريط الأدوات forms بالضغط كلك يمين RC على أي شريط أدوات وفقنا الله وإياكم لكل ما يحب ويرضى
  25. أ / محمد صالح
    لا يوجد ماكرو اسمه go to في الملف إلا إذا كنت تقصد طريقة عمل زر زيادة ونقصان رقم الجلوس ملحوظة أخيرة لم يعد أحد يستخدم أوفيس 2003 ويظل يحرم نفسه من الكثير من السرعة والدقة في إنجاز المهام بأوفيس أحدث مثل 2007 2010 2013 2016
×
×
  • اضف...

Important Information

  I accept