الشهابي

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

أخي العزيز / أبو ندى استبدل المعادلة في الخلية (H1) بهذه المعادلة =ADDRESS(MATCH(C2;A4:A1000;0)+13;2;1;1)&":"&ADDRESS(MATCH(C2;A4:A1000;0)+13;16;1;1) ويمكنك زيادة الرقم في دالة ( MATCH) من (A4) إلى أكثر (A1000 ) مثلا (A2000) أوأكثر كما أضفت لك معادلة في الخلية (J1) لتحديد آخر خلية فيها بيانات في الجدول فقط عليك الذهاب إلى كود الفورم وتعدل السطر هذا في هذا الكود Sub kh_SetAddrss(ByVal MySht As String, ByVal MyAddrs As String, Optional ByVal aSr As String = "") tSr = TypeName(Evaluate(aSr)) = "Range" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' With ThisWorkbook If tSr Then Set MyRngSeri = .Worksheets(MySht).Range(aSr) Set MyRngdate = .Worksheets(MySht).Range(MyAddrs) End With ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' With MyRngdate ContRow = .Worksheet.Cells(Rows.Count, .Column).End(xlUp).Row - .Row LastColumn = .Cells.Count End With ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Col As Range Dim ii As Integer ReDim Ar(1 To LastColumn) For Each Col In MyRngdate.Cells ii = ii + 1 Ar(ii) = Col.Column - MyRngdate.Column + 1 Next ''''''''''''''''''''''''''' End Sub استبدل هذا السطر ContRow = .Worksheet.Cells(Rows.Count, .Column).End(xlUp).Row - .Row بهذا السطر ContRow = .Worksheet.Range("INDIRECT(j1)").End(xlUp).Row - .Row وهذا الملف بعد إضافة التعديلات المطلوبة وجدة الغسيل الكلوىc.rar

هذا برنامج التعليم الأساسي أرفعه لك على الرابط التالي : http://www.gulfup.com/?0IDayA اسم المستخدم (1) كلمة المرور (1)

أخي العزيز / أبو ندى هذا طريقة باستخدام فورم أستاذنا القدير العلامة / عبد الله باقشير تم إضافة سطر بعد سطر العناوين من أجل جعل العناوين كلها في سطر واحد قم بإخفائها فيما بعد وستلاحظ ذلك عند تشغيل الفورم كما تم نسخ رقم المسلسل للمريض في الخلية المقابلة له في العمود (A) لأن دمج الخلاياء كان عائق في الوصول للمطلوب فتم عمل ذلك للتخلص من الدمج أنا لست خبيراً في الأكواد وإلا فعلت لك من أكثر من ذلك هذا ما استطعت أن أقدمه لكم حسب أمكانيتنا تقبل تحياتي وتقديري والعفو وجدة الغسيل الكلوىc.rar

أخي العزيز / أبو براءة جهد أخينا محمد أبو البراء لا يقدر بثمن ولكنك أخي لم توضح أن المطلوب على شهادة رسمية مطبوع عليها مما أظطر أستاذنا الكريم لعمل شهادة مستقلة لذلك جزاه الله خير كما سرني الأضافة الجديدة لاسمه ( أبو البراء ) بدلا من (28) تخياتي وتقديري لكم أستاذ محمد أبو البراء أخي الكريم أنا لدي برنامج خاص بالتعليم الأساسي ولو لدي برنامج للتعليم الثانوي لرفعته إليك ولكن حسب صورة الشهادة التي أرسلتها هنك بعض الإختلاقات بين شهادة المرحلة الأساسية والمرحلة الثانوية ولكن حاولت اطبق طباعة الشهادة على ملفك المرسل قم بتغير رقم الطالب في الخلية الصفراء وستلاحظ تغير بيانات الشهادة كما يوجد زر لطباعة الشهادة حدد ما تريد لطباعتها وقد عملت لك ورقة حاصة بميضة الصف باسم الفرز كما يفضل إضافة أعمدة فيها معلومات الطالب مثل السن والميلاد ورقم الصف التاسع وغيرها التي مطلوبة في ورقة الشهادة كذلك اسم المدير ومربي الصف لاحظ الملف ملحوظة : يجب عليك أولا تمكين وحدات الماكروا حتى تعمل الأكواد والملف المرفق 2007 ولو تريد 2003 يمكن تعديله إن شاء الله منتظر منكم الرد والاستفسار اول ثانوي .rar

أخي العزيز / خالد الرشيدى فعلا كتاب قيم اختيار رشيد من الرشيد جعل الله ذلك في ميزان حسناتك وجعلك مثواك الجنة بعد عمر طويل خالداً فيها أبداً تحياتي وتقدير

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

يا أستاذنا الكبير / جمال دغيدي ويا أعضاء هذا المنتدى الكريم وأساتذه الكرام كانت عبارة أستاذنا جمال عبد السميع من باب المزحة ومن باب ثقته بوجود أعضاء يطمئن من وجودهم في الرد على تساؤلات الإخوان لا غير وأنا أعرف أستاذنا على الرغم من بعد المسافات بيني وبينه فهو قريب جداً من قلبي كما أنتم جميعا قريبون من قلبنا والذي يدخل هذا الصرح من الصعب أن يتركه إلا لأمر طارئ أو مشاغل للحياة كما نلاحظ غياب بعض الأساتذة الكبار فيه وبعض الإخوان لمثل هذا الأمر هل يمكن للسمكة أن تعيش بدون ماء ؟ مستحيل مستحيل أن يغادرنا أستاذنا بل جميعكم مستحيل أن تغادرونا وأنا كذلك مستحيل أن أترككم فهذا المنتدى بيتنا الثاني وهذه الردود وأمثالها تثبت لنا مدى الحب والإحترام والتقدير والتعلق الشديد بين أعضاء هذا المنتدى الكرام بارك الله فيكم جميعا وجزاكم الله كل خير المحب لكم جميعا الشهابي

أخي العزيز / ياسر فتحي البنا جرب المعادلة التالية إن شاء الله تكون صحيحة =IF(I7<80%;H7*50%;IF(I7<95%;H7*I7;H7*100%)) معادلة.rar

أخي العزيز / ياسر فتحي البنا وبعد اذن أستاذنا الكبير بمعنى الكلمة أو حنين وخديجة الذي أكن له كل المحبة والإحترام والتقدير جرب هذه المعادلة حسب ما فهمت أيضاً من شرحكم الكريم =IF(I7>=0%;H7*50%;IF(I7>=80%;H7*I7;IF(I7>95%;H7*100%))) تحياتي وتقديري لكم ولأستاذنا القدير أبو حنين والعفو معادلة_2.rar

أخي العزيز / محمد علي الطيب غير في كود فورم الطباعة السطر المحدد في الأسفل Private Sub CommandButton1_Click() ' Dim M1, N1, i, x As Integer FromS = TextBox1.Value Tos = TextBox2.Value If FromS > Tos Then MsgBox "تأكد من الإدخالات" Else Page_p = Tos - FromS + 1 end_p = 0 For end_p = 1 To Page_p Range("E1") = FromS ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True FromS = FromS + 1 Next TextBox1 = "" TextBox2 = "" MsgBox "تمت الطباعة المحددة" End If End Sub هذا السطر المطلوب استبداله أو تعديل الرقم بعد إشارة (+) من (1) إلى (2) FromS = FromS + 1 ليصبح بهذا الشكل FromS = FromS + 2 أو قم بنسخ الكود هذا واستبدله بالكود الأول Private Sub CommandButton1_Click() ' Dim M1, N1, i, x As Integer FromS = TextBox1.Value Tos = TextBox2.Value If FromS > Tos Then MsgBox "تأكد من الإدخالات" Else Page_p = Tos - FromS + 1 end_p = 0 For end_p = 1 To Page_p Range("E1") = FromS ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True FromS = FromS + 2 Next TextBox1 = "" TextBox2 = "" MsgBox "تمت الطباعة المحددة" End If End Sub كما قم بنقل زر الطباعة بواسطة القص أو حت النسخ إلى الورقة المطلوبة وإذا لم تستطع ذلك سوف أقوم إن شاء الله في الغد بالتعديل وإرسال الملف مرة أخرى والعفو

أخي العزيز / محمد علي الطيب طيبك الله بعطر ذكرى ميلاد نبيه المصطفى صلى الله عليه وعلى آله وصحبه وسلم تم إضافة زر طباعة قم بضغطه وسيظهر لك فورم حدد ما شئت من الشهادة لطباعتها إن شاء الله يلبي مطلوبك والعفو تقبل تحياتي وتقديري http://www.gulfup.com/?5gjnQz

أخي العزيز الكريم / قنديل الصياد هنيئاً لك ولنا ولجميع الأمة الإسلامية بهذه المناسبة العظيمة على قلب كل مسلم محب لنبيه صلى الله عليه وعلى آله وصحبه وسلم وما أعظم ما أشار إليه عمه العباس - رضي الله عنه - بذكر مولده صلى الله عليه وعلى آله وصحبه وسلم حيث يقول : وأنت لما ولدت أشـــرقت الــــــ أرض وضـــــاءت بنورك الأفقُ فنحن في ذلك الضياء وذلك الـ نور وســبل الرشـــاد نخترقُ

الأستاذ الكريم / قنديل الصياد ما شاء الله عطاء وكرم متواصل لا ينقطع هذا شأن الكرماء جزاك الله كل خير ورزقك من حيث لا تحتسب

أخي العزيز / فائز العميسي تم إن شاء الله عمل المطلوب بإضافة دالتين لأستاذنا الكبير عماد الحسامي الأولى لترتيب الكل حسب الصف والجنس الثانية لترتيب العشرة الأوائل حسب الصف والجنس طبعا تم ذلك في ورقة ثانية تم تسميتها ( الترتيب والأوائل ) يمكنك تغير اسمها بأي اسم آخر وتم الاستعانة بأعمدة مساعدة لجلب النتائج من الورقة الأولى إلى الورقة الثانية حسب الصف والجنس وقد تم تضليل الأعمدة والخلايا المساعدة باللون الأصفر حتى يسهل معلرفتها من قبلكم قم بتغير الصف في خلية الصف (F2) والجنس في خلية الجنس (C2) وستلاحظ تغير النتائج تبعا لذلك كما يمكنك ترك لية الجنس ( C2) فارغة إذا أردت النتائج للجنسين معا منتظرين ردكم واستفسارتكم تقبل تحياتي وتقديري والعفو استخراج أوائل الطلاب على مستوى الصف والجنس .rar

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

أخي العزيز / ۩◊۩ أبو حنين ۩◊۩ هذا هو ملفك الأصلي فقط قمت بإخفاء بقية الأوراق يمكنك أن تقوم باظهارها والعفو

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

أخي العزيز / الجنتل 9 السلام عليكم ورحمة الله وبركاته كما أخبرك أخينا العزيز أبو غريب حفظه الله بأن الملف الذي رفعته به عطب ولكن الحمد لله تم استرداد الملف وعفوا عن التأخر في رفع الملف على الرغم من تجهيزه من يوم أمس حيث هناك عطب في شبكة الأنترنت ولم استطع دخول المنتدى بالنسبة لملفك تم عمل الللازم إن شاء الله قم بتغير الشهر في الخلية (G5) وستلاحظ تغير البيانات حسب الشهر المختار ولي ملاحظة بالنسبة لكتابة الكلمات فإن أي اختلاف في كتابة كلمة من خلية إلى خلية أخرى سوف تكون النتائج غير صحيحة فمثلا عندك كلمة ( بترول ) حيث كتبتها في ورقة 1 في القائمة المنسدلة مع فراغ بعدها بينما في ورقة الخلاصة في بعض الخلايا مع الفراغ وبعضها بدون فراغ فقمت بتوحيد الكلمة في الكل وجعلها بدون فراغ بعدها حتى تكون النتائج صحيحة إن شاء الله يكون هو المطلوب وأي استفسارات أخرى بحسب استطاعتنا إن شاء الله وجمعة مباركة والعفو 1سجل النفقات.rar

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

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

الأخ العزيز / kinggraphic يسعدني كثيراً أن أشارك الأستاذة القديرة أم عبد الله وبعد الاستذان منها طبعا وأقدم لك المطلوب الثالث حتى يتسنى لها تقديمه لك بنفسها إن شاء الله لعله يكون هو المطلوب حسب ما فهمته والله ولي التوفيق تقبلوا تحياتي وتقديري والعفو AAA3.rar

الأخت الكريمة الأستاذة / أم عبد الله ألف مبروك على الترقية المستحقة فعلا وبشهادة الجميع إن شاء الله مزيدا من الترقية والرفعة والعلو في هذا الميدان وأيضاً في ميادين الحياة الأخرى وعفواً على التأخر في التهنئة والعفو

الأستاذ العزيز/ قنديل الصياد عطاء لا يتوقف حزاك الله خير وبارك الله فيك وزادك الله من فضله وعلمه تقبل تحياتي وتقديري

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