بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
-
Posts
4,431 -
تاريخ الانضمام
-
Days Won
191
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو أ / محمد صالح
-
أول خطوة في كتابة موضوع جديد هي استعمال محرك البحث داخل هذا المنتدى وهذه أفضل طرق وخيارات البحث بالتوفيق
-
المساعدة في كود لشيت الاكسيل للاهمية
أ / محمد صالح replied to محمد متولي's topic in منتدى الاكسيل Excel
-
ما شاء الله على الإبداع وهذا دوري تم تعديل الكود ليقرأ قيم الجروف المذكورة سابقا <!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
-
تغيير محتوى الخلية بناءً على تنزيل البيانات
أ / محمد صالح replied to نسورالجو's topic in منتدى الاكسيل Excel
حسب فهمي للمطلوب أنك تريد وضع معادلة مضمونها إذا كانت القراءة الحالية والسابقة موجودة يقوم بطرحهما واذا لم يكونا موجودين يضرب D5*J5*I5 ويحولها إلى قيم في هذه الحالة لا نحتاج لترحيل حاصل الطرح ولا نحتاج textbox3 في النموذج بالتوفيق wor.xlsm -
تغيير محتوى الخلية بناءً على تنزيل البيانات
أ / محمد صالح replied to نسورالجو's topic in منتدى الاكسيل Excel
لا يوجد في كود زر تنفيذ المعادلة أي مسح للبيانات فقط وضع المعادلة وتحويلها إلى قيم 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 ولو بها بيانات ماذا تكون المعادلة ؟ نص فارغ مثلا -
مجهود رائع بارك الله فيك أنا شخصيا لم أذكرها في ملفي للعلم بها وبالنسبة لملف حضرتك يمكن اختصار معادلة تاريخ الميلاد مع الاهتمام بما بعد 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") بالتوفيق
-
الاكسل نفسه يعرض عليك اصلاحه وينجح بنسبة عالية لكن ربما لا يحتفظ بالاكواد بالتوفيق
-
الترحيل بشرط وجود تاريخ في التيكست بوكس
أ / محمد صالح replied to الصفتى's topic in منتدى الاكسيل Excel
يمكنك استعمال هذا الشرط بدلا من السطر المذكور If IsDate(Txt2) then .Range("H" & lastRow).Value = CDate(Txt2) بالتوفيق- 1 reply
-
- 2
-
أكيد طبعا وهل جزاء الإحسان إلا الإحسان وقل ربي زدني علما نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا
-
تم عمل المطلوب حرفيا بغض النظر عن عدم الرد على الاستيضاح السابق بالتوفيق Store4 - Copy.xlsm
-
لو فهمت ترتيب هذه الأرقام وحسبت ناتجها في كل حلقة تكرارية ستصل بإذن الله ملحوظة : لا تتعشم في إيضاح أكثر من هذا تقدم الغرب حين فعلوا: لا تعطني سمكة ولكن علمني كيف أصطاد أما نحن فللأسف نريدها جاهزة وبالمجان خالص دعواتي بالتوفيق
-
برنامج شئون طلاب المرحلة الابتدائية تصميم ابو مينا الاسيوطى
أ / محمد صالح replied to ابو مينا's topic in منتدى الاكسيل Excel
ما شاء الله جهود مشكورة ربنا يجازيك خير العطاء سعادة -
يوجد ثلاثة أعمدة مختلفة في جميع الصفوف للصنف الواحد الوزن القائم للشيكاره العدد الوزن اجمالى كجم ماذا سيتم معهم؟ وأقترح دمج عمود الإضافة والصرف في عمود واحد بدلا من عمودين
-
شرح الكود حلقتين تكراريتين n1 & n2 واحدة للعمود الاول n1 طولها 10 وثانية طولها 3 للعمود الثاني n2 تتكرر داخل الأولى والأرقام لتجديد الصف الذي يكتب فيه
-
تم تحديث الكود السابق بحيث لا يعمل إلا إذا كان التعديل في خلية واحدة بالتوفيق
-
مطلوب التعويض عن الحروف بقيمتها حسب الجملة كاملة
أ / محمد صالح replied to KHALED SLEEM's topic in قسم الأكسيس Access
المشكلة كانت في تكرار اسم الدالة في الموديولين وفي أحد النماذج وتحديد الجدول مصدر كل نموذج تفضل هذا التعديل MAS_CHARVAL بطريقتين.accdb -
استدعاء بيانات من ورقة عمل الى ورقة عمل اخرى ؟
أ / محمد صالح replied to adem youcef's topic in منتدى الاكسيل Excel
إذا عمل معك ملفي فالخطأ في عملية تعديل المعادلة بتغيير أسماء الدوال في أماكنها رغم أن الترجمة صحيحة -
استدعاء بيانات من ورقة عمل الى ورقة عمل اخرى ؟
أ / محمد صالح replied to adem youcef's topic in منتدى الاكسيل Excel
لا أدري ما المشكلة عندك يفترض أنه بعد تعديل المعادلة بوضع أسماء الدوال الفرنسية أن تعمل هذا ملفك بعد تعديل عمودين Classeur1.xlsx -
جرب استعمال هذ الكود في حدث عند تغيير محتوى الخلية 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 بالتوفيق
-
استدعاء بيانات من ورقة عمل الى ورقة عمل اخرى ؟
أ / محمد صالح replied to adem youcef's topic in منتدى الاكسيل Excel
يوجد 3 دوال iferror index match استعمل اسمهم باللغة الفرنسية في نفس مكانهم -
استدعاء بيانات من ورقة عمل الى ورقة عمل اخرى ؟
أ / محمد صالح replied to adem youcef's topic in منتدى الاكسيل Excel
يمكنك استعمال المعادلة التالية في الخلية F12 في شيت DRO (2) =IFERROR(INDEX('082021'!B$3:B$107,MATCH($E12,'082021'!$A$3:$A$107,0)),"") مع سجبها لأسفل لنسخ المعادلة وبالنسبة لباقي الأعمدة تحتاج فقط لتغيير حرف العمود مكان B مرتين في هذا الجزء B$3:B$107 بالتوفيق -
نفس فكرة الأولى إذا فهمت الكود الأول تستطيع بإذن الله أن تصل للكود الثاني
-
بإذن الله هذ الكود يقوم بهذا الترتيب 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) بالتوفيق