عبدالله باقشير

http://www.officena.net/ib/index.php?showtopic=24702

السلام عليكم طلب للاخ الفاضل ناصر سعيد والاخ هشام خضر اضافات للكود بتاع الاستاذ ابواسامة ______________.rar ================================= اليكم التعديلات الجديدة حسب طلب الاخ ناصر بالنسبة للطباعة الشيت عريض جدا ______________3.rar ================================== السلام عليكم تم اضافة تعديلات للطباعة ______________3.rar

السلام عليكم يا لها من فرحة بهذا التشريف من اساتذتنا الاكارم حفظهم ربي ورعاهم الاستاذ القدير / هادي سالم ____________حفظه الله الفكرة في هذه الدالة اننا نريد ان نعمل قاعدة معينة لمعرفة اسم الطالب الاول من اجل استخراجة من الاسم الشامل وبما ان اسم الطالب الاول قد لايكون مركبا وقد يكون مركبا من اسمين ولانه لا توجد قاعدة نستطيع من خلالها ضبط هذا الاشكال في بعض الحالات استخدمنا هنا قاعدة ( True/ False) الاسم الغير مركب ( لا يوجد فيه إشكال) الحالتين التي استطعنا ان نعمل لهم قاعدة لضبط هذا الإشكال هما: 1- اسم الطالب المركب والذي يكون اسمه الاول المركب كلمة "عبد" 2- اسم الطالب المركب والذي يكون اسمه الثاني المركب إسم الجلالة "الله" الحالات اعلاه اعطيناهم الحالة ( True) وهي الحالة الشائعة الحالات الاخرى والتي لا نستطيع ان نحدد لها قاعدة معينة ( الى يومنا هذا ) نستخدم معها الحالة ( False) باعتبارها الحالة الادنى والا ما الفائدة اساسا من اضافة قاعدة ( True/ False) في تعريف الدالة كنا سنكتفي بالاشارة الى خلية الاسم قد نتوصل الى حلول اخرى ولكن / إن شاء الله ان كانت لديكم اي اقتراحات لما فيه الافضل فنحن آذان صاغية هذا جعلته بخصوص ما ذكر والباري يحفظكم والدعاء وصية ودمتم في حفظ الله ============================================ الاخوان / الكريمان/ ناصر و باسم ------- حفظكما ربي تحياتي وشكري اخي ناصر سنرى ما اشرت اليه إن شاء الله ============================================ الاستاذ القدير / حسام نور____________المحترم فهمت الموضوع اخي شكرا جزيلا

===================================== السلام عليكم الاخ الفاضل / نزار سليمان _____________حفظك ربي ورعاك لقد ادخلت الاطمئنان الى قلبي فكنت محتارا في مشاركة اخي الفاضل حسام ما هو المقصود منها ؟؟ حيث ان الدالة تقوم بالمطلوب حسب ما شرحت حضرتك اعلاه فظنيت ان هناك مقصد آخر من معنى مشاركته اشكرك اخي العزيز من كل كياني حفظك ربي ورعاك ====================================== الاخ الفاضل حسام نور ------------- حفظه الله هل هناك معنى آخر مما قصدت بقولك في المشاركة خاصتك ؟؟ ====================================== الاخ الفاضل محمدي عبد السميع ------------- حفظه الله تحياتي وشكري ====================================== الاخ الفاضل ابواسامة ------------- حفظه الله تحياتي وشكري

السلام عليكم ورحمة الله وبركاته الاسم : عبدالله علي أحمد باقشير الميلاد : 04/ 12 / 1967 الجنسية : يمني المؤهل : ثانوية عامة العمل : قطاع خاص( محاسب) الهوايه : الاكسل تحياتي

السلام عليكم بعون الله وتوفيقه اليكم الدالة الخبورية الاولى إستخراج اسم ولي الامردالة 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

السلام عليكم اخي سعد ___________حفظك ربي شكرا جزيلا على روحك الطيبة / وانا عارف اساسا انك لم تكون قاصدا ماكتبت ولم اكتب لك انا ما كتبت الا للتوضيح وليس للتوبيخ ولا يوجد شي في القلوب اخوك خبور خير

السلام عليكم لازم تكون المعايير في صفحة البيانات مطابقة للمعايير في الجدول كاتب (سلعة 1) بهذا الشكل وفي الصفحة الاخرى (سلعة1) هل يوجد هنا تتطابق في المعايير يجب ان تركز على النقطة هذه بشكل اساسي استخدم المعادلة : SUMPRODUCT((INDEX(البيانات;0;2)=B$6)*(INDEX(البيانات;0;1)>=تاريخ1)*(INDEX(البيانات;0;1)<=تاريخ2);INDEX(البيانات;0;3)) مرفق ملف ______1.rar

السلام عليكم كون القائمة ياستخدام المعادلة: =INDIRECT($H$5)

السلام عليكم البيانات موجودة في الورقة الرئيسية (TT) لديك كود يقوم بالغاء الحماية فقم بالغاءها ثم اذهب الى / القائمة/ اطار / الغاء تجميد الالواح ثم استخدم الكود التالي: Sub KHScrollArea() ورقة1.ScrollArea = "" End Sub لالغاء التجميد الحاصل في الورقة وستجد البيانات في الخلايا A9:L150000 بالتوفيق إن شاء الله اخي واشعرنا بذلك للاطمئنان

السلام عليكم الاخ الفاضل مصطفى كمال_______________حفظه الله مبروك اخي الترقية , ولتجعلها حافزاً للمزيد من العطاء خبور خير

السلام عليكم التمس لنا العذر اخي الخضر ولو بالامكان كنا ما تاخرنا بالرد

السلام عليكم لا حول ولا قوة الا بالله العلي العظيم استخدم ما اشار اليك الاخ / مصطفى كمال جزاه الله الف خير بالنسبة لي ما عندي خبرة في هذه الامور المتعلقة بمشاكل الجهاز إن شاء الله ستفرج بحل الاخ مصطفى

السلام عليكم اخي : ============================== اعمل ضابط اخر لتسمية الاوراق وليس ضابط العدد التراكمي لتجنب الخطا في حالة الحذف ثم الاضافة مثال : اضف 7 اوراق ثم احذف من 1 الى3 ثم اضف 4 اوراق اخرى ============================== اثناء الحذف استخدم: Application.DisplayAlerts = False لتجنب رسالة الحذف احذف الورقة Application.DisplayAlerts = TRUE ============================== ودمتم في حفظ الله

السلام عليكم الاخ/ وحيد صبور _______________-المحترم الآن طالعت مشاركتك هذه ورايتها (مليئة بالشرح ) ساطالعها غدا واذا رايت انها تحتاج الى وقت متيسر ساعملها لحضرتك واذا كانت غير ذلك فارجوا ان تقبل اعتذاري لاني حاليا مشغول باعمال اخرى تحياتي وشكري

السلام عليكم شكرا لجميع الاخوة الزوار تحياتي وشكري

السلام عليكم احسنت بارك الله فيك

السلام عليكم الاخ سعد عابد _____________المحترم اولا :اخي الم تقرأ قواعد المشاركة اعلاه رقم 4 ثانيا : اتظن ان نحن نعرف من نرد عليهم فنفرق في سرعة الرد على فلان قبل زعطان ثالثا : موضوع لا يحتاج اجابة بسيطة بل يحتاج عمل (فترة زمنية) واذا لم يتوفر هذا الزمن ما العمل الا تريد نحن نرد على موضوع يحتاج بضع دقائق؟؟ او نرد على موضوع فيه فائدة عامة ؟ والموضوع مشروح اساسا فلماذا لاتطبق ما تريده بنفسك رابعا : اين الافضل الانشغال بمواضيع مكررة ؟ ام الانشغال باعمال اخرى جديدة اندرجت في جدول المهام ؟ نصيحة : اجعل من حسن الظن صديقا لكل سبيل تحياتي

السلام عليكم الاخ / هشام ________________ المحترم جمعة مباركة اذا اردت التوزيع يكون بنفس الشروط التي يتركب عليها آلية التوزيع في برنامجي فالعملية تحتاج الى ضبط معادلات يحتاجها هذا الكود في ورقة التوزيع وهناك اكواد اخرى مساعدة موجودة في اكواد ورقة البيانات وايضا اعمدة اضافية في البيانات مساعدة لضبط التوزيع بشروط حالة الطالب واكواد للتنسيق والتسطير على ضوء شروطك الخاصة للطباعة. المعنى انه ليس هذا الكود التابع للفورم هو الذي يقوم بذلك فقط . وممكن تتابع الكود في البرنامج من بداية زر الاستدعاء و تتابع اسماء الاكواد التي يستخدمها وتنقلها الى ملفك هذا ثم تقوم بالتعديل عليها على ضوء بياناتك مع اظهار جميع الاعمدة في ورقة التوزيع واستخراج المعادلات الموجودة هناك لنقلها الى ورقة التوزيع خاصتك هذا جعلته دليلا لحضرتك من اجل ان يساعدك في التطبيق او من اراد ان يطبق هذه الاكواد على ملفاته الخاصة تحياتي

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

السلام عليكم هل هناك علاقة بين الحضور والانصراف ؟ يعني لو تاخر اكثر من نصف ساعة وانصرف قبل اكثر من نصف ساعة هل الخصم بيكون يومين وايضا الاكثر من الربع ساعة في الحضور والانصراف ملاحظة هامة : ================================================ ليكون في العلم ان اغلب اسباب عدم الرد هو عدم التوضيح بشكل مفصل ومفهوم للجميع وايضا في حالات اخرى عدم ارسال ملف توضيحي بامثلة لكل الحالات المطلوبة حتى يستطيع من يوفقه ربي للحل فهم مايريده صاحب الملف ولا يتردد بالاسئلة مرارا ================================================

السلام عليكم تفضل ____________1.rar

السلام عليكم الاخ ابو اسامة حفظه الله شكرا جزيلا اخي بوركت الاخ احمد يعقوب _________ حفظه الله بارك الله فيك الاخ محمدي ---------------------- حفظه الله شكرا جزيلا اخي و لك امثاله اضعاف مضاعفة الاخ RAAD_------------------- حفظه الله شكرا جزيلا اخي الاخ مزلزل ----------------------------حفظه الله شكرا جزيلا اخي

السلام عليكم انت قد استخدمت تنسيق الارقام واضفنا فوقها التنسيق الشرطي التالي: =AND(E4>I4;E4<H4) انظر الى المرفق Diaa.rar

السلام عليكم الطريق الى الجنة هديتي لكم ________________.rar