احمد الحاوي قام بنشر يناير 28, 2014 مشاركة قام بنشر يناير 28, 2014 جزاكم الله خيرا رابط هذا التعليق شارك More sharing options...
عبدالله الداعري قام بنشر يناير 29, 2014 مشاركة قام بنشر يناير 29, 2014 شكرا رابط هذا التعليق شارك More sharing options...
رشوان احمد قام بنشر فبراير 8, 2014 مشاركة قام بنشر فبراير 8, 2014 جذاكم الله خير رابط هذا التعليق شارك More sharing options...
قصي قام بنشر مارس 22, 2014 مشاركة قام بنشر مارس 22, 2014 السلام عليكم وعليكم السلام ورحمة الله وبركاته ايها العلامه عبد الله الكود للمايسترو عبد الله باقشير هذه طريقة بسيطة بالكود لإخفاء واظهار اعمدة اولا تعمل كود رئيسي مثل هذا Sub kh_ColumnHidden(ColumnAddres As String) Columns("C:W").EntireColumn.Hidden = True Columns(ColumnAddres).EntireColumn.Hidden = False End Sub حيث انه يقوم باخفاء جميع اعمدة المواد ويظهر النطاق الخاص بالمادة المشار اليه بالمتغير ColumnAddres ثم تعمل اكواد لربطها بالازرة تعين فيها اعمدة المادة التي تريد اظهارها مثل هذا Sub M() kh_ColumnHidden "C:E" End Sub المرفق 2003 اظهار واخفاء اعمدة.rar 18.96كيلو 156 عدد مرات التحميل رابط هذا التعليق شارك More sharing options...
أبو صلاح الدين شريف قام بنشر يونيو 5, 2014 مشاركة قام بنشر يونيو 5, 2014 اللهم بارك لهم فى علمهم و زدهم من فضلك و اجعل اعمالهم فى ميزان حسناتهم رابط هذا التعليق شارك More sharing options...
عز أبو أنس قام بنشر يونيو 6, 2014 مشاركة قام بنشر يونيو 6, 2014 أخي / محمدي عبد السميع بارك الله فيك وجزاك الله خير أكواد جميلة وروعة جزاكم الله خيرا 1 رابط هذا التعليق شارك More sharing options...
ابوعصام2009 قام بنشر يونيو 7, 2014 مشاركة قام بنشر يونيو 7, 2014 اخي المحترم العالم العلامة عبد الله باقشير جعل الله هذا العمل في ميزان حسناتك وحسناتنا آمين يارب العالمين 1 رابط هذا التعليق شارك More sharing options...
نور محمود قام بنشر يونيو 7, 2014 مشاركة قام بنشر يونيو 7, 2014 بارك الله فيك .... وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ابو بهاء المصري قام بنشر يونيو 9, 2014 مشاركة قام بنشر يونيو 9, 2014 بارك الله فيك .... وجزاك الله خيرا رابط هذا التعليق شارك More sharing options...
عماد حجاج قام بنشر يونيو 15, 2014 مشاركة قام بنشر يونيو 15, 2014 جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يوليو 16, 2014 مشاركة قام بنشر يوليو 16, 2014 ملف لتوزيع اللجان بطريقة المعادلات رائع واروع من هذا الملف هو خلق صاحبه الاستاذ // وليد فتحي " اسال الله ان يكون بخير.. وان يعيده الينا سالما غانماً ". توزيع اللجان وارقام الجلوس بالمعادلات.rar رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يوليو 16, 2014 مشاركة قام بنشر يوليو 16, 2014 ملف لتوزيع لجان طلاب الدور التاني بطريقة المعادلات رائع واروع من هذا الملف هو خلق ولسان صاحبه الاستاذ // محمد ايو براء " اسال الله ان يكون بخير.. توزيع لجان الدور التاني.rar رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يوليو 24, 2014 مشاركة قام بنشر يوليو 24, 2014 كود التنقل لأعمده معينه للاستاذ الكبير ين عليه جزاه الله خيرا Sub hben() Application.ScreenUpdating = False Range("IT11").Select Range("5:5").EntireRow.Hidden = True If ActiveCell = 1 Then Columns("A:DJ").EntireColumn.Hidden = False If ActiveCell = 2 Then Columns("C").EntireColumn.Hidden = False If ActiveCell = 3 Then Columns("C").EntireColumn.Hidden = True If ActiveCell = 4 Then Columns("R:DJ").EntireColumn.Hidden = False If ActiveCell = 5 Then Columns("R:DJ").EntireColumn.Hidden = True If ActiveCell = 6 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,AA:DJ").EntireColumn.Hidden = True If ActiveCell = 7 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:Z,AJ:DJ").EntireColumn.Hidden = True If ActiveCell = 8 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:AI,AS:DJ").EntireColumn.Hidden = True If ActiveCell = 9 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:AR,BB:DJ").EntireColumn.Hidden = True If ActiveCell = 10 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:BA,BM:DJ").EntireColumn.Hidden = True If ActiveCell = 11 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:BN,BR:DJ").EntireColumn.Hidden = True If ActiveCell = 12 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:BQ,BU:DJ").EntireColumn.Hidden = True If ActiveCell = 13 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:BU,CE:DJ").EntireColumn.Hidden = True If ActiveCell = 14 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:CD,CN:DJ").EntireColumn.Hidden = True If ActiveCell = 15 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:CM,CW:DJ").EntireColumn.Hidden = True If ActiveCell = 16 Then Columns("C:DJ").EntireColumn.Hidden = False: _ Range("B:D,F:P,R:CV,DG:DJ").EntireColumn.Hidden = True Range("A5").Select Application.ScreenUpdating = True End Sub كود التنقل لأعمده معينه.rar 1 رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر يوليو 25, 2014 مشاركة قام بنشر يوليو 25, 2014 السلام عليكم ورحمة الله وبركاته كل عام انتم بخير لو سمحتم لي بالمشاركة البسيطة دي حيث قمت بتجميع كل ما تحتوية المشاركات السابقة في ملف واحد فقط تقبولي تحياتي http://www.gulfup.com/?58sHZG 2 رابط هذا التعليق شارك More sharing options...
زائر قام بنشر يوليو 25, 2014 مشاركة قام بنشر يوليو 25, 2014 الاستاذ الفاضل // على المصري فكرة رائعة وبجد ملف في غاية الاهمية اقتنائه ... ولهذا اقترح عليك اقتراح وهو ان تقوم بفتح موضوع جديد بعنوان مميز وتضع فيه هذا الملف _ جعله الله في ميزان حسناتك _ و يا حبذا لو كان اقتراح يضم اهم اعمال الكنترول واعمال المدارس ليكون مرجع للجميع في اعمال المدارس.. 2 رابط هذا التعليق شارك More sharing options...
أم عبد الله قام بنشر يوليو 25, 2014 مشاركة قام بنشر يوليو 25, 2014 الأستاذ الفاضل / علي المصري السلام عليكم ورحمة الله وبركاته جزاك الله خيراً على هذا الملف الرائع والمفيد جداً جداً للكثير منا وأنا أؤيد إقتراح الأستاذ الفاضل / محمد أبو البراء لأنها فكرة مفيدة جداص وسبق وان نفذ فكرة التجميع هذه هو والأستاذ الفاضل / قنديل الصياد والأستاذ الفاضل / محمود الشريف. أسأل الله العلي القدير أن يجعل جميع أعمالكم في ميزان حسناتكم وزادكم علماً نافعاً وتقبل الله منا ومنكم صالح الأعمال. لكم كل التحية والتقدير. 2 رابط هذا التعليق شارك More sharing options...
ناصر سعيد قام بنشر يوليو 25, 2014 مشاركة قام بنشر يوليو 25, 2014 السلام عليكم ورحمة الله وبركاته كل عام انتم بخير لو سمحتم لي بالمشاركة البسيطة دي حيث قمت بتجميع كل ما تحتوية المشاركات السابقة في ملف واحد فقط تقبولي تحياتي http://www.gulfup.com/?58sHZG وعليكم السلام ورحمة الله وبركاته وكل عام وانت واهل المنتدى الكرام بخير وبعد فكره تجمبع الملفات التي وضعها اخي المحترم الاستاذ محمدي عبد السميع قكره مفيده ولكن نطلب من احد المشرفين الكبار ان يضيف هذا الملف في المشاركات الاولى ويكتب تجميع الملفات لغايه تاريخ 25/7/2014 ستكون اكثر فائده من فنح موضوع جديد 1 رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر يوليو 25, 2014 مشاركة قام بنشر يوليو 25, 2014 الأخ الفاضل / على المصرى شكرا لكم رابط هذا التعليق شارك More sharing options...
علي المصري قام بنشر يوليو 25, 2014 مشاركة قام بنشر يوليو 25, 2014 بارك الله فيكم جميعا وشكرا لكم انا افضل ان عملية التجميع تكون من ناحية احد المشرفين الاكارة وعمل تثبيت للموضع فمثلا اقتراح : موضوع مثلا باسم 1) كل ما يخص المدارس 2) كل ما يخص الأكواد وهكذا ولا بد ان يكون العنوان معبرا عن التجميعة التي بداخلة وهذا يسهل عملية البحث فيما بعد ويعطى تنظيما ً إضافيا وجماليا لموقعنا الغالي وانا على استعداد لرفع أي حجم من الملفات وذلك لاني اعمل على سرعة نت عالية elife ألياف ضوئية 1 رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر يوليو 28, 2014 الكاتب مشاركة قام بنشر يوليو 28, 2014 حفظكم ربنا ورعاكم وجزاكم الله كل خير وجزى الله بكل خير كل من اضاف بصمه لإثراء درة الأعمال للعالم العلامه عبد الله باقشير رابط هذا التعليق شارك More sharing options...
محمدي عبد السميع قام بنشر سبتمبر 24, 2014 الكاتب مشاركة قام بنشر سبتمبر 24, 2014 هذا الكود لازالة المسافات بين الأسماء يعمل على اي خلايا يتم تحديدها Sub kh_TrimSelection() On Error Resume Next Dim cel As Range For Each cel In Selection.Cells If Not IsNumeric(cel) Then cel.Value = WorksheetFunction.Trim(cel) End If Next On Error GoTo 0 End Sub الكود للعلامة عبد الله باقشير جزاه الله كل خير 1 رابط هذا التعليق شارك More sharing options...
قصي قام بنشر سبتمبر 30, 2014 مشاركة قام بنشر سبتمبر 30, 2014 كود اكثر من رائع لابجدة الاسماء فور كتابتها جزى الله من قام بعمله القائمة الذكية11. rar 14.21كيلو 11 عدد مرات التحميل رابط هذا التعليق شارك More sharing options...
قصي قام بنشر أكتوبر 3, 2014 مشاركة قام بنشر أكتوبر 3, 2014 كود رائع جزى الله صانعه بكل خير يعمل على الترتيب التلقائي الذكي حسب النص Sub SortCustomList() Application.AddCustomList Array("الفجر", "الظهر", "العصر", "المغرب", "العشاء") Range("A1").CurrentRegion.Sort key1:=Range("A1"), OrderCustom:=Application.CustomListCount + 1 Application.DeleteCustomList Application.CustomListCount End Sub رابط هذا التعليق شارك More sharing options...
قصي قام بنشر أكتوبر 3, 2014 مشاركة قام بنشر أكتوبر 3, 2014 هذا ملف مرفق به كود الترتيب التلقائي الذكي حسب النص فرز ذكي حسب النص.rar رابط هذا التعليق شارك More sharing options...
ahmed saker قام بنشر أكتوبر 6, 2014 مشاركة قام بنشر أكتوبر 6, 2014 جزاكم الله عنا كل خير ورحم اباءنا وادخلهم فسيح جنته رابط هذا التعليق شارك More sharing options...
الردود الموصى بها