اذهب الي المحتوي
أوفيسنا

أ / محمد صالح

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

  • Posts

    4486

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

  • Days Won

    198

 نوع المحتوي 

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

  1. أ / محمد صالح
    شكرا لمرورك الكريم لو لم يكن موجودا ما نشرت الموضوع بأكمله
  2. أ / محمد صالح
    شكرا لك أستاذ ابو محمد الزعفرانية موضوع وضع ساعة في الفورم تم تناوله كثيرا في المنتدى سواء بالفلاش أو بالكود يمكن البحث عنه أنا فقط أضفت غير الموجود حتى تكتمل السلسلة
  3. أ / محمد صالح
    جميعا بإذن الله أستاذ محمد احمد لطفى
  4. أ / محمد صالح
    جميعا بإذن الله نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  5. أ / محمد صالح
    مزيد من المعلومات حول ""
    شكرا لكلماتك الطيبة أستاذ @nogom وإن شاء الله أبلغ شكرك للأستاذ / احمد صلاح رغم اني معرفش حد بالاسم ده هههههه
  6. أ / محمد صالح
    البقاء لله وجده رحمها الله رحمة واسعة واسكنها الفردوس الأعلى من الجنة
  7. أ / محمد صالح
    رائع دائما بشمهندس @محمد طاهر وكود بسيط ورائع جدا تقبل تحياتي
  8. أ / محمد صالح
    حياكم الله أستاذ @abouelhassan
  9. أ / محمد صالح
    الأستاذ الفاضل @محمد فتحى عبد الحليم ابراهيم يبدو أن حضرتك لم تلاحظ المعادلة الموجودة في عمود المسلسل فهي الخاصة بترتيب المسلسل حتى بعد حذف صف او اكثر وبالنسبة لكود حذف صف فالأفضل استعمال تسجيل الماكرو ثم تقوم بحذف صف ثم تشاهد الكود وتقوم بالتعديل عليه كما تريد (فهذه اساسيات التعامل مع الأكواد) والأفضل البحث في المنتدى عن هذه الاساسيات خالص دعواتي بالتوفيق
  10. أ / محمد صالح
    المطلوب غير واضح المرفق به مجموعة ملفات اكسل بكل منها الاسم والحالي مكتوب والسابق غير مكتوب رجاء تفسير المطلوب بالتفصيل الممل وتوضيح الصورة النهائية المرغوبة للملف حتى يتمكن الجميع من المساعدة
  11. أ / محمد صالح
    شكرا لكلماتك الطيبة @a.kawkab لعمل ذلك يمكنك استبدال السطر الخاص بمجلد الاخراج mypath = "D:\USP41 - NF36\" & Range("C9").Value إلى mypath = ActiveWorkbook.Path وتعني مسار المصنف الحالي بالتوفيق
  12. أ / محمد صالح
    ربما في النسخ الحديثة عن طريق حقل المرفقات attachments ويتم ارفاق نسخة من البرنامج ويكون دور الزر تصدير المرفق
  13. أ / محمد صالح
    جميعا بإذن الله بالتوفيق
  14. أ / محمد صالح
    تفضل أخي الكريم هذا هو الكود بعد التعديل Sub Export_PDF_in_OneAll() Application.ScreenUpdating = False Sheets(Array("Report")).Select mypath = "D:\USP41 - NF36\" & Range("C9").Value If Dir(mypath, vbDirectory) = "" Then MkDir mypath ActiveSheet.ExportAsFixedFormat xlTypePDF, mypath & "\" & Range("c8").Value & ".pdf", xlQualityStandard Worksheets("Report").Select Application.ScreenUpdating = True MsgBox "Done" End Sub لاحظ وضع مجلد الحفظ في متغير حتى لا نكرر كتابته وأيضا فحص ما إذا كان المجلد موجودا أو لا فإذا لم يكن موجودا فيتم انشاؤه ثم بعدها يتم التصدير لاجظ إضافة امتداد الملف في نهاية الاسم ولا تنسوني من صاح دعائكم
  15. أ / محمد صالح
    يفضل الشرح بالتفصيل للمشكلة المطلوب حلها وارفاق ملف العمل الذي واجهتك فيه المشكلة السؤال عن امسل والمرفق وورد؟؟!!!
  16. أ / محمد صالح
    تنسيق الخلية عملة currency يقرأ عملة واحدة وهي عملة البلد المحددة في إعدادات الويندوز ضمن اللغة والمنطقة. وللتغلب على هذه المشكلة ان تضيف عمودا يخص العملة وتكتب فيه رمز عملة الدين وتحعل باقي الاعمدة تنسيق رقم number او عام general وليست عملة currency
  17. أ / محمد صالح
    معنى شيت ورقة عمل والشيت الحاص بالسنة القادمة هو نسخة من الشيت الخاص بالسنة الحالية الذي يتغير فقط هو التسجيل هنا ما يخص هذا العام وهناك ما يخص العام الماضي وبالنسبة لموضوع أن أعمل لك شيت فربما التعديل على ملفك يكون أسهل
  18. أ / محمد صالح
    بالتوفيق @aladdin61 كلامي على اساس انك تجمع بدالة sum وانها لا تجمع معك. لذلك تم اقتراح بديل sum وهي دالة subtotal ولم ترد حضرتك على رسالة الخطأ في طريقة استعمالك لدالة subtotal فهل معنى هذا ان الرسالة مازالت تظهر ام انها اختفت وقامت الدالة بعملها المطلوب ؟؟؟!!!!
  19. أ / محمد صالح
    بالتوفيق
  20. أ / محمد صالح
    الرسالة تعني أنك أدخلت عدد قليل من وسائط الدالة وهي فقط وسيطتين الرقم 9 والنطاق المراد جمعه ربما يكون ضبط جهازك يستحدم الفاصلة المنقوطة بدلا من الفاصلة جرب =SUBTOTAL(9;A1:A8) رغم أني مع المقترح الخاص بارفاق ملفك أو جزء منه الذي به المشكلة
  21. أ / محمد صالح
    يمكنك استعمال التنسيق الشرطي إذا كانت قيمة الخلية = "تم نقل الموظف" يكون لون الخلفية أخضر وغير ذلك يكون أحمر. وعند تنفيذ أمر النقل في زر النقل يوضع سطر لجعل قيمة الخلية = "تم نقل الموظف"
  22. أ / محمد صالح
    جرب استعمال =SUBTOTAL(9,A1:A8) مع تغيير المدى للمطلوب عندك
  23. أ / محمد صالح
    حسب فهمي للمطلوب المطلوب لا يتم بالمعادلات لأنه سيعطي حطأ مرجع دائري circular reference لأن الخلية المطلوب نقل القيمة إليها محسوبة ضمن الخلية التي يتم نقلها لذا اقترح عمل شيت خاص بكل عام ويتم جلب مجموع نهاية العام في خانة ما قبله في العام التالي بهذه الطريقة لن توجد أخطاء في المعادلات وفقنا الله جميعا
  24. أ / محمد صالح
    إذا كان فهمي للمطلوب صحيحا فلا نحتاج لدالة if ويمكنك وضع المعادلة التالية في الخلية H3 =0.8+CEILING.MATH(G3-5,2)*0.175 وفي الخلية I3 =G3-H3 ثم استعمل نسخ المعادلة لأسفل للتطبيق على باقي الخلايا
  25. أ / محمد صالح
    لا أدري لماذا تستخدم دالة indirect طالما أن المطلوب إرجاعه هو قيمة موجودة في خلية نستخدم indirect لتحويل نص مكتوب في خلية الى معادلة. إذا كان المطلوب جلب قيمة موجودة في خلية معينة في شيت معين من ملف معين حتى لو مغلق يمكن استعمال هذه المعادلة ='C:\path\to\file\[workbookName.xlsx]sheetName'!$A$1 لاحظ كتابة المسار الكامل للملف ولاحظ إحاطة مسار الملف حتى اسم الشيت بفاصلة مفردة ولا حظ كتابة اسم المصنف بين قوسين مربعين ولاحظ علامة التعجب قبل مرجع النطاق المطلوب أرحو أن يكون اتضح الأمر
×
×
  • اضف...

Important Information

  I accept