بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
نجوم المشاركات
Popular Content
Showing content with the highest reputation on 15 أغس, 2021 in all areas
-
تفضل طلبك تطبيق على اندرويد و تطبيق على صفحة ويب و للعلم فإن الفكرة مستوحاة من كود أخي @أ / محمد صالح و اخي @محمد أبوعبدالله تحميل تطبيق الأندرويد اضغط هنا و لعرض الفكرة على صفحة ويب اضغط هنا الكود المستخدم هو <!DOCTYPE html> <html xmlns="http://www.w3.org/1999/xhtml"> <head runat="server"> <title></title> <style> .center { margin: auto; width: 25%; border: 3px solid green; padding: 10px; font:bold; } .auto-style1 { margin: auto; width: 30%; border: 3px solid green; padding: 10px; text-align: center; direction: rtl; } .input1 { width: 100%; padding: 12px 20px; margin: 8px 0; display: inline-block; border: 1px solid #ccc; border-radius: 4px; box-sizing: border-box; } .inputsubmit { width: 100%; background-color: #4CAF50; color: white; padding: 14px 20px; margin: 8px 0; border: none; border-radius: 4px; cursor: pointer; } .auto-style2 { border-style: none; border-color: inherit; border-width: medium; width: 100%; background-color: #4CAF50; color: white; padding: 14px 20px; margin: 8px 0; border-radius: 4px; cursor: pointer; font-weight: bold; } </style> </head> <body> <form name="myForm" id="form1" runat="server"> <div class="auto-style1"> <input id="numb" class="input1" placeholder="ادخل الجملة او الإسم" style="text-align:right"> <br /> <strong>القيمة الرقمية للمدخلات هي </strong> <div id="demo"><strong>0</strong></div> <strong>الفكرة مستوحاة من من كود المعلم القدير<br /> أ.محمد صالح<br /> و تنفيذ ( د.كاف يار )<br /> <input id="Button1" type="button" value="احتساب القيمة الرقمية" onclick="AddRecord()" class="auto-style2" /></strong> </div> </form> <script> function AddRecord() { const person=document.getElementById("numb").value; let str = document.getElementById("numb").value; let txt = 0; for (let x in person) { txt +=str.charCodeAt(x); } document.getElementById("demo").innerHTML=txt } </script> </body> </html>3 points
-
تفضل هذه مشاركتي اضف ازارا اننشاء تقرير و ضع الشفرة التالية حدث عند النقر Dim ctlLabel As Control, ctlText As Control Dim intDataX As Integer, intDataY As Integer Dim intLabelX As Integer, intLabelY As Integer Dim db As DAO.Database Dim rs As DAO.Recordset intLabelX = 100 intLabelY = 100 intDataX = 1000 intDataY = 100 Set rpt = Application.CreateReport rpt.RecordSource = "TRANSFORM Sum(الخزينة.المداخيل) AS Sumمنالمداخيل SELECT الخزينة.البيان, الخزينة.التصنيف, Sum(الخزينة.المداخيل) AS [إجمالي المداخيل] FROM الخزينة GROUP BY الخزينة.البيان, الخزينة.التصنيف PIVOT الخزينة.[الفرع/المصلحة];" Set rs = CurrentDb.OpenRecordset("TRANSFORM Sum(الخزينة.المداخيل) AS Sumمنالمداخيل SELECT الخزينة.البيان, الخزينة.التصنيف, Sum(الخزينة.المداخيل) AS [إجمالي المداخيل] FROM الخزينة GROUP BY الخزينة.البيان, الخزينة.التصنيف PIVOT الخزينة.[الفرع/المصلحة];") Dim x, x2 As Integer For x = 0 To rs.Fields.Count - 1 Set ctlText = CreateReportControl(rpt.Name, acLabel, acPageHeader, , rs.Fields(x).Name, _ intDataX * x, 0, 555) ctlText.Name = rs.Fields(x).Name & x Set ctlText = CreateReportControl(rpt.Name, acTextBox, acDetail, , rs.Fields(x).Name, _ intDataX * x, 0, 555) ctlText.Name = rs.Fields(x).Name Next rs.Close Set rs = Nothing rpt.RecordSource = "الخزينة_Crosstab"2 points
-
ما شاء الله على الإبداع وهذا دوري تم تعديل الكود ليقرأ قيم الجروف المذكورة سابقا <!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.rar2 points
-
1 point
-
نعم صحيح يا بش مهندس يحتاج لتنسيق لكنها مجرد فكرة لأن السائل لم يوضح طلبه بالتفصيل و الموضوع انشاء الله سهل من خلال الحلقة التكرارية يستطيع تنسيق مايشاء1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
حسب فهمي للمطلوب أنك تريد وضع معادلة مضمونها إذا كانت القراءة الحالية والسابقة موجودة يقوم بطرحهما واذا لم يكونا موجودين يضرب D5*J5*I5 ويحولها إلى قيم في هذه الحالة لا نحتاج لترحيل حاصل الطرح ولا نحتاج textbox3 في النموذج بالتوفيق wor.xlsm1 point
-
الملف المرفق فيه ملف المشاركه الاولى بعد اضافه الرصيد بداله Sumifs ... بيجمع العدد الى مكتوب ادامه كلمه اضافه ويجمعهم على بعض فى شيت الرصيد فى عمود اضافه ونفس الشىء تانى .. بيجمع العدد الى مكتوب ادامه كلمه صرف ويجمعهم على بعض فى شيت الرصيد فى عمود الصرف ويبقى الرصيد هو الفرق بينهم ... مثال على صنف 0013 - 34 ... اجمالى الاضافه 52 ,,,,, اجمالى الصرف 112 ,,,, يبقى الرصيد -60 اسف جدا يا استاذى الفاضل ... الملف فعلا مظبوط جدا ..الخطأ من عندى ... بس يبقى ناقص بطاقه حركه الصنف ويبقى كتر خيرك Store4 - Copy (3).xlsm1 point
-
مجهود رائع بارك الله فيك أنا شخصيا لم أذكرها في ملفي للعلم بها وبالنسبة لملف حضرتك يمكن اختصار معادلة تاريخ الميلاد مع الاهتمام بما بعد 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") بالتوفيق1 point
-
السلام عليكم إضافة بسيطة للملف و هي الرقم القومي حساب تاريخ المعاش2.xlsx1 point
-
يمكنك استعمال هذا الشرط بدلا من السطر المذكور If IsDate(Txt2) then .Range("H" & lastRow).Value = CDate(Txt2) بالتوفيق1 point
-
اللى بيساعد بيساعد لوجه الله اخى الكريم لا يستنى شى من البشر ولو كنت اعلم ما كنت الحيت فى السؤال عموما الف شكر على ذوق حضرتك1 point
-
تم عمل المطلوب حرفيا بغض النظر عن عدم الرد على الاستيضاح السابق بالتوفيق Store4 - Copy.xlsm1 point
-
يوجد ثلاثة أعمدة مختلفة في جميع الصفوف للصنف الواحد الوزن القائم للشيكاره العدد الوزن اجمالى كجم ماذا سيتم معهم؟ وأقترح دمج عمود الإضافة والصرف في عمود واحد بدلا من عمودين1 point
-
تم تحديث الكود السابق بحيث لا يعمل إلا إذا كان التعديل في خلية واحدة بالتوفيق1 point
-
لاضافة دالة معرفة الى ملفك اضغط alt+f11 لفتح نافذة ال vba من قائمة insert اختر module الصق كود الدالة في الموديول وفي الخلية المطلوب اظهار جمع الارقام اكتب =sumparts(A1) حيث ان A1 هي الخلية التي تحتوي على العدد المراد تقسيمه بالتوفيق1 point
-
حسب فهمي للمطلوب جرب هذه الدالة المعرفة بنسخ هذا الكود في،موديول جديد Function sumparts(num As String) As Long Dim n As Long, a As Long a = 0 For n = 1 To Len(num) a = a + Val(Mid(num, n, 1)) Next n If Len(CStr(a)) > 1 Then sumparts = sumparts(CStr(a)) Else sumparts = a End If End Function وبعد البحث في الانترنت عن هذا الأمر يمكن اختصار هذه الدالة إلى Function sumparts(num As String) As Long sumparts = num - 9 * Int((num - 1) / 9) End Function وطريقة استدعائها داخل الخلية =sumparts(A1) حيث A1 هي الخلية التي تحتوي على العدد المراد معرفة مجموع أرقامه ويمكن الوصول لهذا الهدف مباشرة في معادلة اكسل بهذه الصورة =A1-9*INT((A1-1)/9) بالتوفيق1 point
-
1 point
-
1 point
-
ممكن تعمل تقريرين احدهما مجمع كما فى التطبيق المرفق والآخر مرتب بالسريال فقط .. والله اعلم الغاء الفرز او التجميع بالكود.rar1 point
-
اخي فارس هذا رابط جديد http://www.mediafire.com/file/ciqcxa9du74vc8g/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC_%D8%A7%D9%84%D8%B5%D8%A7%D8%AF%D8%B1_%D9%88%D8%A7%D9%84%D9%88%D8%A7%D8%B1%D8%AF.rar/file1 point
-
1 point
-
سعيد بتواصلك أخي منذر عذرا لتأخر الرد كثيرا وفيك بارك أخي الكريم نفعنا الله بما علمنا وعلمنا ما ينفعنا أخوكم محمد صالح1 point
-
1 point
-
شكرا جزيلا أخ أبو ماهر عندنا في الأكسس أسهل من هذه الطريقة فقط تجعل الحقل مؤمن من الخصائص جزاك الله خيرا1 point
-
ياريت لو مزيد من التوضيح هل تريد جعل التاريخ بتاريخ اليوم الذي يتم فيه الكتابة مثلا ؟ هل تريد تثبيت المورد كما بالسجل السابق مثلا ؟ اكتب أخي الكريم ما تريده بصورة مفصلة حتى يمكننا الله من مساعدتك وفقك الله1 point
-
1 point
-
أخي الكريم عمار كلمة مشكلة كبيرة جدا على ما تقول ... بالنسبة للاستفسار الأول ... تم رفع المرجع الذي احتاجه أحد الإخوة ولا حاجة للباقي مالم يحتج إليها أح حتى الآن ويكفي وضع المرجع في المسار المحدد ليتم عمله بنجاح C:\WINDOWS\system32 بالنسبة للثاني ....لا خطورة من هذه الرسالة فيمكنك الضغط على تفعيل التحميل مرة أخرى ومن ثم تقوم بتحميل الملف كما تريد بالنسبة للثالث.... لو أكملت نص المعلومات المكتوبة في مريع النص الخاص بالمعلومات لوجدت أنه يقول أنت غير متصل بالانترنت أو الموقع خارج الخدمة وربما يكون الاحتمال الثاني هو الصحيح بالنسبة للإقتراح ... فهو اقتراح جميل ولي محاولة في ذلك بعنوان تصفح مواقعك المفضلة بالأكسس وفيها أن تضيف أسماء وروابط المواقع التي تفضلها في قاعدة بيانات ويمكنك تصفحها في النموذج مع البحث وسرعة الوصول للموقع ولكن أرى أن الأفضل فتح الصفحة في الانترنت إكسبلورر للتمتع بمزايا المتصفح من خلال المفضلة الموجودة في المستعرض وحجم الخط وغيرها من المزايا التي لا تستطيع التحكم بها في نموذج الأكسس شكرا للجميع على المرور1 point
-
أخي الكريم وسام من نص الرسالة التي ظهرت لك يبدو أنك لا يوجد في جهازك هذه الأداة msinet.ocx فإليك هذه الأداة فك الضغط عن الملف المرفق وضعها في المسار C:\WINDOWS\system32 ثم افتح البرنامج ستجده يعمل بإذن الله وفي حالة حدوث أي مشكلة إعرضها وستجد الحل إن شاء الله ملحوظة هذه المشكلة واجهت بعض الإخوة وتم حلها بناء على المكتبات التي رفعتها الأخت زهرة في المشاركة الأولى للأخ إكسير والمشار إليها سابقا MSINET.rar1 point
-
أخي الكريم يمكنك استعمال هذا البرنامج وهو من تصميم أحد الإخوة بالمنتدى وأخبرني إن أدى الغرض أم لا halakat.zip1 point
-
بارك الله فيكم إخوتي ولكن كتبت ونفذت كل ما قلتم فظهر النموذج به زر الإغلاق مع أن النموذج المرفق للأخت زهرة ليس به زر إغلاق مما يعطي شكلا متقدما للبرنامج أفيدونا1 point