محمدي عبد السميع

كودان احدهما لمعاينة الطباعه والآخر لمعاينة الطباعة مع امكانية الطباعه بارك الله لنا ولكم آمين معاينة طباعة.rar معاينة طباعة مع امكانية الطباعه.rar

ماشاء الله عمل ولا أروع بارك الله لك اخي الكريم والعالم الفذ عبد الله

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

الاستاذ عبد الله السلام عليكم ورحمة الله وبركاته عذرا للتداخل هل تم اضافة الاكواد الموجودة في هذا الرابط http://www.officena.net/ib/index.php?showtopic=41579 الى المكتبة وجزاك الله خيرا

كود للفرز هذه الأكواد هي روائع الأعمال التي تخص رجال التربية والتعليم وكثير غيرهم سيتم اضافة كود لعمل أرقام الجلوس مع الكود الاسبق الخاص بعمل اللجان ان شاء الله في أقرب وقت ممكن جزاكم الله كل خير فرز.rar

ماشاء الله تبارك الله أحسن الخالقين حفظك الله ورعاك

ما شاء الله بارك الله لك أخي رجب جهد كبير وعمل متعوب فيه وفقك الله لكل ما يحب ويرضى

كودان احدهما لاخفاء الأعمده المختارة والآخر لاخفاء أشرطة القوائم الاستاذ الفاضل عبد الله كيف اضيف الأكواد الى الرابط مكتبة الأكواد ؟ اخفاء الأعمدة.rar إخفاء و إظهار أشرطة القوائم والأدوات.rar

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

هنا سنرفق كود لعمل اللجان ولا أروع منه فهو مرن ويستطيع عمل اللجان لكافة المدارس بإذن الله وبكافة المخرجات بارك الله في العلامة عبد الله باقشير ونحن - ( الأستاذ محمدي عبد السميع ) - والجميع معه وللحديث بقية لجان خنوريه.rar

وهذه ضفحة بيانات أساسية صفحة بيانات أساسية.rar

يتبقى لنا في الصفحة الاساسية بضع معادلات لتضبط عملية ادخال البيانات بدقة =SUMPRODUCT(--(INDEX(البيانات;0;3)="ولد");--(INDEX(البيانات;0;8)="مسلم")) وهذه المعادلة تعني عدد الاولاد المسلمين =SUMPRODUCT(--(INDEX(البيانات;0;3)="بنت");--(INDEX(البيانات;0;8)="مسلمة")) وهذه المعادلة تعني عدد البنات المسلمات وهذه المعادلات ستفيد في دقة الاعداد المدخلة ونوعيتها فإذا تمت المدخلات صحيحة ستجد على الفور كلمة أحسنت

بسم الله الرحمن الرحيم الحمد لله و الشكر له اذي أنعم علينا بنعم لاتعد و لاتحصى ومن هذه النعم وجود هذا المنتدى القيم وانعم علينا بوجود هذه الزمرة المتميزة في المنتدى التي تعمل وتقدم الخير ولاتنتظر إلا الجزاء من الله عز وجل كافأهم الله بكل خير وأنعم علينا أيضا بوجود ساحر الاكسيل ومهندسه العالم العلامة والبحر الفهامة بمشيئة الله عبد الله باقشير وهو من أحب الناس إلى قلب اخيه الأستاذ / محمدي عبد السميع عبد الغني حفظه الله ورعاه وحفظ الجميع من كل سوء ......... آمين يارب العالمين وبعد : أقدم هذا العمل الفذ وهو عبارة عن تجميع لأكواد معينة والشرح لكي نحصل في النهاية على عمل ولا أروع منه في مجال أعمال الكنترول الخاص برجال التربية والتعليم وسنطلق على هذا العمل " درة أعمال الكنترول " بسم الله نبدأ أولا : عند تصميم أي برنامج لأعمال الكنترول نحتاج الى صفحة بيانات أساسية وفي هذه الصفحة نحتاج الى *** حساب العمر عند يوم واحد أكوبر من العام الدراسي القادم وتوجد معادلات كثيرة لكن أفضلها وأسهلها على الإطلاق هذه المعادلات =IF($E7<>"";DATEDIF($E7;$J$5;"Y");"") لحساب عدد السنوات =IF($E7<>"";DATEDIF($E7;$J$5;"Ym");"") لحساب عدد الشهور =IF($E7<>"";DATEDIF($E7;$J$5;"MD");"") لحساب عدد الأيام أما إذا كنت من هواة الأكواد فهذا الكود للبطل الهمام بضم الهاء وفتح الميم الأولى عبد الله ياقشير '============================================" ' دالة حساب العمر بالتقويم الميلادي تاريخ الميلاد Mydate_Birth التاريخ الذي تريد حساب العمر عنده Mydate اذا كان فارغا سيتم احتساب اليوم '============================================" Function kh_count_y_m_d(Mydate_Birth As Date, Optional Mydate_Now, Optional Y_M_D As String = "Y_M_D") Dim MyDate As Date Dim D_1 As Integer, D_2 As Integer, M_1 As Integer, M_2 As Integer, Y_1 As Integer _ , Y_2 As Integer, d As Integer, M As Integer, Y As Integer If IsDate(Mydate_Now) Then MyDate = Mydate_Now Else MyDate = Date If IsDate(Mydate_Birth) And CDate(Mydate_Birth) <= CDate(MyDate) Then D_1 = Day(MyDate): D_2 = Day(Mydate_Birth) M_1 = Month(MyDate): M_2 = Month(Mydate_Birth) Y_1 = Year(MyDate): Y_2 = Year(Mydate_Birth) If D_1 >= D_2 Then d = D_1 - D_2: M = 0 Else d = D_1 + 30 - D_2: M = -1 If M_1 + M >= M_2 Then M = M_1 + M - M_2: Y = 0 Else M = M_1 + M + 12 - M_2: Y = -1 Y = Y_1 + Y - Y_2 If Y_M_D = "Y_M_D" Then kh_count_y_m_d = d & "d-" & M & "m-" & Y & "y" If Y_M_D = "Y" Then kh_count_y_m_d = Y If Y_M_D = "M" Then kh_count_y_m_d = M If Y_M_D = "D" Then kh_count_y_m_d = d End If End Function *** ونحتاج أيضا الخلية النشطة : وهي آخر حلية مكتوب فيها في آخر صف و تسهل لنا الوصول الى الصف الأخير الفارغ لإضافة بيانات أخرى إذا أردنا Sub nasheta() Dim U As Integer U = ActiveCell.Row Dim LastRow As Integer LastRow = Cells(Rows.Count, "B").End(xlUp).Row + 1 If U = LastRow Then Range("B7").Select Else Range("B" & LastRow).Select End If ActiveWindow.View = xlNormalView End Sub ماعليك إلا أن تربط زر بهذا الكود وهذه هي Sub kh_Hidden() With Range("A2:A5") If .EntireRow.Hidden Then .EntireRow.Hidden = False Else .EntireRow.Hidden = True End If End With End Sub *** سنجتاج أيضا إلى Private Sub Worksheet_Activate() Set WW = Application.WorksheetFunction SS = WW.CountA(Range("B7:B1000")) + 6 EE = WW.CountA(Range("C7:C1000")) + 6 Application.ScreenUpdating = False Range("B7:Z1000").Sort [c7], xlAscending Range("B7:Z1000").Sort [D7], xlDescending For U = 7 To EE Cells(U, 4).NumberFormat = "yyyy/mm/dd" Next Range("B7:B1000").ClearContents [B7] = 1 [B8] = 2 Range("B7:B8").Select On Error Resume Next Selection.AutoFill Destination:=Range("B7:B" & EE) Application.GoTo [B7] 'Application.ScreenUpdating = True End Sub حساب العمر.rar حساب السن بالكود.rar كود اخفاء الصفوف.rar الخلية النشطة.rar طريقة ربط زر بكود اختر أي زر يعجبك منظره ثم اضغط عليه بيمين الماوس واختر نسخ ( copy) ثم حدد المكان الذي تريد اللصق فيه أو إنشاء الزر فيه واضغط بيمين الماوس واختر لصق ( past ) حرك الماوس في اتجاه الإطار الموجود حول الزر الذي لصقته ستظهر علامة الزائد و في كل اتجاه من علامة الزائد يوجد ايضا علامة زائد أخرى ثم اضغط بيمين الماوس واختر تعيين ماكر و ستطهر اسماء الماكروهات اختر الماكرو المطلوب ثم أوكي طريقة تحريك زر ملحوظه عند وجود علامة الزائد و في كل اتجاه منها يوجد ايضا علامة الزائد يمكنك الضغط بيسار الماوس وأنت مستمر بالضغط حركها إلى أي مكان جرب عمل ذلك واحمد الله *** سنجتاج أيضا الى كود يخفي عدد من الأسطر حتى نجصل عل أكبر مساحة ممكنه من الصفحة للرؤية و الكتابه بها وهذا هو الكود الخاص بذلك " كود الاخفاء" كود لعمل المسلسل أوتوماتيكي وهذ الكود سنضعه في حدث الورقة لكي يتم التسلسل بعد انتقالك الى ورقة أخرى والعودة لصفحة بيانات أساسية بدون الضفط على أية أزرار وسنضيف عليه كود لترتيب الطلاب حسب النوع أولا ثم ترتيب الطلاب تصاعديا بدون زر في نفس اللحظة وهذا الكود سنضعه في حدث الورقة لكي يتم الترتيب بعد انتقالك الى ورقة أخرى والعودة لصفحة بيانات أساسية وهذا هو الكود الخاص بذلك " كود التسلسل الاوتوماتيكي والترتيب الهجائي"

هذه هي الصورة

شكرا لك استاذ طارق عند الضغط بيمين الماوس على الزر تظهر الصورة التاليه

احبابنا في الله جزاكم الله خيرا وبارك لكم

العالم العلامة والبحر الفهامة بإذن الله عبد الله باقشير لاحرمنا الله من ابداعاتك زادك الله من العلم والحلم كثيرا

جزاكم الله خيرا اضع علامة الصح ولايتم شيء كيف يتم الاخفاء ؟

جزاكم الله خيرا جزاكم الله خيراالاستاذان الكبيران

ماشاء الله .. عمل أكثر من رائع بارك الله لك عالمنا الفذ عبد الله باقشير

اللهم بارك في اخينا وعالمنا الفذ الاستاذ عبد الله باقشير لاعماله الطيبه وكل رفقائه في المنتدى من الخيراء والعلماء نتعشم في اضافة عمود لكتابة ترتيب مجموعة ارقام الجلوس مثل ترتيب السري

اللهم بارك في اخينا وعالمنا الفذ الاستاذ عبد الله باقشير لاعماله الطيبه وكل رفقائه في المنتدى من الخيراء والعلماء