بسم الله الرحمن الرحيم

اهلا بكم فى عالم الاوفيس

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

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

الدالة من اعداد الرائع / ياسر خليل "علامة الاكسل فى الوطن العربى "

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

ماذا تعنى الدوال المعرفة فى الاكسل UDF Function ؟

تعني "UDF Function" اختصارًا لـ "User-Defined Function"، وهي دوال تم إنشاؤها بواسطة المستخدم في برنامج Excel. تسمح لك الدوال المعرفة بالمستخدم بتعريف دوال جديدة تقوم بأداء وظائف محددة غير متوفرة بشكل طبيعي في Excel.

لإنشاء UDF Function في Excel، يمكنك اتباع الخطوات التالية:

1. افتح برنامج Excel وانقر على علامة التبويب "مطور" في شريط الأدوات العلوي (إذا لم تكن مرئية، قم بتمكينها من خلال خيارات Excel).

2. انقر على "إدارة الملفات" ثم اختر "خيارات".

3. في نافذة خيارات Excel، انقر على "مخططات VBA".

4. تأكد من تمكين "تظهر علامة التبويب مطور في شريط الأدوات" واضغط على "موافق".

5. انقر على علامة التبويب "مطور" الآن الموجودة في شريط الأدوات.

6. في قسم "التعديل"، انقر على "Visual Basic" لفتح محرر VBA.

7. في محرر VBA، انقر بزر الماوس الأيمن على "مشروع VBA للمصنف" في العمود الأيسر واختر "إدراج" ثم "وحدة".

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

9. بعد كتابة الكود، احفظ المصنف.

فيما يلي مثال بسيط يوضح كيفية إنشاء دالة معرفة بالمستخدم تقوم بجمع رقمين:

Function SumNumbers(ByVal num1 As Double, ByVal num2 As Double) As Double

SumNumbers = num1 + num2

End Function

بعد حفظ المصنف، يمكنك استخدام الدالة الجديدة "SumNumbers" بنفس الطريقة التي تستخدم بها الدوال المدمجة في Excel. على سبيل المثال، يمكنك كتابة "=SumNumbers(A1, B1)" في خلية Excel لجمع الأرقام الموجودة في الخلايا A1 و B1.

تذكر أنه يمكنك تعريف دوال معقدة أو أكثر تعاملًا مع مجموعات البيانات والقيم المتعددة. يمكنك استكشاف المزيد من الأمثلة والموارد عبر البحث عن "Excel UDF Functions" على الإنترنت.

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

Function Kh_Date_Gender_Province(MyNumber As Variant, MyTest As Byte)

Dim MyProvinces As Variant

Dim R As Long

Dim YY As String

Dim TY As String * 1

Dim D As String * 2, M As String * 2, Y As String * 2, X As String * 2, XX As String * 2

MyProvinces = Array("01/القاهرة", "02/الإسكندرية", "12/الدقهلية", "13/الشرقية", "14/القليوبية", "15/كفر الشيخ", "16/الغربية", "17/المنوفية", "18/البحيرة", "19/الإسماعيلية", "21/الجيزة", "22/بني سويف", "24/المنيا", "25/أسيوط", "26/سوهاج", "27/قنا", "28/أسوان", "29/الأقصر", "33/مطروح", "23/الفيوم", "88/خارج الجمهورية", "11/دمياط", "04/السويس", "03/بورسعيد", "34/شمال سيناء", "35/جنوب سيناء", "32/الوادي الجديد", "31/البحر الأحمر")

D = Mid(MyNumber, 6, 2)

M = Mid(MyNumber, 4, 2)

Y = Mid(MyNumber, 2, 2)

TY = Left(MyNumber, 1)

Select Case TY

Case "2": YY = "19" & Y

Case "3": YY = "20" & Y

Case Else

End Select

Kh_Date_Gender_Province = ""

On Error GoTo 1

If Not IsNumeric(MyNumber) Or Len(MyNumber) <> 14 Or Len(Trim(MyNumber)) = 0 _

Or Val(M) < 1 Or Val(M) > 12 Or (Val(TY) <> 2 And Val(TY) <> 3) Or Month(DateSerial(YY, M, D)) <> Val(M) Then

Kh_Date_Gender_Province = ""

GoTo 1

End If

If MyTest = 1 Then

If YY <> "" Then Kh_Date_Gender_Province = DateSerial(YY, M, D)

ElseIf MyTest = 2 Then

If Left(Right(MyNumber, 2), 1) Mod 2 = 1 Then YY = "ذكر" Else YY = "أنثى"

Kh_Date_Gender_Province = YY

ElseIf MyTest = 3 Then

X = Mid(MyNumber, 8, 2)

For R = LBound(MyProvinces) To UBound(MyProvinces)

XX = MyProvinces(R)

If X = XX Then

Kh_Date_Gender_Province = Right(MyProvinces(R), Len(MyProvinces(R)) - 3)

Exit For

End If

1: End Function

ثم نقوم بعمل حفظ للملف بصيغة الماكرو

وفى المثال السابق اذا اردنا ان نستخرج تاريخ الميلاد سوف نكتب المعادلة الاتية فى الخلية C2

=Kh_Date_Gender_Province(B2,1)

لاستخراج النوع ( ذكر او انثى ) نكتب المعادلة التاية فى الخلية D2

=Kh_Date_Gender_Province(B2,2)

لاستخراج محافظة السكن نكتيب المعالدة التالية فى الخلية E2

=Kh_Date_Gender_Province(B2,3)

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

لتحميل ملف العمل بالدالة كاملة من هنا

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

ماذا تعنى الدوال المعرفة فى الاكسل UDF Function ؟

لإنشاء UDF Function في Excel، يمكنك اتباع الخطوات التالية:

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

قد يعجبك ايضا