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

أ / محمد صالح

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

  • Posts

    4,357

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

  • Days Won

    185

 نوع المحتوي 

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

  1. أ / محمد صالح
    تنسيق الخلية عملة currency يقرأ عملة واحدة وهي عملة البلد المحددة في إعدادات الويندوز ضمن اللغة والمنطقة. وللتغلب على هذه المشكلة ان تضيف عمودا يخص العملة وتكتب فيه رمز عملة الدين وتحعل باقي الاعمدة تنسيق رقم number او عام general وليست عملة currency
  2. أ / محمد صالح
    معنى شيت ورقة عمل والشيت الحاص بالسنة القادمة هو نسخة من الشيت الخاص بالسنة الحالية الذي يتغير فقط هو التسجيل هنا ما يخص هذا العام وهناك ما يخص العام الماضي وبالنسبة لموضوع أن أعمل لك شيت فربما التعديل على ملفك يكون أسهل
  3. أ / محمد صالح
    بالتوفيق @aladdin61 كلامي على اساس انك تجمع بدالة sum وانها لا تجمع معك. لذلك تم اقتراح بديل sum وهي دالة subtotal ولم ترد حضرتك على رسالة الخطأ في طريقة استعمالك لدالة subtotal فهل معنى هذا ان الرسالة مازالت تظهر ام انها اختفت وقامت الدالة بعملها المطلوب ؟؟؟!!!!
  4. أ / محمد صالح
    بالتوفيق
  5. أ / محمد صالح
    جرب هذا الأمر لنسخ جميع الملفات والمجلدات الفرعية داخل الجهاز الذي اسمه server_name ومجلد المشاركة باسم ahmed إلى بارتيشن d ومجلد اسمه mohamed xcopy "\\SERVER_NAME\ahmed" "D:\mohamed" /f /j /s /w /z
  6. أ / محمد صالح
    الرسالة تعني أنك أدخلت عدد قليل من وسائط الدالة وهي فقط وسيطتين الرقم 9 والنطاق المراد جمعه ربما يكون ضبط جهازك يستحدم الفاصلة المنقوطة بدلا من الفاصلة جرب =SUBTOTAL(9;A1:A8) رغم أني مع المقترح الخاص بارفاق ملفك أو جزء منه الذي به المشكلة
  7. أ / محمد صالح
    يمكنك استعمال التنسيق الشرطي إذا كانت قيمة الخلية = "تم نقل الموظف" يكون لون الخلفية أخضر وغير ذلك يكون أحمر. وعند تنفيذ أمر النقل في زر النقل يوضع سطر لجعل قيمة الخلية = "تم نقل الموظف"
  8. أ / محمد صالح
    جرب استعمال =SUBTOTAL(9,A1:A8) مع تغيير المدى للمطلوب عندك
  9. أ / محمد صالح
    حسب فهمي للمطلوب المطلوب لا يتم بالمعادلات لأنه سيعطي حطأ مرجع دائري circular reference لأن الخلية المطلوب نقل القيمة إليها محسوبة ضمن الخلية التي يتم نقلها لذا اقترح عمل شيت خاص بكل عام ويتم جلب مجموع نهاية العام في خانة ما قبله في العام التالي بهذه الطريقة لن توجد أخطاء في المعادلات وفقنا الله جميعا
  10. أ / محمد صالح
    إذا كان فهمي للمطلوب صحيحا فلا نحتاج لدالة if ويمكنك وضع المعادلة التالية في الخلية H3 =0.8+CEILING.MATH(G3-5,2)*0.175 وفي الخلية I3 =G3-H3 ثم استعمل نسخ المعادلة لأسفل للتطبيق على باقي الخلايا
  11. أ / محمد صالح
    لا أدري لماذا تستخدم دالة indirect طالما أن المطلوب إرجاعه هو قيمة موجودة في خلية نستخدم indirect لتحويل نص مكتوب في خلية الى معادلة. إذا كان المطلوب جلب قيمة موجودة في خلية معينة في شيت معين من ملف معين حتى لو مغلق يمكن استعمال هذه المعادلة ='C:\path\to\file\[workbookName.xlsx]sheetName'!$A$1 لاحظ كتابة المسار الكامل للملف ولاحظ إحاطة مسار الملف حتى اسم الشيت بفاصلة مفردة ولا حظ كتابة اسم المصنف بين قوسين مربعين ولاحظ علامة التعجب قبل مرجع النطاق المطلوب أرحو أن يكون اتضح الأمر
  12. أ / محمد صالح
    هل المطلوب تاريخ نهاية العمل؟ إذا كان هذا هو المطلوب فيمكنك استعمال المعادلة التالية في G4 =DATE(YEAR(E4)+F4,MONTH(E4),DAY(E4)-1) ثم سجبها لسفل
  13. أ / محمد صالح
    فكرة qr code هي تحويل البيانات الي صورة مشفرة بعد قراءتها بقارى qr reader يظهر محتواها وفي الغالب يكون هذا المحتوى رابط علي الانترنت او نص لذلك يجب عليك اولا تحديد المحتوى الذي سيتم تحويله لكود ثم استعمال vba لانشاء صورة qr code بالتوفيق
  14. أ / محمد صالح
    جميعا أخي علي
  15. أ / محمد صالح
    جميعا بإذن الله أستاذ علي
  16. أ / محمد صالح
    أحسن الله إليك أخي الفاضل نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  17. أ / محمد صالح
    من أهم الإجراءات بعد تحديث ويندوز 10 إلى آخر إصدار حذف مجلد ويندوز القديم remove windows old folder، وذلك لزيادة المساحة الحره في القرص الصلب الخاص بالنظام. كيف تزيد مساحة C وتحذف مجلد Windows.old بعد تحديث ويندوز 10 لآخر إصدار؟ وفر مساحة 23 جيجا بايت من الهارد ديسك. نظف جهازك بدون برامج. زود سرعة جهازك بدون برامج. Delete your previous version of Windows. Delete Windows.old folder from Windows 10. Can I delete the Windows old folder? How to delete the Windows.old folder on Windows 10 ... free up space ... from your PC. #ostazmas ادعمنا بـ إعجاب Like تعليق Comment مشاركة Share
  18. أ / محمد صالح
    مرحبا بك أستاذ @abouelhassan يمكنك استعمال الوسيطة الأولى sh والتي تعني كائن الشيت الحالي في الشرط ليصبح الكود كالتالي: Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Sh.Name = "Sheet3" Then If Not Application.Intersect(Target, Range("a1:a1000")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If Else If Not Application.Intersect(Target, Range("a1:w1")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True End If End If End Sub لاحظ استعمال sheet3 وهو اسم الشيت المطلوب استثناؤه خالص دعواتي بالتوفيق
  19. أ / محمد صالح
    شكرا لتعليقك وكلماتك الطيبة استاذ @هانى محمد الغرض طبعا هو هل جزاء الإحسان إلا الإحسان ورد الجميل بالأجمل. الفائدة موجودة للجميع هنا وهناك وإذا كنت قد خالفت تعليمات المنتدى فلا امانع في حذف جميع الموضوعات المخالفة. الحمد لله وهذا ما افعله نشر كل ما اعرفه واستفدت به حتي يستفيد اصدقائي أيضا. مرة أخرى شكرا لذوقك العالي وكلامك الطيب فالكلمة الطيبة صدقة.
  20. أ / محمد صالح
    بعض ما عندكم يا صديقي @عبدالله المجرب
  21. أ / محمد صالح
    أحسن الله إليكم أستاذ @Ali Mohamed Ali جميعا بإذن الله
  22. أ / محمد صالح
    شكرا لدعمك استاذ @هانى محمد يبدو أن حضرتك مش متابع
  23. أ / محمد صالح
    عشاق الإكسل هل سمعت عن المتغيرات في البرمجة؟ اكيد نعم. هل سمعت عن استعمال المتغيرات في المعادلات؟؟!!! اجب بنفسك في الردود بمناسبة إعادة فتح المساجد للصلاة، هديتي حصريا لكل عشاق الحديث في برنامج ميكروسوفت اكسل ms excel 365، شرح دالة let الجديدة. طريقة الاشتراك في office insider. ما الجديد في اكسل 2020 excel 2020. استعمال المتغيرات في المعادلات. شروط تسميه المتغيرات في لغات البرمجة. امثله على excel let function من البسيط الى المعقد. وغيرها الكثير ...... اكتشفها بنفسك. وبالنسبة لرابط الملف المستعمل في الشرح، وملف الريجيستري الذي يتيح لك الاشتراك في office insider. سيتم وضع الرابط بناء على التفاعل مع الموضوع والفيديو بالتعليق والمشاركة. هل جزاء الإحسان إلا الإحسان؟؟!!!
  24. أ / محمد صالح
    شكرا لكلماتك الطيبة أستاذ @احمد يوسف
  25. أ / محمد صالح
    في حدث عند تغيير التحديد Worksheet_SelectionChange ضع كود تغيير اللغة إذا كان رقم العمود الحالي كذا اجعل اللغة كذا Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = 1 Then LoadKeyboardLayout "00000401", 1 'Arabic Else LoadKeyboardLayout "00000409", 1 'English End If End Sub مع إضافة كود دالة تغيير لغة لوحة المفاتيح في موديول منفصل #If Win64 Then Declare PtrSafe Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long Declare PtrSafe Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long #Else Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long #End If خالص دعواتي بالتوفيق
×
×
  • اضف...

Important Information

  I accept