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

أ / محمد صالح

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

  • Posts

    4486

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

  • Days Won

    198

 نوع المحتوي 

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

  1. أ / محمد صالح
    هل المطلوب تاريخ نهاية العمل؟ إذا كان هذا هو المطلوب فيمكنك استعمال المعادلة التالية في G4 =DATE(YEAR(E4)+F4,MONTH(E4),DAY(E4)-1) ثم سجبها لسفل
  2. أ / محمد صالح
    جميعا أخي علي
  3. أ / محمد صالح
    جميعا بإذن الله أستاذ علي
  4. أ / محمد صالح
    مرحبا بك أستاذ @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 وهو اسم الشيت المطلوب استثناؤه خالص دعواتي بالتوفيق
  5. أ / محمد صالح
    شكرا لتعليقك وكلماتك الطيبة استاذ @هانى محمد الغرض طبعا هو هل جزاء الإحسان إلا الإحسان ورد الجميل بالأجمل. الفائدة موجودة للجميع هنا وهناك وإذا كنت قد خالفت تعليمات المنتدى فلا امانع في حذف جميع الموضوعات المخالفة. الحمد لله وهذا ما افعله نشر كل ما اعرفه واستفدت به حتي يستفيد اصدقائي أيضا. مرة أخرى شكرا لذوقك العالي وكلامك الطيب فالكلمة الطيبة صدقة.
  6. أ / محمد صالح
    بعض ما عندكم يا صديقي @عبدالله المجرب
  7. أ / محمد صالح
    أحسن الله إليكم أستاذ @Ali Mohamed Ali جميعا بإذن الله
  8. أ / محمد صالح
    شكرا لدعمك استاذ @هانى محمد يبدو أن حضرتك مش متابع
  9. أ / محمد صالح
    عشاق الإكسل هل سمعت عن المتغيرات في البرمجة؟ اكيد نعم. هل سمعت عن استعمال المتغيرات في المعادلات؟؟!!! اجب بنفسك في الردود بمناسبة إعادة فتح المساجد للصلاة، هديتي حصريا لكل عشاق الحديث في برنامج ميكروسوفت اكسل ms excel 365، شرح دالة let الجديدة. طريقة الاشتراك في office insider. ما الجديد في اكسل 2020 excel 2020. استعمال المتغيرات في المعادلات. شروط تسميه المتغيرات في لغات البرمجة. امثله على excel let function من البسيط الى المعقد. وغيرها الكثير ...... اكتشفها بنفسك. وبالنسبة لرابط الملف المستعمل في الشرح، وملف الريجيستري الذي يتيح لك الاشتراك في office insider. سيتم وضع الرابط بناء على التفاعل مع الموضوع والفيديو بالتعليق والمشاركة. هل جزاء الإحسان إلا الإحسان؟؟!!!
  10. أ / محمد صالح
    شكرا لكلماتك الطيبة أستاذ @احمد يوسف
  11. أ / محمد صالح
    في حدث عند تغيير التحديد 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 خالص دعواتي بالتوفيق
  12. أ / محمد صالح
    جميعا بإذن الله وفقنا الله جميعا لكل ما يحبه ويرضاه
  13. أ / محمد صالح
    شكرا لكلماتك الطيبة بالنسبة لعدم ظهور النتائج فحلها بسيط جدا ضع في بداية الدالة Application.Volatile وبالنسبة لناتج الدالة فهو رقم من نوع double ولا يمكن أن تكون قيمته سلسلة نصية فارغة لذلك يمكنك تغيير خيارات العرض للشيت الحالي بعدم إظهار الصفر file --> options --> advanced --> display options for this worksheet --> show a zero in cells that have zero value بالتوفيق أخي الكريم ولا تنساني من صالح دعائك
  14. أ / محمد صالح
    شكرا لكلماتك الطيبة ولا يخفى عليك إمكانية دمج الدالتين في دالة واحدة مع تمرير باراميتر ثالث يحدد النوع صفر أو يترك فارغا للحالة الأولى 1 أو أي رقم غير صفر للحالة الثانية Function kest(total As Double, start As Date, Optional ftype As Boolean = 0) As Double If ftype = 0 Then If Date >= DateAdd("m", 1, start) And Date <= DateAdd("m", 37, start) Then If Month(Date) - Month(start) = 1 Then kest = 550 * (total * 96.25 / 100 / 550 - Int(total * 96.25 / 100 / 550)) + total * 3.75 / 100 Else kest = (total - 550 * (total * 96.25 / 100 / 550 - Int(total * 96.25 / 100 / 550)) - total * 3.75 / 100) / 35 End If Else kest = 0 End If Else If Date >= DateAdd("m", 1, start) And Date <= DateAdd("m", 11, start) Then kest = total / 10 Else kest = 0 End If End If End Function وفقنا الله جميعا لكل خير
  15. أ / محمد صالح
    إن شاء الله يكون هذا هو المطلوب Function kest(total As Double, start As Date) As Double If Date >= DateAdd("m", 1, start) And Date <= DateAdd("m", 37, start) Then If Month(Date) - Month(start) = 1 Then kest = 550 * (total * 96.25 / 100 / 550 - Int(total * 96.25 / 100 / 550)) + total * 3.75 / 100 Else kest = (total - 550 * (total * 96.25 / 100 / 550 - Int(total * 96.25 / 100 / 550)) - total * 3.75 / 100) / 35 End If Else kest = 0 End If End Function Function kest2(total As Double, start As Date) As Double If Date >= DateAdd("m", 1, start) And Date <= DateAdd("m", 11, start) Then kest2 = total / 10 Else kest2 = 0 End If End Function الدالة kest بديل المعادلة في C3 الدالة kest2 بديل المعادلة في K3 الباراميتر الأول هو المبلغ والثاني هو تاريخ البداية ولا تنس تحويل الملف لصيغة تقبل الأكواد xlsm , xlsb وفقنا الله جميعا لكل ما يحبه ويرضاه
  16. أ / محمد صالح
    شكرا لك لمشارتك معلوماتك وفيديو الشرح ردي على أساس انه سؤال وطلب عمل هذا حتي في مربعات النصوص المرتبطة بجدول وليس علي انه شرح خالص دعواتي بالتوفيق والتفوق
  17. أ / محمد صالح
    لا اعتقد هذا الامر يتم على textbox لانه مرتبط بخقل في الجدول ولكن يمكن التخايل علي ذلك بإضافة labe بنفس حدود مربع النص وخلفية شفافة وعند الضغط على Label يتم إخفاؤه ووضع التركيز في مربع النص وعند الخروج من مربع النص يتم إظهار Label اذا لم يكن فيه محتويات او يبقي مخفيا اذا احتوي textbox علي اي كتابة وتكرار هذا الكود في حدث الخالي current للنموذج Label1.visible = isnul(textbox1.value) ارجو ان تكون الفكرة اتضحت
  18. أ / محمد صالح
    وفقنا الله جميعا لكل ما يحبه ويرضاه @ابا جودى
  19. أ / محمد صالح
    جميعا بإذن الله تعالى @حمادة عمر
  20. أ / محمد صالح
    الإجابة حسب السؤال: لا يوجد اي مشكلة المهم مهارتك في توظيف الكود بما يتناسب مع برنامجك كل عام وجميع الإحوة بكل خير
  21. أ / محمد صالح
    شكرا لدعمكم أستاذ @محمد احمد لطفى باقي مشاركة الموضوع والفيديو
  22. أ / محمد صالح
    شكرا لكلماتك الطيبة استاذ هاني تفاعلكم هنا وفي يوتيوب خطوة في الحصول على البرنامج بالتوفيق للجميع
  23. أ / محمد صالح
    المنتدى به الكثير من الدرر تحتاج من يبحث عنها وهذه احداها
  24. أ / محمد صالح
    شكرا لكلماتك الطيبة أستاذ @Ali Mohamed Ali ومبارك الانضمام لفريق الموقع الاقتباس نفسه يطلب الآراء خبيرنا @محمد سلامة مرحبا بك دائما
  25. أ / محمد صالح
    بسم الله الرحمن الرحيم، السلام عليكم ورحمه الله وبركاته، كل عام وجميع زوار وأعضاء ومشرفي وإدارة منتدى أوفيسنا بكل خير وسعادة، عذرا لقلة مشاركاتي في هذا الصرح الكبير؛ نظرا لانشغالي ببعض الأمور، ولكن أعدكم دائما بكل جديد ومفيد. وفي هذه المرة أحب أن أقدم لكم هدية بعنوان احسب فاتورة الكهرباء المصرية من 2020 الى 2025 مع هذا البرنامج. فقد اصدرت وزارة الكهرباء قرارا بتحديد اسعار اكهرباء ي مصر للخمسة سنوات مقلبة من 2020 الى 2025. وكان ذلك يوم الثلاثاء 9 / 6 / 2020 فقمت بتصميم هذا البرنامج في الاكسس وقمت بعرضه هنا وبانتظار آرائكم ومقترحاتكم لتطويره. رابط الملف المستعمل في الشرح سيكون بناء على تفاعلكم مع الموضوع وتعليقاتكم في اليوتيوب. وهذا الفيديو الخاص بالشرح وعرضت في الفيديو تحديا لمن يهتم ببرمجة الويب في تحويل هذا البرنامج لصفحة ويب فمن لها من اصدقائي؟؟؟!!! وفي الأخير أدعوكم جميعا لزيارة مدونتي في ثوبها الجديد. وفقنا الله جميعا لكل ما يحب ويرضى.
×
×
  • اضف...

Important Information

  I accept