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

[أبن النيل]

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

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

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

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

تنسيق 2020 عام.rar

[أ / محمد صالح]

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

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

 

 

[Ali Mohamed Ali]

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

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

[أبن النيل]

مليون شكر لكم عمالقة المنتدى 

 

[أحمد يوسف]

أبن النيل

أين الضغط على الإعـــــجـــــــــاب لكل هذه الإجابات الممتازة ؟!!!💙