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

أ / محمد صالح

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

  • Posts

    4,431

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

  • Days Won

    191

 نوع المحتوي 

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

  1. أ / محمد صالح
    أول خطوة في كتابة موضوع جديد هي استعمال محرك البحث داخل هذا المنتدى وهذه أفضل طرق وخيارات البحث بالتوفيق
  2. أ / محمد صالح
  3. أ / محمد صالح
    ما شاء الله على الإبداع وهذا دوري تم تعديل الكود ليقرأ قيم الجروف المذكورة سابقا <!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
  4. أ / محمد صالح
    يجب التواصل مع مسئول IT لتمكين الماكرو على جهازك فقط
  5. أ / محمد صالح
    حسب فهمي للمطلوب أنك تريد وضع معادلة مضمونها إذا كانت القراءة الحالية والسابقة موجودة يقوم بطرحهما واذا لم يكونا موجودين يضرب D5*J5*I5 ويحولها إلى قيم في هذه الحالة لا نحتاج لترحيل حاصل الطرح ولا نحتاج textbox3 في النموذج بالتوفيق wor.xlsm
  6. أ / محمد صالح
    لا يوجد في كود زر تنفيذ المعادلة أي مسح للبيانات فقط وضع المعادلة وتحويلها إلى قيم 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 ولو بها بيانات ماذا تكون المعادلة ؟ نص فارغ مثلا
  7. أ / محمد صالح
    مجهود رائع بارك الله فيك أنا شخصيا لم أذكرها في ملفي للعلم بها وبالنسبة لملف حضرتك يمكن اختصار معادلة تاريخ الميلاد مع الاهتمام بما بعد 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") بالتوفيق
  8. أ / محمد صالح
    الاكسل نفسه يعرض عليك اصلاحه وينجح بنسبة عالية لكن ربما لا يحتفظ بالاكواد بالتوفيق
  9. أ / محمد صالح
    يمكنك استعمال هذا الشرط بدلا من السطر المذكور If IsDate(Txt2) then .Range("H" & lastRow).Value = CDate(Txt2) بالتوفيق
  10. أ / محمد صالح
    أكيد طبعا وهل جزاء الإحسان إلا الإحسان وقل ربي زدني علما نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
  11. أ / محمد صالح
    تم عمل المطلوب حرفيا بغض النظر عن عدم الرد على الاستيضاح السابق بالتوفيق Store4 - Copy.xlsm
  12. أ / محمد صالح
    لو فهمت ترتيب هذه الأرقام وحسبت ناتجها في كل حلقة تكرارية ستصل بإذن الله ملحوظة : لا تتعشم في إيضاح أكثر من هذا تقدم الغرب حين فعلوا: لا تعطني سمكة ولكن علمني كيف أصطاد أما نحن فللأسف نريدها جاهزة وبالمجان خالص دعواتي بالتوفيق
  13. أ / محمد صالح
    ما شاء الله جهود مشكورة ربنا يجازيك خير العطاء سعادة
  14. أ / محمد صالح
    يوجد ثلاثة أعمدة مختلفة في جميع الصفوف للصنف الواحد الوزن القائم للشيكاره العدد الوزن اجمالى كجم ماذا سيتم معهم؟ وأقترح دمج عمود الإضافة والصرف في عمود واحد بدلا من عمودين
  15. أ / محمد صالح
    شرح الكود حلقتين تكراريتين n1 & n2 واحدة للعمود الاول n1 طولها 10 وثانية طولها 3 للعمود الثاني n2 تتكرر داخل الأولى والأرقام لتجديد الصف الذي يكتب فيه
  16. أ / محمد صالح
    هذه برمجة وهذه برمجة أخرى لتحويلها الي تطبيق أندرويد يمكنك استخدام موقع مثل appinventor
  17. أ / محمد صالح
    تم تحديث الكود السابق بحيث لا يعمل إلا إذا كان التعديل في خلية واحدة بالتوفيق
  18. أ / محمد صالح
    المشكلة كانت في تكرار اسم الدالة في الموديولين وفي أحد النماذج وتحديد الجدول مصدر كل نموذج تفضل هذا التعديل MAS_CHARVAL بطريقتين.accdb
  19. أ / محمد صالح
    إذا عمل معك ملفي فالخطأ في عملية تعديل المعادلة بتغيير أسماء الدوال في أماكنها رغم أن الترجمة صحيحة
  20. أ / محمد صالح
    لا أدري ما المشكلة عندك يفترض أنه بعد تعديل المعادلة بوضع أسماء الدوال الفرنسية أن تعمل هذا ملفك بعد تعديل عمودين Classeur1.xlsx
  21. أ / محمد صالح
    جرب استعمال هذ الكود في حدث عند تغيير محتوى الخلية Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count = 1 And Target.Column = 1 Then If Target.Value <> "" Then If Not Sheets("الارشيف").Range("a:a").Find("*" & Target & "*") Is Nothing Then If MsgBox("هذا الكود موجود. هل تريد إدخاله؟", 292, "انتبه") = vbNo Then Target.Select: Target.Value = "" End If: End If: End If: End If End Sub ولا تنس حفظ الملف بامتداد يدعم الكود مثل xlsb بالتوفيق
  22. أ / محمد صالح
    يوجد 3 دوال iferror index match استعمل اسمهم باللغة الفرنسية في نفس مكانهم
  23. أ / محمد صالح
    يمكنك استعمال المعادلة التالية في الخلية F12 في شيت DRO (2) =IFERROR(INDEX('082021'!B$3:B$107,MATCH($E12,'082021'!$A$3:$A$107,0)),"") مع سجبها لأسفل لنسخ المعادلة وبالنسبة لباقي الأعمدة تحتاج فقط لتغيير حرف العمود مكان B مرتين في هذا الجزء B$3:B$107 بالتوفيق
  24. أ / محمد صالح
    نفس فكرة الأولى إذا فهمت الكود الأول تستطيع بإذن الله أن تصل للكود الثاني
  25. أ / محمد صالح
    بإذن الله هذ الكود يقوم بهذا الترتيب Sub mas_order() For n1 = 1 To 10 Range("a" & n1 * 8 - 4).Value = n1 For n2 = 1 To 3 Range("b" & n1 * 8 - 4 + n2 * 2).Value = n2 * 1000 - 1000 + n1 Next n2: Next n1 MsgBox "Done" End Sub مع إمكانية التحكم في نهاية الترقيم في العمود A بنهاية المتغير n1 في الحلقة التكراربة (حاليا 10) بالتوفيق
×
×
  • اضف...

Important Information

  I accept