اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by أ / محمد صالح,

الردود الموصى بها

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

مثل تاريخ الميلاد واسم ولى الامر وباقى الاعمدة

ولكم شكرى وتقديرى

عنوان مخالف ... تم تعديل عنوان المشاركة ليعبر أكثر عن طلبك

تنسيق 2020 عام.rar

رابط هذا التعليق
شارك

  • أفضل إجابة

ربما يفيدك هذا الموضوع

استخراج تاريخ الميلاد والمحافظة والنوع من الرقم القومي 

 

 

  • Like 1
رابط هذا التعليق
شارك

بارك الله فيك استاذ محمد ولإثراء الحل -يمكنك استخدام هذه الدالة المعرفة

Function Ahmed_Date(myid As Variant, Optional stype As Byte = 1) As Variant
If myid = "" Then Ahmed_Date = "": Exit Function
Dim n As Byte, governrate As Variant
If stype = 1 Then
    Ahmed_Date = DateSerial(IIf(Left(myid, 1) = 2, 19, 20) & Mid(myid, 2, 2), Mid(myid, 4, 2), Mid(myid, 6, 2))
ElseIf stype = 2 Then
governrate = Array("01-ÇáÞÇåÑÉ", "02-ÇáÅÓßäÏÑíÉ", "03-ÈæÑÓÚíÏ", "04-ÇáÓæíÓ", "11-ÏãíÇØ", "12-ÇáÏÞåáíÉ", "13-ÇáÔÑÞíÉ" _
, "14-ÇáÞáíæÈíÉ", "15-ßÝÑ ÇáÔíÎ", "16-ÇáÛÑÈíÉ", "17-ÇáãäæÝíÉ", "18-ÇáÈÍíÑÉ", "31-ÇáÈÍÑ ÇáÃÍãÑ", "32-ÇáæÇÏì ÇáÌÏíÏ" _
, "19-ÇáÅÓãÇÚíáíÉ", "21-ÇáÌíÒÉ", "22-Èäí ÓæíÝ", "23-ÇáÝíæã", "24-ÇáãäíÇ", "25-ÃÓíæØ", "34-ÔãÇá ÓíäÇÁ", "35-ÌäæÈ ÓíäÇÁ" _
, "26-ÓæåÇÌ", "27-ÞäÇ", "28-ÃÓæÇä", "29-ÇáÃÞÕÑ", "33-ãØÑæÍ", "88-ÎÇÑÌ ãÕÑ")
    For n = 0 To 27
        If Mid(myid, 8, 2) = Left(governrate(n), 2) Then
            Ahmed_Date = Right(governrate(n), Len(governrate(n)) - 3)
            Exit For
        End If
    Next
Else
    Ahmed_Date = IIf(Mid(myid, 13, 1) Mod 2 = 0, "ÃäËì", "ÐßÑ")
End If
End Function

وعليك بوضع هذه المعادلة فى عمود محل الميلاد بداية من الخلية M6

=Ahmed_Date(E6,2)

تنسيق 2020 عام-1.xls

  • Like 4
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information