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

أ / محمد صالح

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

  • Posts

    4,444

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

  • Days Won

    192

 نوع المحتوي 

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

  1. أ / محمد صالح
    إن شاء الله تفيدك هذه المواضيع
  2. أ / محمد صالح
    ما نظام التشغيل الموجود على الأجهزة؟
  3. أ / محمد صالح
    الشاشات التاتش بها لوحة مفاتيح touch keyboard وكل جهاز ويندوز يحتوي على on screen keyboard فلا حاجة لكل هذا التعب بالتوفيق
  4. أ / محمد صالح
    الفكرة تكررت في موضوعات كثيرة ويجب أ ن نتعلم مما سبق
  5. أ / محمد صالح
    شكرا لك يا صديقي @د.كاف يار
  6. أ / محمد صالح
    كلامي عن الخطأ في المشاركة الأولى لك وبالنسبة لتعديل المعادلة جرب هذه =If(MOD(A1,B1)=0,B1,MOD(A1,B1)) بالتوفيق
  7. أ / محمد صالح
    الناتج الذي قدمته ( 5 ) خطأ والصواب 4 لأن المتبقي من 524 بعد طرح الرقم 5 عدد 104 مرة يساوي 524 - 520 = 4 ويمكنك استعمال المعادلة التالية =MOD(A1,B1) حيث A1 بها الرقم الأكبر و B1 بها الرقم الأصغر وهذه المعادلة تقوم بجلب باقي قسمة الرقم الأول على الثاني بالتوفيق
  8. أ / محمد صالح
    بعد إذن صديقي بن علية طبعا تفضل أخي الكريم هذه فكرتي في تنفيذ المطلوب في شيت 2 ولكن أنصح بوضع الرقم الأكبر 10 تحت خانة الطول والرقم الأصغر 8 تحت خانة العرض حتى تحصل على أفضل النتائج بالتوفيق mas_cut_draw.xlsb
  9. أ / محمد صالح
    المشكلة في رقم الصف الذي يجلب بياناته ويضعها على الزر لاحظ هذا السطر Controls("C" & I).Caption = SH.Range("b" & I ) يجلب الصفوف من 1 إلى 20 من العمود B مع ملاحظة أن الأصناف تبدأ من الصف 3 لذلك ينبغي إضافة 2 ليصبح الكود Controls("C" & I).Caption = SH.Range("b" & I + 2) ونفس الشيء في هذا السطر Controls("Command" & I).Caption = SH.Range("g" & I ) وينبغي إضافة 1 لأن صف العنوان غير مطلوب ليصبح الكود Controls("Command" & I).Caption = SH.Range("g" & I + 1) بالتوفيق
  10. أ / محمد صالح
    يبدو أن حضرتك ما ضغطت على الرابط الموجود في كلمات (استعمال محرك البحث) في مشاركتي الأولى على العموم أحد الحلول الموجودة في نتائج البحث: أن تضع كود فك الحماية في بداية الإجراء بعد sub name-of-sub وتعود لتضع كود الحماية في نهايته قبل end sub بالتوفيق
  11. أ / محمد صالح
    يمكنك الاستفادة من هذا الموضوع
  12. أ / محمد صالح
    أفضل من يجيبك هو محرك البحث وهذه أفضل خيارات البحث للحصول على أفضل النتائج: البحث في : هذا المنتدى البحث عن النتائج التي تحوي: كل كلمات البحث
  13. أ / محمد صالح
    الأمر بسيط جدا أن تضيف شرطا إذا كانت الدرجة فارغة فالنتيجة فارغة يمكنك استعمال هذه المعادلة في D4 =IF(C4="","",IF(C4>=60,"ناجح","راسب")) بالتوفيق
  14. أ / محمد صالح
    أول خطوة في كتابة موضوع جديد هي استعمال محرك البحث داخل هذا المنتدى وهذه أفضل طرق وخيارات البحث بالتوفيق
  15. أ / محمد صالح
  16. أ / محمد صالح
    ما شاء الله على الإبداع وهذا دوري تم تعديل الكود ليقرأ قيم الجروف المذكورة سابقا <!DOCTYPE html><html dir="rtl"><head><title>تحويل الجمل إلى قيمتها الرقمية</title><meta charset="UTF-8"></head><body> <div id="mydiv" style="border: 5px double red; padding: 10px;margin:10px;"><h2>تحويل الجمل إلى قيمتها الرقمية</h2> <input id="numb" placeholder="ادخل الجملة او الإسم" onfocus="this.select();" onkeyup="mycalc()" /> <p id="result">هنا تظهر قيمة ما تكتب أثناء الكتابة.</p> <p>برمجة <a href="https://mr-mas.com" target="_blank">أ / محمد صالح</a></p> </div> <script> function mycalc(){ var myArray = {"أ": 1, "ب": 2, "ج": 3, "د": 4, "ه": 5, "و": 6, "ز": 7, "ح": 8, "ط": 9, "ي": 10, "ى": 10, "ك": 20, "ل": 30, "م": 40, "ن": 50, "س": 60, "ع": 70, "ف": 80, "ص": 90, "ق": 100, "ر": 200, "ش": 300, "ت": 400, "ث": 500, "خ": 600, "ذ": 700, "ض": 800, "ظ": 900, "غ": 1000, "ا": 1, "إ": 1, "ئ": 10, "ء": 1, "ؤ": 6, "ة": 5, "آ": 1, " ": 0}; var mystr = document.getElementById("numb").value; var myval = 0; for (var i = 0; i < mystr.length; i++) { myval += myArray[mystr.charAt(i)]; } document.getElementById("result").innerHTML= "القيمة الرقمية: "+myval; } </script> </body></html> هذه واحدة من مجموعة القيم موديول horof ودور أخي خالد أن يفعل مجموعة القيم الثانية بالتوفيق mascharval.rar
  17. أ / محمد صالح
    يجب التواصل مع مسئول IT لتمكين الماكرو على جهازك فقط
  18. أ / محمد صالح
    حسب فهمي للمطلوب أنك تريد وضع معادلة مضمونها إذا كانت القراءة الحالية والسابقة موجودة يقوم بطرحهما واذا لم يكونا موجودين يضرب D5*J5*I5 ويحولها إلى قيم في هذه الحالة لا نحتاج لترحيل حاصل الطرح ولا نحتاج textbox3 في النموذج بالتوفيق wor.xlsm
  19. أ / محمد صالح
    لا يوجد في كود زر تنفيذ المعادلة أي مسح للبيانات فقط وضع المعادلة وتحويلها إلى قيم With ws lr = .Cells(Rows.Count, 4).End(xlUp).Row .Range("h5:h" & lr).Formula = "=D5*J5*I5" .Range("h5:h" & lr).Value = .Range("h5:h" & lr).Value End With ولو بها بيانات ماذا تكون المعادلة ؟ نص فارغ مثلا
  20. أ / محمد صالح
    مجهود رائع بارك الله فيك أنا شخصيا لم أذكرها في ملفي للعلم بها وبالنسبة لملف حضرتك يمكن اختصار معادلة تاريخ الميلاد مع الاهتمام بما بعد 2100 إلى =DATE(MID(B4,1,1)*100+1700+ MID(B4,2,2),MID(B4,4,2),MID(B4,6,2)) ويمكن اختصار معادلة السن حاليا سنة - شهر إلى =DATEDIF(C4,TODAY(),"y") & " - " &DATEDIF(C4,TODAY(),"ym") بالتوفيق
  21. أ / محمد صالح
    الاكسل نفسه يعرض عليك اصلاحه وينجح بنسبة عالية لكن ربما لا يحتفظ بالاكواد بالتوفيق
  22. أ / محمد صالح
    يمكنك استعمال هذا الشرط بدلا من السطر المذكور If IsDate(Txt2) then .Range("H" & lastRow).Value = CDate(Txt2) بالتوفيق
  23. أ / محمد صالح
    أكيد طبعا وهل جزاء الإحسان إلا الإحسان وقل ربي زدني علما نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  24. أ / محمد صالح
    تم عمل المطلوب حرفيا بغض النظر عن عدم الرد على الاستيضاح السابق بالتوفيق Store4 - Copy.xlsm
  25. أ / محمد صالح
    لو فهمت ترتيب هذه الأرقام وحسبت ناتجها في كل حلقة تكرارية ستصل بإذن الله ملحوظة : لا تتعشم في إيضاح أكثر من هذا تقدم الغرب حين فعلوا: لا تعطني سمكة ولكن علمني كيف أصطاد أما نحن فللأسف نريدها جاهزة وبالمجان خالص دعواتي بالتوفيق
×
×
  • اضف...

Important Information

  I accept