بسم الله الرحمن الرحيم
اهلا بكم فى عالم الاوفيس
دالة استخراج تاريخ الميلاد والنوع والمحافظة من الرقم القومي
اقدم لكم اليوم دالة معرفة جميلة جدا دالة استخراج تاريخ الميلاد والنوع والمحافظة من الرقم القومي فى
الاكسل
الدالة من اعداد الرائع / ياسر خليل "علامة الاكسل فى الوطن العربى "
وقد قمنا بنشر دالة استخراج تاريخ الميلاد والنوع والمحافظة
من الرقم القومي هنا حتى يستفيد كل مستخدمى الاكسل وكل من يبحث عن دالة استخراج تاريخ
الميلاد والنوع والمحافظة من الرقم القومي من هذا الموضوع
ماذا تعنى الدوال المعرفة فى الاكسل 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
Next
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)
وبكدة نكون قمنا دالة استخراج تاريخ الميلاد والنوع والمحافظة
من الرقم القومي بطريقة سهلة وبسيطة
لتحميل
ملف العمل بالدالة كاملة من هنا
- قد يعجبك ايضا
- تحميل برنامج حركة الخزينة مجانا
- اسطوانة التعريفات الشاملة DriverPack Solution بدون نت
- شيت بجميع اكواد الخدمة في فورى Fawry اكواد فوري
- برنامج مجانى لمتابعة حركة الخزينة Excel
- تحميل برنامج مخازن مجانى 100 % كامل ومفتوح المصدر | Store Management System
- برنامج متابعة الشيكات (شيكات دفع / شيكات قبض ) Cheques Management + نسخة تجريبية
- تحميل برنامج الكاشير2020 المجانى لادارة حسابات المحلات التجارية Cashier
- تحميل برنامج مجانى حضور وانصراف الموظفين بالبصمة( دوام الموظفين المجانى)
- تحميل برنامج مخازن مجانى 100%
- -برنامج المنجز 2024
- تحميل برنامج محاسبى كامل كفعل مدى الحياة