البحث في الموقع

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه (مميز ) دالة استخراج تاريخ الميلاد او النوع او المحافظة من الرقم القومي _ أ / عبدالله باقشير دالة لاستخراج اسم واحد او عدة اسماء من اسم كامل _ أ / عبدالله باقشير دالة استخراج اسم ولي الامر كاملا او الاسم الاول مفردا _ أ / عبدالله باقشير دالة جديدة لاستخراج ولي الامر _ أ / عبدالله باقشير دالة استخراج النص او الارقام _ أ / عبدالله باقشير برنامج حساب العمر بالتقويمين الميلادي والهجري (برنامج جاهز) _ أ / عبدالله باقشير دالة ( تفقيط ) تحويل الرقم الى نص بالعربي - طول الرقم غير محدود - _ أ / عبدالله باقشير التعامل مع التاريخ الهجري بسهولة _ أ / عبدالله باقشير بالكود و المعادلات_تحويل التاريخ من هجرى الى ميلادى و العكس _ أ / عبدالله باقشير دمج التاريخ مع السلاسل النصية_التاريخ بالكمبوكس _ أ / عبدالله باقشير _ أ / أبوعبد الله_اكسلجى كود صغير جدا و لكن مفيد جدا_ادراج تاريخ تلقائى بالخلية بناء على ادخال بيان _ أ / عبدالله باقشير كود صغير جدا و لكن مفيد جدا_التحديث التلقائى للوقت و التاريخ _ أ / عبدالله باقشير لتقف كل الأكواد عاجزة أمام دالة " فصـــــــــــل الأسماء المركبة "_ _ أ / جمال عبد السميع كود فصل الأسم المركب " وحل جميع مشاكلة للأبد " _ أ / جمال عبد السميع بمناسبة العام الدراسى ( أحسب سن تلاميذك ) بالميلاد أو القومى_ _ أ / جمال عبد السميع ستوب ووتش_كود و برنامج _ الاستاذ / الحسامي رحمه الله _ أ / محمد يحياوي أربعة عشر طريقة لمعرفة السنة الكبيسة أو السنة العادية باستخدام المعادلات _ أ / ياسر خليل أبو البراء التقويم بعد التعديل (برنامج جاهز) _ أ / منتصر الانسي اشهر المعادلات والاكواد عن حساب السن _ أ / جمال الفار دالة جديدة لاستخراج اسم المحافظة وتاريخ الميلاد والنوع من الرقم القومي المصري _ أ / عبدالله المجرب كود جميل و بسيط لاضافة التاريخ _ أ / احمد فضيله داله DateDif رائعه لايجاد الفرق بين تاريخين او طرح تاريخين _ أ / الصـقر ايجاد الفرق بين تاريخين بواسطة الدوال التالية (YEAR,MONTH.DAY) _ أ / الجموعي الفرق بين تاريخين باستخدام الدالة DATEDIF _ أ / محمد الريفى دالة تجزئة الاسماء والارقام _ أ / أبو تامر_عمر الحسينى تفقيط عربي انجليزي _ أ / أبو تامر_عمر الحسينى فصل وفرز الأرقام التي تمثل التاريخ والوقت _ أ / halwim برنامج رائع للتحويل بين التاريخين الهجري والميلادي (برنامج جاهز) _ أ / علي السحيب برنامج جديد لحساب العمر (برنامج جاهز) _ أ / علي السحيب برنامج حساب السن لرياض الاطفال -اولى ابتدائي _ أ / ابوصلاح تقويم متجدد _ مع تظليل اليوم مشاركات / BuFaisal _ أبوعبد الله إنشاء مؤقت داخل مصنف اكسيل_ستوب ووتش _ أ / زياد علي إستخراج البيانات من الرقم القومي المصري ( أكواد و معادلات ) _ أ / معتصم محمد برنامج بسيط لحساب السن وصلاحية المواد _ أ / ياسر الحافظ 2012 ملف التفقيط الارقام الى حروف فى الاكسيل بدون ماكرو convert numbers into text مشاركه من أ / Hrashad وأخييييراً صممت ساعة ديجيتال _ أ / الزباري ساعة رقمية _ أ / عادل حنفي تحويل التاريخ بين الميلادى و الهجرى_حالات متعددة _ أ / أبوعبد الله_اكسلجى تحويل التاريخ الميلادي لهجري بمعادلة وصيغ تاريخ مختلفة _ أ / أبوعبد الله_اكسلجى كود و دالة تفقيط للارقام و الاوزان_حالات متعدده _ أ / أبوعبد الله_اكسلجى بالمعادلات_تحويل الساعات إلى ساعات ودقائق و ثواني _ أ / أبوعبد الله_اكسلجى بالفورم_حساب الفرق بين وقتين _ أ / أبوعبد الله_اكسلجى _ أ / ابو اسامة العينبوسي ساعه ستوب واتش (برنامج جاهز) _ أ / ابو اسامة العينبوسي التفقيط فى الإكسيل _ أ / محمد طاهر وأخيراُ - عمل دالة التفقيط بسهولة شديدة وبالتفصيل الممل _ بدأه _ أ / بكار للأبد تقويم 2017 _ أ / جلال محمد اظهار التاريخ في ورقة العمل الاكسل بدون كتابة التاريخ _ أ / abumaher هدية للمبتدئين.... حساب العمر _ أ / حساسينو بالكود و المعادلات _ تحويل المبلغ إلى حروف _ مشاركات الاعضاء كود ادراج الوقت بدبل كليك فى خليه او نطاق _ مشاركات الاعضاء بالكود عمل سلسلة من التواريخ مع استبعاد ايام الجمعه و السبت(الاجازات) _ مشاركات الاعضاء بالكود و المعادلات_الفصل بين النص والأرقام _ مشاركات الاعضاء موضوع مميز_بالكود و المعادلات حساب العمر _ مشاركات الاعضاء موضوع مميز_تنسيق خاص للوقت _ مشاركات الاعضاء تثبيت التاريخ والوقت الحالى فى خليه دون جعله يتغير دائما _ مشاركات الاعضاء ادراج التاريخ في الخلية من خلال ظهور شاشة تقويم _ مشاركات الاعضاء

السلام عليكم ورحمة الله وبركاته دالة لاستخراج اسم واحد او عدة اسماء من اسم كامل kh_Names هي دالة مطورة من الدالة kh_Name والتي تستخرج اسم واحد حسب التعيين من اسم مركب تجدها في الرابط ادناه http://www.officena.net/ib/index.php?showtopic=33289 اما هذه الدالة تستطيع من خلالها استخراج اكثر من اسم وباي ترتيب تريده (فكرة الدالة مستوحاه من مشاركة لاختي الفاضلة ام عبدالله حفظها الله حيث استخدمت الدالة السابقة kh_Name ثلات مرات لاستخراج الاسم الثلاثي ) كود الدالة: Option Explicit ' بسم الله الرحمن الرحيم " '======================================" ' دالة استخراج الاسماء من اسم مركب طويل ' iNdex1 بدلالة ترتيب الاسم '======================================" ' iNdex1 ' اختيار موقع الاسماء التي تريدها ' FullName حسب ترتبها في ' (اسم واحد او عدة اسماء) '======================================" ' وهي تقوم بإستخراج الاسماء المركبة ' للاسم الواجد ' تلقائياً حسب معايير معرفة لديها ' MyArray في متغير الجدول ' ويمكنك اضافة اي معيار آخر ' بجانب المعايير الموجودة ' مع مراعاة وجود فراغ بداية ' او نهاية المعيار '======================================" '----------------------------------------------------------------- Function kh_Names(FullName As String, ParamArray iNdex1()) As String Dim i As Integer Dim kh_Split, MyArray, Ar Dim Kh_String As String, Sn As String, Re As String On Error GoTo Err_Kh_Names '====================================== MyArray = Array("عبد ", "أبو ", "ابو ", "آل " _ , " الله", " الدين", " الإسلام", " الاسلام", " الحق") '====================================== Sn = Application.WorksheetFunction.Trim(FullName) For Each Ar In MyArray Re = Replace(Ar, " ", "^") Sn = Replace(Sn, Ar, Re) Next '====================================== kh_Split = Split(Sn, " ", , vbTextCompare) On Error Resume Next For i = 0 To UBound(iNdex1) Kh_String = Kh_String & " " & kh_Split(iNdex1(i) - 1) Next On Error GoTo 0 Kh_String = Replace(Trim(Kh_String), "^", " ") kh_Names = Kh_String Exit Function Err_Kh_Names: kh_Names = "" End Function المرفق 2003 استخراج عدة اسماء من اسم كامل.rar

السلام عليكم Option Explicit ' بسم الله الرحمن الرحيم " '======================================" ' دالة استخراج الاسماء من اسم مركب طويل ' kh_index بدلالة ترتيب الاسم '======================================" ' kh_index ' اذا كانت مهملة او نصاً او صفرا ' تقوم باستخراج الاسم الاول '======================================" ' وهي تقوم بإستخراج الاسماء المركبة ' للاسم الواجد ' تلقائياً حسب معايير معرفة لديها ' MyArray في متغير الجدول ' ويمكنك اضافة اي معيار آخر ' بجانب المعايير الموجودة ' مع مراعاة وجود فراغ بداية ' او نهاية المعيار '======================================" '----------------------------------------------------------------- Function kh_Name(Name As String, Optional kh_index = 1) As String Dim kh_ind As Integer Dim kh_Split, MyArray, Ar Dim Kh_String As String, Sn As String, Re As String, kh_Split_index As String, Kh_Rep As String On Error GoTo Err_Kh_Name kh_ind = Val(kh_index) If kh_ind = 0 Then kh_ind = 1 '====================================== MyArray = Array("عبد ", "أبو ", "ابو ", "آل " _ , " الله", " الدين", " الإسلام", " الاسلام", " الحق") '====================================== Sn = Application.WorksheetFunction.Trim(Name) For Each Ar In MyArray Re = Replace(Ar, " ", "^") Sn = Replace(Sn, Ar, Re) Next '====================================== Kh_String = Sn kh_Split = Split(Kh_String, " ", , vbTextCompare) kh_Split_index = kh_Split(kh_ind - 1) Kh_Rep = Replace(kh_Split_index, "^", " ") kh_Name = Kh_Rep Exit Function Err_Kh_Name: kh_Name = "" End Function تجزئة الاسماء من اسم طويل.rar