استخدام ناتج ماكرو فى الفورم

[خالد الشاعر]

السادة خبراء المنتدى

فى الملف ماكرو للاعلامة الاستاذ / خبور خير

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

ولى سئوال هل ممكن تنفيذ ناتج هذا الماكرو فى الفورم

مثال هذا الماكرو للنوع

=Kh_Date_Sex_Province($C14;2)

ولكم جزيل الشكر

كشف 12.rar

[الحسامي]

السلام عليكم

اخي الكريم ومن بعد إذن أخي وحبيبي خبور

لنفرض أن تريد إدخال الرقم القومي في TextBox1 وتريد أضهار تاريخ الميلاد في TextBox2 باستخدام الدالة المقترحة

فيكون الكود كالتالي

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TextBox2.Text = Kh_Date_Sex_Province(TextBox1.Text, 1)

End Sub

طبعا الرقم 1 يمثل مرجعية تاريخ الميلاد

واذا اردت اظهار النوع يجب ان تبدل الرقم 1 بالرقم 2 ولاستخراج المحافظة استخدم الرقم 3

---------------------------

اخي خبور دالة ذهبية فعلا والله انك مبدع وفنان

[خالد الشاعر]

استاذ الحسامى

اشكرك على المساعدة

جزاك الله كل خيرا

[احمد فضيله]

السلام عليكم ورحمة الله و بركاته

الاخ العزيز / الحسامي

بارك الله فيك و زادك الله علماً

و السلام عليكم ورحمة الله و بركاته

[خالد الشاعر]

استاذ / الحسامى

هل ممكن ادراج رقم مسلسل الذى فى الفورم فى عمود A

حاولت و لم اوصل لحل

و جزاك الله خيراً