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

أ / محمد صالح

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

  • Posts

    4,357

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

  • Days Won

    185

 نوع المحتوي 

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

  1. أ / محمد صالح
    جميعا بإذن الله وفقنا الله جميعا لكل ما يحبه ويرضاه
  2. أ / محمد صالح
    شكرا لكلماتك الطيبة بالنسبة لعدم ظهور النتائج فحلها بسيط جدا ضع في بداية الدالة Application.Volatile وبالنسبة لناتج الدالة فهو رقم من نوع double ولا يمكن أن تكون قيمته سلسلة نصية فارغة لذلك يمكنك تغيير خيارات العرض للشيت الحالي بعدم إظهار الصفر file --> options --> advanced --> display options for this worksheet --> show a zero in cells that have zero value بالتوفيق أخي الكريم ولا تنساني من صالح دعائك
  3. أ / محمد صالح
    شكرا لكلماتك الطيبة ولا يخفى عليك إمكانية دمج الدالتين في دالة واحدة مع تمرير باراميتر ثالث يحدد النوع صفر أو يترك فارغا للحالة الأولى 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 وفقنا الله جميعا لكل خير
  4. أ / محمد صالح
    إن شاء الله يكون هذا هو المطلوب 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 وفقنا الله جميعا لكل ما يحبه ويرضاه
  5. أ / محمد صالح
    شكرا لك لمشارتك معلوماتك وفيديو الشرح ردي على أساس انه سؤال وطلب عمل هذا حتي في مربعات النصوص المرتبطة بجدول وليس علي انه شرح خالص دعواتي بالتوفيق والتفوق
  6. أ / محمد صالح
    لا اعتقد هذا الامر يتم على textbox لانه مرتبط بخقل في الجدول ولكن يمكن التخايل علي ذلك بإضافة labe بنفس حدود مربع النص وخلفية شفافة وعند الضغط على Label يتم إخفاؤه ووضع التركيز في مربع النص وعند الخروج من مربع النص يتم إظهار Label اذا لم يكن فيه محتويات او يبقي مخفيا اذا احتوي textbox علي اي كتابة وتكرار هذا الكود في حدث الخالي current للنموذج Label1.visible = isnul(textbox1.value) ارجو ان تكون الفكرة اتضحت
  7. أ / محمد صالح
    وفقنا الله جميعا لكل ما يحبه ويرضاه @ابا جودى
  8. أ / محمد صالح
    جميعا بإذن الله تعالى @حمادة عمر
  9. أ / محمد صالح
    الإجابة حسب السؤال: لا يوجد اي مشكلة المهم مهارتك في توظيف الكود بما يتناسب مع برنامجك كل عام وجميع الإحوة بكل خير
  10. أ / محمد صالح
    شكرا لدعمكم أستاذ @محمد احمد لطفى باقي مشاركة الموضوع والفيديو
  11. أ / محمد صالح
    شكرا لكلماتك الطيبة استاذ هاني تفاعلكم هنا وفي يوتيوب خطوة في الحصول على البرنامج بالتوفيق للجميع
  12. أ / محمد صالح
    المنتدى به الكثير من الدرر تحتاج من يبحث عنها وهذه احداها
  13. أ / محمد صالح
    شكرا لكلماتك الطيبة أستاذ @Ali Mohamed Ali ومبارك الانضمام لفريق الموقع الاقتباس نفسه يطلب الآراء خبيرنا @محمد سلامة مرحبا بك دائما
  14. أ / محمد صالح
    بسم الله الرحمن الرحيم، السلام عليكم ورحمه الله وبركاته، كل عام وجميع زوار وأعضاء ومشرفي وإدارة منتدى أوفيسنا بكل خير وسعادة، عذرا لقلة مشاركاتي في هذا الصرح الكبير؛ نظرا لانشغالي ببعض الأمور، ولكن أعدكم دائما بكل جديد ومفيد. وفي هذه المرة أحب أن أقدم لكم هدية بعنوان احسب فاتورة الكهرباء المصرية من 2020 الى 2025 مع هذا البرنامج. فقد اصدرت وزارة الكهرباء قرارا بتحديد اسعار اكهرباء ي مصر للخمسة سنوات مقلبة من 2020 الى 2025. وكان ذلك يوم الثلاثاء 9 / 6 / 2020 فقمت بتصميم هذا البرنامج في الاكسس وقمت بعرضه هنا وبانتظار آرائكم ومقترحاتكم لتطويره. رابط الملف المستعمل في الشرح سيكون بناء على تفاعلكم مع الموضوع وتعليقاتكم في اليوتيوب. وهذا الفيديو الخاص بالشرح وعرضت في الفيديو تحديا لمن يهتم ببرمجة الويب في تحويل هذا البرنامج لصفحة ويب فمن لها من اصدقائي؟؟؟!!! وفي الأخير أدعوكم جميعا لزيارة مدونتي في ثوبها الجديد. وفقنا الله جميعا لكل ما يحب ويرضى.
  15. أ / محمد صالح
    الطريقة على ويندوز 10 هي نفسها الموجودة في الشرح على ويندوز 7
  16. أ / محمد صالح
    موعدنا اليوم مع شرح طريقة كيف تعرف أسعار العملات اليوم بدون مغادرة برنامجك في VBA اوفيس 2003 أو 2007 أو 2010 أو 2013 أو 2016 أو 2019 سواء برنامج اكسس أو اكسل أو وورد أو باوربوينت مع التعرف على أكواد عملات العالم وكذلك اسماء العملات باللغة العربية والانجليزية التعرف على نسخ النص الموجود في مربع النص إلى الحافظة والكثير من المفاجآت اكتشفها بنفسك ثالثا لمن يريد تحميل الملف الذي تم استخدامه في الشرح يمكنكم التعليق سواء هنا في المدونة أو في اليوتيوب وسيصلكم رابط الملف بإذن الله والآن مع فيديو الشرح ************** ولا تنسوا أحبابي الدعاء لغيركم بظهر الغيب حتى يقول لك الملك: آمين ولك مثلها إن شاء الله وتذكر لو بخل بها غيرك ما وصلت إليك فشارك المعلومة مع جميع أصدقائك في جميع مواقع التواصل الاجتماعي ============ القادم أفضل بإذن الله
  17. أ / محمد صالح
    إن شاء الله يفيدكم هذا الفيديو فتابعونا وفقنا الله جميعا لكل ما يحبه ويرضاه ولا ينقصني سوى دعاؤكم لي بالخير في الدنيا والآخرة ومشاركة الفيديو مع أصدقائكم فرب صديق يحتاج لما لا تحتاجه أنت
  18. أ / محمد صالح
    ربما لم تقرأ عني أنه لا توجد حماية مطلقة حتى ميكروسوفت نفسها لم تستطع حماية منتجاتها لوجود الباتشات والكراكات وإنما هي فكرة ظهرت بعد استعمال بعض الإخوة لبيانات التسجيل في جدول وهذا طبعا أسهل للعب فيه من الريجيستري
  19. أ / محمد صالح
    الفائدة من المدة التجريبية هي تجربة البرنامج لمدة 3 أيام مثلا وهل من المعقول أن يقوم إنسان بتثبيت نسخة ويندوز كل 3 أيام حتى يهرب من تسجيل برنامج؟؟؟!!!!
  20. أ / محمد صالح
    إن شاء الله يفيدك هذا الفيديو ولا ينقصني سوى دعاؤكم ومشاركة المعلومة مع جميع أصدقائكم فلو بخل بهذا غيرك ما وصلت إليك فلا تبخل بها على غيرك
  21. أ / محمد صالح
    كل شيء ممكن المهم هو إرفاق ملفك للتعديل عليه مع توضيح المطلوب تماما لكن هذه الألغاز والفوازير إجابتها قد لا تفهمها أنت *************** فمثلا للإجابةعلى هذا السؤال أقول لك: استعمل application.onkey هل فهمت شيئا؟؟!!!
  22. أ / محمد صالح
    بسم الله الرحمن الرحيم سلام الله عليكم ورحمته وبركاته طلب مني الكثير من أولياء الأمور والتلاميذ شرح درس العوامل والمضاعفات والعامل المشترك الأكبر والمضاعف المشترك الأصغر والأعداد الأولية وتحليل العدد إلى عوامله الأولية المقرر على الصف الرابع الابتدائي حيث أنه صعب جدا على التلاميذ وربما بعض الكبار كذلك فقمت ببرمجة هذه الصفحة للمساعدة في حل هذه المسائل وفهم الموضوع ببساطة https://officena.net/team/mas/maths4/ والسؤال هنا هل أكتفي بهذه الصفحة أم أسجل فيديو لشرح الدرس؟ رأيكم يهمنا أرجو من الجميع المشاركة
  23. أ / محمد صالح
    بسم الله نبدأ جمعتكم طيبة بذكر الله والصلاة على رسول الله أشكركم جميعا أحبابي في الله من كل قلبي على ثقتكم الغالية وإقبالكم على فيديوهات قناتي المتواضعة وأشكركم على دعمكم الدائم للقناة بالإعجاب والتعليق ومشاركة الفيديوهات وأعدكم بكل جديد ومفيد إن شاء الله في مجال تطوير التعليم والبرمجة والترفيه رابط القناة #ostazmas أحببت أشارككم فرحتي التي أنتم شريك فيها
  24. أ / محمد صالح
    شكرا لكلماتك العطرة نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  25. أ / محمد صالح
    ممكن بالفوتوشوب أو الباوربوينت أو البابليشر أو أي برنامج رسومي المهم هو قدرة المستخدم على توظيف أدواته
×
×
  • اضف...

Important Information

  I accept