بعد إذن الأستاذ عماد يمكنك التغلب على هذه المشكلة بإضافة العلامة العشرية بعدنهاية كل كلمة من الاسم بدلاً من المسافة
طبعًا هذا في اسم ورقة العمل وكذلك أسماء العملاء الموجودين بورقة Principal
بعد إذن أستاذنا ومعلمنا الفاضل الأستاذ / إبراهيم الحداد
قمت بتعديل السطر
If D > dd And m > mm Then
إلى
If D > dd And m >= mm Then
والسطر
ElseIf D > dd And m < mm Then
إلى
ElseIf D > dd And m <= mm Then
وبذلك يتم حساب السن مضبوطًا لتعم الفائدة وإليك الملف بعد التعديل
ثانية تجارى.rar
تسلم الأنامل أستاذ إبراهيم ولكن بقي شرط حتى يكتمل الموضوع وتعم الفائدة
الشرط هو أن نكتب المعادلة التالية إذا لم يتحقق تكون النتيجة تأكد من الرقم القومي
=IF(AND(LEN(C4)<>14;ISNUMBER((C4)));"خطأ")
ألف شكر على مجهودك وتعبك ولكن عند إضافة أسماء اخرى لا تعمل
وعلى فكرة أستاذنا ومعلمنا الفاضل الأستاذ / إبراهيم الحداد قام بعمل حساب التاريخ في ملف الصف الثاني تجاري بواسطة ماكرو VBA فياريت نصل إلى استخراج تاريخ الميلاد في ماكرو مستقل والنوع في ماكرو آخر
أساتذي الكرام المطلوب استخراج تاريخ الميلاد والنوع من الرقم القومي وحساب السن بأكواد VBA وليس معادلات أو دالة وظهور النتيجة كقيم
استخراج تاريخ الميلاد والنوع وحساب السن كقيم.xls
قم بالضغط على قائمة بيانات واختر تحرير الارتباطات واختر فصل الاتباط
وممكن الضغط على مفتاح كنترول + F3 تظهر جميع النطاقات المرتبطة بالشييت فقط قم بإزالة النطاقات المرتبطة بملفات أخرى