AbuuAhmed

محاولتي
توجد دالة بالـ vba لحساب أي مدة بالسنوات.
 
 
الاجازات_01.xlsm

جرب محاولتي الأولى
AmrVacations_01.xlsx

محاولتي للبسيطة حسب تخميني قبل أن أرى مشاركة الزميل محب المنتدى
حاولت في المركبة وخرجت بأرقام فلكية، قد أحاول غدا إن شاء الله.
 
تنويه: المبالغ المحسوبة هي مجموع الفوائد يفترض تجمع على أصل المبلغ ثم تقسم على عدد الشهور أو السنين لمعرفة القسط.
تم التوصل إلى معادلة مجموع المدد والتي تختصر العمل بحيث لا نحتاج لعمل حلقة تكرار كما المثال الأول.
المعادلة: (عدد الأقساط * (رقم أول قسط + رقم آخر قسط)) / 2
 
حساب الفوائد_01.xlsm مقارنة لحساب الفوائد_01.xlsx

هل جربت الكود في مشاركتي قبل الأخيرة ولم ينجح؟!!
عموما أنا حليت لك أكبر مشكلتين في الكود:
أولهما مفتاح التكرار حيث بدلته من:
 
checkCols = Array(1, 2, 3, 4, 5) إلى:
 
checkCols = Array(1, 4, 5) وكذلك تبديل عملية الحذف بحيث تكون من الأخير إلى الأول وهنا لا تحتاج إلى ضبط متغير row1 بعد كل عملية حذف ولا نحتاج لمقاطعة حلقة التكرار.

يفترض أنك تراعي تعبنا بدلا من أن تأخذ جزء من هنا وجزء من هناك ثم ترجع بعبارة رأيت المشكلة أو وجدت الحل.
ميزة الحل السابق أن يحافظ على ترتيب الادخال.

سؤال لك الخيار في الرد عليه: هل التعديلات من عملك أم هناك من تتواصل معه خارج المنتدى؟
 

جرب التعديل واختبره جيدا 
 
توزيع الدفعات_03.xlsx

محاولتي حسب فهمي
التشغيل من الكود نفسه.
الارقام والنصوص_02.xlsm

أنا تخصصي أكسس أكثر منه اكسل.
أضفت 3 وحدات نمطية (موديولات) لـ أبو هادي، من له قدرة في استخدام امكانيات الاكسل في استخدام تقويم أم القرى فليفدنا.

هناك شرط يجب أن تنتبه له وهو خصائص خلايا التاريخ يجب أن تكون لتقويم أم القرى وإلا ستتفاجأ بنتائج خاطئة.
 
فرق مدة إيجار بين تاريخين هجري_03.xlsm

تم التعديل
expire date_05.accdb

إذا لم تتابع فكيف نعرف حصلت على الحل أم لا!!
احتمال آخر للحل إذا كان فهمي لمطلبك صحيحا:
طول الشهر 20 يوم_02.xlsm

والله أتعبني الموضوع، أخي يفترض أن يكون سعر البيع المطلوب للبيع (متوسط الأسهم حالياً) يدخل يدويا وليس معادلة.
جرب وخبرني.
111_01.xlsx

لا بد تدخل على تنسيق خلية المدة وتجعلها نص.
 
Calcul IEP_06.xlsm

حياك الله أخي، لقد شرحت الكود في المشاركة السابقة، وها أنا أضع لك التعديل مرة أخرى لتركز فيه أكثر:
 
'---------------------------------------- Col = 2 'العمود الثاني .. رقم الجلوس 'لإيجاد آخر سطر للعمود الثاني .. فهو يذهب لآخر الصفحة ثم يعود للخلف ليقف على آخر سطر lr = Cells(Rows.Count, Col).End(xlUp).Row 'تقوم بإرجاع كائن نطاق يمثل كافة الخلايا الفاضية في العمود الثاني Set my_rg = Range(Cells(x, Col), Cells(lr, Col)).SpecialCells(xlCellTypeBlanks) '---------------------------------------- من الطبيعي إذا بدلت في الأرقام دون معرفتها ومعرفة جدواها ستوقف الكود.
توضيح للأرقام:
الرقم 2 هو رقم عمود رقم الجلوس وهو الرقم الوحيد الذي يمكنك التعديل عليه عند إزاحة/تغيير موقع العمود وبشرط أن لا تستخدم أسفل العمود أي يكون عند نهاية خاليا حتى نهاية الصفحة.
الرقم 3 هو قيمة الرمز xlUp ويعني للأعلى، وهذا لا تلمسه بالمرة.
الرقم 4 هو قيمة الرمز xlCellTypeBlanks ويعني الخلايا الفاضية. وهذ كذلك لا تلمسه بالمرة.

بالنسبة لوظيفة الكود لم أحاول فهمه وخصوصا من بصمته تعرفت على كاتبه وهو من الخبراء المتمكنين والذي لا يمكنني أن أعدل على أكواده، فرجاءً تواصل معه لأي تعديل منعا للإحراج.

تحياتي واعتذاري.

محاولتي:
استخراج أعداد الغرف_01.xlsm

كما طلبت
مصنف رقم 1_02.xlsx

تم إصلاح الخلل وعمل عدة تنقيحات:
حضور وإنصراف_05.xlsb

جرب، علما لم أعمل أي احترازات في حالة وجود أخطاء إدخال.
 
Hijri2Gregorian_01.xlsm

تفقيط من "أبو هادي"

حذفت المرفق السابق لاشتباهي أن هناك خطأ وربما هو متعمد من المبرمج.
لاحظت أن البليون بالإنجليزي يأتي بعد المليون ولكنه يأتي بالعربي بعد المليار، وأنا لم أبحث ربما يكون صحيحا وربما لا.
 
طباعه الشيكات_02.mdb

بالاستفادة من فكرة الأستاذ موسى،
دالة لتعطيك مخرج نعم/لا للاسم الذي يحتوي على عدد الأجزاء المطلوبة، ولا داعي لطرح واحد من عدد الأجزاء:
 
Option Explicit Function NamePartsCounter(ByVal sName As String, ByVal Parts As Byte) As Boolean Parts = Parts - 1 sName = Trim(sName) Do While InStr(1, sName, " ") > 0 sName = Replace(sName, " ", " ") Loop NamePartsCounter = Parts = (Len(sName) - Len(Replace(sName, " ", ""))) 'If NamePartsCounter Then Debug.Print sName End Function 'إجراء لفحص الدالة Sub test() Debug.Print NamePartsCounter("عبدالله أحمد علي", 3) End Sub وأنصح في تخزين الأسماء باستخدام الـ "أندرسكور" بدلا من المسافة ، وعند العرض يتم معالجة الأسماء بتديل الأندرسكور بالمسافة باستخدام دالة Replace

حسب فهمي لطلبك إذا كان صحيحا:
Database11_04.accdb

وعليكم السلام ورحمة الله وبركاته
محاولتي

تم تبديل المرفق لأن عملية الطرح كانت معكوسة.
 
WorkTime_02.accdb

حسبي الله ونعم الوكيل
قلتها سابقا وتوقعت أن ما يحدث في المنتدى هو تصرفات "جمعية" وليست فردية ولكن سامح الله أحد الإداريين الذي أخفى تلك المشاركة.

هذه آخر مشاركة لي في هذا الموضوع.
شرح مشكلة استعلام "ZX":
- لقد اجتهد أخونا العزيز "شايب" في تشخيص المشكلة ولكن جانبه الصواب في المعالجة، فقد كان الربط سليما ولم يكن يحتاج إلى تعديل وإنما المشكلة كانت في حقل اسم الصنف حيث يجب أن يؤخذ من جدول المشتريات وليس المبيعات. ولماذا؟  ... لأن جدول المشتريات سيحتوي على كل الأصناف التي ستباع "منطقي" ولكن ليس كل الأصناف المشتراة ستجدها في المبيعات لعدم حصول أي عمليات بيع عليها.
- هذا كان حلي السابق في النسخة 03 بؤخذ الاسم من جدول المشتريات ولكن حتى هذا الحل لن يصمد كثيرا للبرامج التي تعتمد مع نهاية كل سنة الترصيد وإلغاء عمليات الشراء والبيع.  والحل هو أن يضاف جدولا ثالثا على الاستعلام وهو جدول الأصناف ليربط به جدولي المشتريات والمبيعات ومن ثم يؤخذ الاسم من جدول الأصناف.

مرفق مثال نسخة 04 والأخيرة من جانبي.
احتفظت بالاستعلام القديم كما هو وعملت التعديل على استعلام آخر بنفس الاسم ليسهل عملية المقارنة وفهم التعديل.
expire date_04.accdb

مثال للكود عند الزيادة:
 
With Me.dDATE .Value = .Value + 1 .DefaultValue = "Dateserial(" & Year(.Value) & "," & _ Month(.Value) & "," & _ Day(.Value) & ")" End With  

مرفق المثال

حاول تدخل على المعاملات إن صح التعبير (جمع معامل) Parameters وعرفهما كتاريخ بحيث لو كتبت 1/3 مثلا سيحولها تلقائيا 01/03/2023
 
ShowParameters_01.accdb

تشتتي زاد مع هذا الموضوع 😞
النسخ مرة أخرى بعد تصحيح الخطأ الأخير.
RichText_Memo_07.accdb RichText_Query_07.accdb PlainText_Sel_07.accdb

التحويل حسب تاريخ الفي بي أيه
 
DateConverter_01.mdb