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

أ / محمد صالح

أوفيسنا
  • Posts

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

  • Days Won

    198

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

  1. هذا سببه أن نوع بيانات الحقل رقمي وقيمة مثلا 5. (خمسة وبعدها علامة عشرية فقط) هي خمسة فقط وبالنسبة لصديقي @د.كاف يارلا تحاول الضحك علينا ههههه بعد ربط مربعات النصوص (غير المنضمة) بحقول الجدول تحدث نفس المشاكل الحل كما قلته سابقا: استعمال OSK أو جعل جميع الحقول نصية وعند التعامل معها يتم نحويلها إلى نوع البيان المطلوب وهذه محاولة أخرى لتفادي عدم كتابة العلامة العشرية مع عرض on screen keyboard من خلال زر بالتوفيق mas_numpad.accdb
  2. إن شاء الله تصل إليها وتستعملها بسهولة وهذه مشاركتي في عمل لوحة أرقام للبرنامج (للعلم لم أطلع على أي مرفق لمن سبقوني من الأصدقاء في الحل) حيث أن التاريخ يتم إدخاله من date piker فلا حاجة لكتابة حقل التاريخ ولا الشرطة المائلة بالتوفيق mas_numpad.accdb
  3. هذه خطوات تشغيل on screen keyboard في وينوز 7 اضغط زر Start , ثم All Programs, ثم Accessories, ثم Ease of Access, وفي النهاية On-Screen Keyboard. ولو النسخة عربي النقر فوق الزر أبدا ، والنقر فوق كافة البرامج، والنقر فوق الملحقات، والنقر فوق سهوله الوصول، ثم النقر فوق لوحه المفاتيح علي الشاشة. وبعد فتح البرنامج يمكن تثبيته في شريط المهام بالتوفيق
  4. شكرا لمجاملتك فقد تم الحل بعيدا عن توجيهاتي نهائيا وزيادة في الخير ربما يفيدك هذا الرابط وهذا أيضا ينبغي أن نتعلم ممن سبقنا في عمل ما نريد عمله بالتوفيق
  5. هنا تجد ما يخص تاريخ الميلاد والنوع من الرقم القومي وبالنسبة لاسم ولي الأمر فهذا البيان يكتب يدويا أفضل نظرا لإشكالية عدم حصر الأسماء المركبة جميعها بالتوفيق
  6. ما نظام التشغيل الموجود على الأجهزة؟
  7. الشاشات التاتش بها لوحة مفاتيح touch keyboard وكل جهاز ويندوز يحتوي على on screen keyboard فلا حاجة لكل هذا التعب بالتوفيق
  8. الفكرة تكررت في موضوعات كثيرة ويجب أ ن نتعلم مما سبق
  9. كلامي عن الخطأ في المشاركة الأولى لك وبالنسبة لتعديل المعادلة جرب هذه =If(MOD(A1,B1)=0,B1,MOD(A1,B1)) بالتوفيق
  10. الناتج الذي قدمته ( 5 ) خطأ والصواب 4 لأن المتبقي من 524 بعد طرح الرقم 5 عدد 104 مرة يساوي 524 - 520 = 4 ويمكنك استعمال المعادلة التالية =MOD(A1,B1) حيث A1 بها الرقم الأكبر و B1 بها الرقم الأصغر وهذه المعادلة تقوم بجلب باقي قسمة الرقم الأول على الثاني بالتوفيق
  11. بعد إذن صديقي بن علية طبعا تفضل أخي الكريم هذه فكرتي في تنفيذ المطلوب في شيت 2 ولكن أنصح بوضع الرقم الأكبر 10 تحت خانة الطول والرقم الأصغر 8 تحت خانة العرض حتى تحصل على أفضل النتائج بالتوفيق mas_cut_draw.xlsb
  12. المشكلة في رقم الصف الذي يجلب بياناته ويضعها على الزر لاحظ هذا السطر 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) بالتوفيق
  13. يبدو أن حضرتك ما ضغطت على الرابط الموجود في كلمات (استعمال محرك البحث) في مشاركتي الأولى على العموم أحد الحلول الموجودة في نتائج البحث: أن تضع كود فك الحماية في بداية الإجراء بعد sub name-of-sub وتعود لتضع كود الحماية في نهايته قبل end sub بالتوفيق
  14. أفضل من يجيبك هو محرك البحث وهذه أفضل خيارات البحث للحصول على أفضل النتائج: البحث في : هذا المنتدى البحث عن النتائج التي تحوي: كل كلمات البحث
  15. الأمر بسيط جدا أن تضيف شرطا إذا كانت الدرجة فارغة فالنتيجة فارغة يمكنك استعمال هذه المعادلة في D4 =IF(C4="","",IF(C4>=60,"ناجح","راسب")) بالتوفيق
  16. أول خطوة في كتابة موضوع جديد هي استعمال محرك البحث داخل هذا المنتدى وهذه أفضل طرق وخيارات البحث بالتوفيق
  17. ما شاء الله على الإبداع وهذا دوري تم تعديل الكود ليقرأ قيم الجروف المذكورة سابقا <!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
  18. يجب التواصل مع مسئول IT لتمكين الماكرو على جهازك فقط
  19. حسب فهمي للمطلوب أنك تريد وضع معادلة مضمونها إذا كانت القراءة الحالية والسابقة موجودة يقوم بطرحهما واذا لم يكونا موجودين يضرب D5*J5*I5 ويحولها إلى قيم في هذه الحالة لا نحتاج لترحيل حاصل الطرح ولا نحتاج textbox3 في النموذج بالتوفيق wor.xlsm
  20. لا يوجد في كود زر تنفيذ المعادلة أي مسح للبيانات فقط وضع المعادلة وتحويلها إلى قيم 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 ولو بها بيانات ماذا تكون المعادلة ؟ نص فارغ مثلا
  21. مجهود رائع بارك الله فيك أنا شخصيا لم أذكرها في ملفي للعلم بها وبالنسبة لملف حضرتك يمكن اختصار معادلة تاريخ الميلاد مع الاهتمام بما بعد 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") بالتوفيق
×
×
  • اضف...

Important Information