أ / محمد صالح

يمكنك أولا استعمال عمود واحد للمبلغ ككل ولا داعي للتقسيم إلى عمودين ولكن للحل بنفس الأسلوب يمكنك وضع المعادلة التالية في الخلية L6 =INT(SUM($J6,$I6/100)*K$4) وتعني الرقم الصحيح من ناتج جمع القروش والجنيهات ثم ضربه في 9% المكتوبة في الخلية K4 وكتابة المعادلة التالية إلى الخلية K6 =MOD(TRUNC(SUM($J6,$I6/100)*K$4,2),1)*100 وتعني ضرب باقي قسمة المستحق على 9% في 100 ليكون رقما صحيحا ثم نسخ المعادلة لباقي النسبة تحديد الخليتين K6 & L6 ثم CTRL+C للنسخ الوقوف في M6 ثم اللصق بـ CTRL+V الوقوف في O6 ثم اللصق بـ CTRL+V الوقوف في Q6 ثم اللصق بـ CTRL+V تحديد الصف الأول للمعادلة كله K6:R6 ثم استعمال مقبض التعبئة لنسخ المعادلات لأسفل بالتوفيق

جرب هذا اكود ActiveSheet.PageSetup.RightFooter = Range("n5").Value & chr(10) & Range("o5").Value حيث chr(10) تعني سطر جديد وهو يساوي الضغط على alt+enter داخل الخلية

هذه المشكلة تعني أن نوع البيانات المقدم للدالة لا يتناسب مع نوع البيانات المطلوب من الدالة وبالنسبة لعدم تمكين ال debug فسببه حماية الأكواد بباسوورد ويجب إلغاء أو إدخال كلمة المرور أولا حتى تظهر

الدالة صحيحة مليون في المائة الخطأ في استسهال العرب في استعمال قاعدة استلاف شهر والشهر يساوي 30 يوم والصواب استلاف شهر عدد أيامه هو عدد أيام الشهر في التاريخ القديم (الثاني) جرب المعادلة مع شهر تكون أيامه 30 وشهر تكون أيامه 31 وشهر فبراير مرة 28 ومرة 29 ستتأكد من آلية عمل الدالة (كل هذه التغيرات في التاريخ الثاني القديم الذي يتم طرحه من التاريخ الأول الحديث وهذا هو سر عدم تضمينها في قائمة الدوال وعدم ظهورها في الإكمال التلقائي تحياتي للجميع

تستخدم بطريقة عادية زي ما قلت لحضرتك المشكلة أنها لا تظهر في قائمة الدوال أو الإكمال التلقائي في شريط الصيغة ويوجد مثال بالإكسل في الرابط المذكور به الطريقة على تاريخ اليوم أو تاريخ آخر محدد

دالة datedif موجودة في جميع إصدارات إكسل ولكنها غير موجودة في قائمة الدوال ولا تظهر في الإكمال التلقائي نظرا لاختلاف عالمي في طريقة حساب الفرق بين تاريخين ويمكنك الاستفادة من هذا الرابط https://www.mr-mas.com/p/datedif.html لخساب الفرق بين تاريخين أونلاين وفي برنامج ميكروسوفت إكسيل

يمكنك استخدام هذا الموقع لتقسيم الصور افقيا وراسيا https://pinetools.com/split-image في حالة تساوي احجام الصور

ربما يفيدك هذا الموضوع استخراج تاريخ الميلاد والمحافظة والنوع من الرقم القومي

بعد ملاحظة المرفق تبين وجود جدول مرتبط بشيت1 في ملف الإكسل ولذا يجب عدم فتح النموذج ولا البرنامج ككل إذا لم يكن الملف موجودا في المسار المحدد لذلك وبعد إذن أخي جعفر يجب استبدال exit sub إلى DoCmd.Quit للخروج النهائي من البرنامج

جزاكم الله كل خير جميعا. وأحب أن أبشركم بأني في طريقي للانتهاء من برمجة أقصر واسرع كود للتفقيط (54 سطر برمجي) متعدد اللغات ويمكن تخصيصه لجميع العملات. ولكن نظرا لاهتمامي بلغة الويب قمت بعمله أولا في هذه الصفحة أونلاين https://www.mr-mas.com/p/tafqeet.html وجاري تحويله ليعمل على فيجوال بيسك للتطبيقات vba تابعونا

جزاكم الله كل خير جميعا. وأحب أن أبشركم بأني في طريقي للانتهاء من برمجة أقصر واسرع كود للتفقيط (54 سطر برمجي) متعدد اللغات ويمكن تخصيصه لجميع العملات وموافق لقواعد اللغة العربية واللغة الإنجليزية. ولكن نظرا لاهتمامي بلغة الويب قمت بعمله أولا في هذه الصفحة أونلاين https://www.mr-mas.com/p/tafqeet.html وجاري تحويله ليعمل على فيجوال بيسك للتطبيقات vba تابعونا

جزاكم الله كل خير جميعا. وأحب أن أبشركم بأني في طريقي للانتهاء من برمجة أقصر واسرع كود للتفقيط (54 سطر برمجي) متعدد اللغات ويمكن تخصيصه لجميع العملات وموافق لقواعد اللغة العربية واللغة الإنجليزية. ولكن نظرا لاهتمامي بلغة الويب قمت بعمله أولا في هذه الصفحة أونلاين https://www.mr-mas.com/p/tafqeet.html وجاري تحويله ليعمل على فيجوال بيسك للتطبيقات vba تابعونا

جزاكم الله كل خير جميعا. وأحب أن أبشركم بأني في طريقي للانتهاء من برمجة أقصر واسرع كود للتفقيط (54 سطر برمجي) متعدد اللغات ويمكن تخصيصه لجميع العملات وموافق لقواعد اللغة العربية واللغة الإنجليزية. ولكن نظرا لاهتمامي بلغة الويب قمت بعمله أولا في هذه الصفحة أونلاين https://www.mr-mas.com/p/tafqeet.html وجاري تحويله ليعمل على فيجوال بيسك للتطبيقات vba تابعونا

جزاكم الله كل خير جميعا. وأحب أن أبشركم بأني في طريقي للانتهاء من برمجة أقصر واسرع كود للتفقيط (54 سطر برمجي) متعدد اللغات ويمكن تخصيصه لجميع العملات وموافق لقواعد اللغة العربية واللغة الإنجليزية. ولكن نظرا لاهتمامي بلغة الويب قمت بعمله أولا في هذه الصفحة أونلاين https://www.mr-mas.com/p/tafqeet.html وجاري تحويله ليعمل على فيجوال بيسك للتطبيقات vba تابعونا

جزاكم الله كل خير جميعا. وأحب أن أبشركم بأني في طريقي للانتهاء من برمجة أقصر واسرع كود للتفقيط (54 سطر برمجي) متعدد اللغات ويمكن تخصيصه لجميع العملات. ولكن نظرا لاهتمامي بلغة الويب قمت بعمله أولا في هذه الصفحة أونلاين https://www.mr-mas.com/p/tafqeet.html وجاري تحويله ليعمل على فيجوال بيسك للتطبيقات vba تابعونا

جزاكم الله كل خير جميعا. وأحب أن أبشركم بأني في طريقي للانتهاء من برمجة أقصر واسرع كود للتفقيط (54 سطر برمجي) متعدد اللغات ويمكن تخصيصه لجميع العملات. ولكن نظرا لاهتمامي بلغة الويب قمت بعمله أولا في هذه الصفحة أونلاين https://www.mr-mas.com/p/tafqeet.html وجاري تحويله ليعمل على فيجوال بيسك للتطبيقات vba تابعونا

)ما شاء الله حلول رائعة ولإثراء الموضوع هذه صفحة من برمجتي للوصول إلى العوامل والمضاعفات وغيرها https://officena.net/team/mas/maths4/ ولكن رجاء من الأستاذ ابو لجين توضيح فكرة الحروف وقيمتها وعلى أي اساس تم إعطاء هذه القيم للحروف وما فائدة ذلك للمستخدم العادي خالص دعواتي بالتوفيق قبل التفوق

تم إتاحة نسخة بلغة html & javascript في هذه الصفحة https://www.mr-mas.com/p/tafqeet.html وتم تحديث الروابط في المشاركة الأولى ولا ينقصني سوى دعاؤكم

يفضل إرفاف مثال وتوضيح المطلوب بالتفصيل

هل يملك المستخدم الحالي حق إدارة الأجهزة الأخرى كمسئول administrator ؟ هل يملك حق التعديل على الملفات عبر الشبكة ؟

بعد إذن اخي سليم لو النمط ثابت على هذه الصورة EU ثم عشرة ارقام يمكنك استعمال المعادلة التالية =int(right(a3, 10)) بالتوفيق

لا شيء مستحيل بإذن الله المهم ترتيب الخطوات في الذهن للوصول للحل يمكنك غلق قواعد البيانات الأخرى باستعمال هذا الكود Dim DB2 As Object db2Path = "Z:\path\to\db2.accdb" Set DB2 = GetObject(db2Path) DB2.Application.Quit ويمكن تكرار السطرين الأخيرين لغلق أي عدد من قواعد البيانات المحدد مساراتهم في الكود وفي الأخير غلق القاعدة الحالية بالكود التالي DoCmd.CloseDatabase بالتوفيق

الموضوع بسيط جدا إذا كنت تريد أن تعمل البرنامج على ويندوز 64 بت فقط يمكنك استبدال كلمة Declare في جميع الكود إلى Declare PtrSafe أما إذا كنت تريد أن تعمل على النظامين فيجب استبدال السطر الخاص بالإعلان عن اي function أو sub بكتابة الشرط التالي #if win64 then Public Declare function ....... #else Public Declare Ptrsafe function .... #end if لا حظ تكرار هذا الشرط مع كل دالة في الكود لاحظ بداية السطر برمز # في سطر if & else & end if لاحظ إضافة كلمة PtrSafe بعد كلمة Declare بالتوفيق

هناك فرق بين الحذغ والارشفة فيمكن استعادة الأرشيف لكن لا يمكن استعادة المحذوف

ربما يكون خطأ مؤقتا في الموقع او المتصفح جرب تحديد ملفين وتختار تنزيل من القائمة المختصرة على أحدهما