عبدالله باقشير قام بنشر يوليو 14, 2008 مشاركة قام بنشر يوليو 14, 2008 (معدل) السلام عليكم بعون الله وتوفيقه اليكم الدالة الخبورية الاولى إستخراج اسم ولي الامردالة Father_Name(B3;TRUE) الحالات التي تقوم بها في حالة التعيين TRUE وهو الافتراضي 1- اسم الطالب الغير مركب 2- اسم الطالب المركب والذي يكون اسمه الاول المركب بالكلمة "عبد" 3- اسم الطالب المركب والذي يكون اسمه الثاني المركب إسم الجلالة "الله" في أي حالات اخرى غير المذكورة اعلاه استخدم FALSE __________________.rar ==================================== لقد تم اضافة حالة جديدة الى القاعدة TRUE وهي الاسماء المركبة التي يكون اسمها الثاني كلمة "الدين" سيتم تغيير الكود الى التالي : Function Father_Name(Name As Variant, KhBoolean As Boolean) Dim KhString, SearchChar, KhMyNo, KhMyNo1 Dim KhMyLen As Integer KhString = Name.Value KhString = Trim(KhString) KhMyLen = Len(KhString) SearchChar = " " If InStr(1, KhString, SearchChar, 1) = 0 Then Father_Name = "": GoTo 2 If Mid(KhString, 1, 3) = "عبد" Then GoTo 1 If KhBoolean Then KhMyNo = InStr(1, KhString, SearchChar, 1) + 1 If Mid(KhString, KhMyNo, 4) = "الله" _ Or Mid(KhString, KhMyNo, 5) = "الدين" Then GoTo 1 Father_Name = Mid(KhString, KhMyNo, KhMyLen) Else 1 KhMyNo = InStr(1, KhString, SearchChar, 1) + 1 KhMyNo1 = InStr(KhMyNo, KhString, SearchChar, 1) + 1 Father_Name = Mid(KhString, KhMyNo1, KhMyLen) End If 2 End Function _______________________2.rar تم تعديل يوليو 15, 2008 بواسطه خبور خير رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر يوليو 14, 2008 مشاركة قام بنشر يوليو 14, 2008 (معدل) ماشاء الله رائعةجزاك الله خيراهذه الدالة غير مسبوقة تم تعديل يوليو 14, 2008 بواسطه mohammadey1 رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يوليو 14, 2008 مشاركة قام بنشر يوليو 14, 2008 السلام عليكم عندما تطول غيبتك تاتى بما هو رائع رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر يوليو 14, 2008 مشاركة قام بنشر يوليو 14, 2008 * أخي خبور * جرب كتابة الأسم التالي ( حسام الدين عبد المنعم السيد ) 1 رابط هذا التعليق شارك More sharing options...
ابو اسامة العينبوسي قام بنشر يوليو 14, 2008 مشاركة قام بنشر يوليو 14, 2008 السلام عليكم اخى حسام و اخى خبور **القاعدة في هذه الحال ***لا قاعده للاسماء*** هل ممكن قول ذلك ؟؟؟ رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر يوليو 14, 2008 مشاركة قام بنشر يوليو 14, 2008 (معدل) اخي الكريم خبور زادك الله من فضله وزادك علما اخواني حسام وابو اسامة كما يتضح من الشرح فلو اضفنا اسم حسام الدين عبد المنعم السيد فيجب ا ستخدام المعادلة ادناه كما شرح اخي خبور وستجد نفس الاسم بالسطر 19 من المرفق =Father_Name(B3;FALSE) اما استخدام المعادلة ادناه =Father_Name(B3;TRUE) فتنطبق على 1- اسم الطالب الغير مركب 2- اسم الطالب المركب والذي يكون اسمه الاول المركب بالكلمة "عبد" 3- اسم الطالب المركب والذي يكون اسمه الثاني المركب إسم الجلالة "الله" وعليه فان المثال والمرفق متطابقين تم تعديل يوليو 14, 2008 بواسطه نزار سليمان عيد رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يوليو 14, 2008 الكاتب مشاركة قام بنشر يوليو 14, 2008 اخي الكريم خبور زادك الله من فضله وزادك علما اخواني حسام وابو اسامة كما يتضح من الشرح فلو اضفنا اسم حسام الدين عبد المنعم السيد فيجب ا ستخدام المعادلة ادناه كما شرح اخي خبور وستجد نفس الاسم بالسطر 19 من المرفق CODE =Father_Name(B3;FALSE) اما استخدام المعادلة ادناه CODE =Father_Name(B3;TRUE) فتنطبق على 1- اسم الطالب الغير مركب 2- اسم الطالب المركب والذي يكون اسمه الاول المركب بالكلمة "عبد" 3- اسم الطالب المركب والذي يكون اسمه الثاني المركب إسم الجلالة "الله" وعليه فان المثال والمرفق متطابقين ===================================== السلام عليكم الاخ الفاضل / نزار سليمان _____________حفظك ربي ورعاك لقد ادخلت الاطمئنان الى قلبي فكنت محتارا في مشاركة اخي الفاضل حسام ما هو المقصود منها ؟؟ حيث ان الدالة تقوم بالمطلوب حسب ما شرحت حضرتك اعلاه فظنيت ان هناك مقصد آخر من معنى مشاركته اشكرك اخي العزيز من كل كياني حفظك ربي ورعاك ====================================== الاخ الفاضل حسام نور ------------- حفظه الله هل هناك معنى آخر مما قصدت بقولك في المشاركة خاصتك ؟؟ ====================================== الاخ الفاضل محمدي عبد السميع ------------- حفظه الله تحياتي وشكري ====================================== الاخ الفاضل ابواسامة ------------- حفظه الله تحياتي وشكري رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يوليو 14, 2008 مشاركة قام بنشر يوليو 14, 2008 (معدل) جزاك الله خيرا استاذ خبور تم تعديل يوليو 14, 2008 بواسطه nasersaeed رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يوليو 14, 2008 مشاركة قام بنشر يوليو 14, 2008 المحترم / الاستاذ خبور جزاك الله خيرا هذه الدالة رائعة ومشاركة الاستاذ حسام لم نفهم لها معنى ومشاركة الاستاذ العينبوسي نريد منه التوضيح ومشاركة الاستاذ نزار تدل على التوضيح حقا شكرا لشهامته اخي المحترم خبور عذرا ..... ارجو ان تمتعنا بالحل في هذا الرابط .. ومرة اخرى عذرا للتداخل ونرجو ان تجعله في موضوع مستقل لتعم الفائدة لان اسمك علم (كود تقسيم الاعمدة والصفوف رائع ... ولكننا نريد معه كود لنسخ الرأس والذيل بنفس عدد الاعمدة والصفوف ) http://www.officena.net/ib/index.php?showt...20&start=20 رابط هذا التعليق شارك More sharing options...
باسم قلب الأسد قام بنشر يوليو 14, 2008 مشاركة قام بنشر يوليو 14, 2008 المحترم / الاستاذ خبور جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر يوليو 14, 2008 مشاركة قام بنشر يوليو 14, 2008 بسم الله الرحمن الرحيم اخى خبور بارك الله فيك مايقصده الاستاذ حسام نور : اذا كتبت حسام الدين عبد المنعم السيد سيظهر اسم الوالد الدين عبد المنعم السيد و لكن الفكره رائعه جزاك الله خيرا السلام عليكم رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر يوليو 14, 2008 مشاركة قام بنشر يوليو 14, 2008 استاذي الفاضل هادي السلام عليكم طال غيابك ونحن بانتظار لمساتك وابداعاتك استاذي الفاضل هل جربت كتابة الاسم حسام الدين عبد المنعم السيد في الخلية رقم B19 بالتحديد جرب ثم اعطيني رايك رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر يوليو 14, 2008 مشاركة قام بنشر يوليو 14, 2008 استاذي الفاضل هادي السلام عليكم طال غيابك ونحن بانتظار لمساتك وابداعاتك استاذي الفاضل هل جربت كتابة الاسم حسام الدين عبد المنعم السيد في الخلية رقم B19 بالتحديد جرب ثم اعطيني رايك بسم الله الرحمن الرحيم اخى نزار شكرا على كلامك الجميل النتيجه سليمه فى B19 و ليست سليمه فى B3 السلام عليكم رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر يوليو 14, 2008 مشاركة قام بنشر يوليو 14, 2008 نعم استاذي الفاضل هذا ما اوضحه اخي خبور في شرح الملف عن وجود معادلتين او نفس المعادلة واحدة تنتهي بـ True والاخرى False فعند استخدام True في هذا المثال سيظهر ان النتيجة غير سليمة اما اذا استخدمنا False في نفس المثال فالنتيجة سليمة وشكرا على مرورك استاذي العزيز رابط هذا التعليق شارك More sharing options...
هادى محمد المامون سالم قام بنشر يوليو 14, 2008 مشاركة قام بنشر يوليو 14, 2008 بسم الله الرحمن الرحيم لك حق اخى نزار لم الاحظ المقدمه السلام عليكم رابط هذا التعليق شارك More sharing options...
حسام نور قام بنشر يوليو 14, 2008 مشاركة قام بنشر يوليو 14, 2008 أخي الجميل خبور خير جربت أدخال " حسام الدين عبد المنعم السيد " في B23 فظهر الأسم لولي الأمر / الدين عبد المنعم السيد ولكن في الوضع True وظبطت الأمور مع False بارك الله في علمك ونفع به الكل رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يوليو 14, 2008 الكاتب مشاركة قام بنشر يوليو 14, 2008 (معدل) السلام عليكم يا لها من فرحة بهذا التشريف من اساتذتنا الاكارم حفظهم ربي ورعاهم الاستاذ القدير / هادي سالم ____________حفظه الله الفكرة في هذه الدالة اننا نريد ان نعمل قاعدة معينة لمعرفة اسم الطالب الاول من اجل استخراجة من الاسم الشامل وبما ان اسم الطالب الاول قد لايكون مركبا وقد يكون مركبا من اسمين ولانه لا توجد قاعدة نستطيع من خلالها ضبط هذا الاشكال في بعض الحالات استخدمنا هنا قاعدة ( True/ False) الاسم الغير مركب ( لا يوجد فيه إشكال) الحالتين التي استطعنا ان نعمل لهم قاعدة لضبط هذا الإشكال هما: 1- اسم الطالب المركب والذي يكون اسمه الاول المركب كلمة "عبد" 2- اسم الطالب المركب والذي يكون اسمه الثاني المركب إسم الجلالة "الله" الحالات اعلاه اعطيناهم الحالة ( True) وهي الحالة الشائعة الحالات الاخرى والتي لا نستطيع ان نحدد لها قاعدة معينة ( الى يومنا هذا ) نستخدم معها الحالة ( False) باعتبارها الحالة الادنى والا ما الفائدة اساسا من اضافة قاعدة ( True/ False) في تعريف الدالة كنا سنكتفي بالاشارة الى خلية الاسم قد نتوصل الى حلول اخرى ولكن / إن شاء الله ان كانت لديكم اي اقتراحات لما فيه الافضل فنحن آذان صاغية هذا جعلته بخصوص ما ذكر والباري يحفظكم والدعاء وصية ودمتم في حفظ الله ============================================ الاخوان / الكريمان/ ناصر و باسم ------- حفظكما ربي تحياتي وشكري اخي ناصر سنرى ما اشرت اليه إن شاء الله ============================================ الاستاذ القدير / حسام نور____________المحترم فهمت الموضوع اخي شكرا جزيلا تم تعديل يوليو 14, 2008 بواسطه خبور خير رابط هذا التعليق شارك More sharing options...
الجزيرة قام بنشر يوليو 15, 2008 مشاركة قام بنشر يوليو 15, 2008 (معدل) مبدع بفكرك وعلمك وذوقك الله يحفظكـ أخي خبور تم تعديل يوليو 15, 2008 بواسطه الجزيرة رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يوليو 15, 2008 الكاتب مشاركة قام بنشر يوليو 15, 2008 السلام عليكم الاخ الفاضل ابوعبدالله الجزيرة _____________حفظه الله بارك الله فيك واجزل لك العطاء تحياتي وشكري رابط هذا التعليق شارك More sharing options...
محمد مصراوى قام بنشر يوليو 15, 2008 مشاركة قام بنشر يوليو 15, 2008 ان شاء الله دائما الى الامام وجزاك الله عنا خيرا رابط هذا التعليق شارك More sharing options...
نزار سليمان عيد قام بنشر يوليو 15, 2008 مشاركة قام بنشر يوليو 15, 2008 (معدل) اخواني السلام عليكم اخي خبور بعد اذنك قمت بعمل تعديل بسيط على المعادلة لكي تتم القراءة اتوماتيكيا بدون ان نكتب False او True والمعادلة هي =IF(LEN(SUBSTITUTE(B25," ",))<18,Father_Name(B25,TRUE),Father_Name(B25,FALSE)) وهي عبارة عن قراءة عدد الاحرف بحيث اذا كانت اقل من 18 حرف يستخدم True واذا كانت اكبر يستخدم False وحسب التجربة على نفس المرفق ولكن في عمود D تم وضع المعادلة الجديدة الفكرة نجحت فالرجاء التجربة واعلامنا بالنتيجة انظر للمرفق ______________________________.rar تم تعديل يوليو 15, 2008 بواسطه نزار سليمان عيد رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يوليو 15, 2008 الكاتب مشاركة قام بنشر يوليو 15, 2008 السلام عليكم اخي : انظر الى : صلاح الدين الايوبي عندك موجود الصف 24 رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر يوليو 15, 2008 الكاتب مشاركة قام بنشر يوليو 15, 2008 (معدل) السلام عليكم اخي نزار حفظه الله لقد اضفت الى الحالات TRUE ============================================ الاسماء المركبة والتي يكون الاسم المركب الثاني فيها "الدين" ============================================ و لكن اكيد في اسماء اخرى ايضا تحتاج تعريف المطلوب من اخواننا المدرسين كشف بالاسماء المركبة غير التي ضبطناها سابقا حتى نعمل قاعدة تشمل هذه الاسماء ان امكن وبرضوا ستظل قاعد استخدام FALSE قائمة للاحتمالات المستقبلية ساضيف الكود الجديد في اول مشاركة ايضا للفت الانتباه الكود الجديد ======= Function Father_Name(Name As Variant, KhBoolean As Boolean) Dim KhString, SearchChar, KhMyNo, KhMyNo1 Dim KhMyLen As Integer KhString = Name.Value KhString = Trim(KhString) KhMyLen = Len(KhString) SearchChar = " " If InStr(1, KhString, SearchChar, 1) = 0 Then Father_Name = "": GoTo 2 If Mid(KhString, 1, 3) = "عبد" Then GoTo 1 If KhBoolean Then KhMyNo = InStr(1, KhString, SearchChar, 1) + 1 If Mid(KhString, KhMyNo, 4) = "الله" _ Or Mid(KhString, KhMyNo, 5) = "الدين" Then GoTo 1 Father_Name = Mid(KhString, KhMyNo, KhMyLen) Else 1 KhMyNo = InStr(1, KhString, SearchChar, 1) + 1 KhMyNo1 = InStr(KhMyNo, KhString, SearchChar, 1) + 1 Father_Name = Mid(KhString, KhMyNo1, KhMyLen) End If 2 End Function ====================== مرفق ملف المشاركة رقم 1 ====================== تم تعديل يوليو 15, 2008 بواسطه خبور خير رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يوليو 16, 2008 مشاركة قام بنشر يوليو 16, 2008 شكرا لكم على هذه الدالة القوية وطلبك بعينات بالاسماء المركبة .. سأحضر عدة كشوف وأستخرج منها هذه النوعية وان رأيت فيها بأسماء جديدة سأوافيكم ولكن الاسماء المركبة لا يمكن حصرها والسبب هو ان شخصا ما يعجب باسم شخصية فيجعلها اسما لولده ( جمال عبد الناصر ) محمد وهكذا والحق يقال ان كودك ألم بالكثير من هذه النوعية فالأسماء التي بعد كلمة ( عبد ) اكثرهم جزاك الله بالرزق الحلال الطيب المبارك فيه رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر يوليو 16, 2008 مشاركة قام بنشر يوليو 16, 2008 جزاك الله بالرزق الحلال الطيب المبارك فيه آمين .. يارب العالمين رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.