[موضوع مميز]شرح عمل شيت كنترول ( درة أعمال العلامة عبد الله باقشير)[مثبت]

[احمد الحاوي]

جزاكم الله خيرا

[عبدالله الداعري]

شكرا

[رشوان احمد]

جذاكم الله خير

[قصي]

السلام عليكم

وعليكم السلام ورحمة الله وبركاته ايها العلامه عبد الله

الكود للمايسترو عبد الله باقشير

 

هذه طريقة بسيطة بالكود لإخفاء واظهار اعمدة

 

اولا تعمل كود رئيسي مثل هذا

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 عدد مرات التحميل

[أبو صلاح الدين شريف]

اللهم بارك لهم فى علمهم و زدهم من فضلك و اجعل اعمالهم فى ميزان حسناتهم

[عز أبو أنس]

أخي / محمدي عبد السميع

بارك الله فيك وجزاك الله خير أكواد جميلة وروعة

جزاكم الله خيرا

[ابوعصام2009]

اخي المحترم العالم العلامة عبد الله باقشير

جعل الله هذا العمل في ميزان حسناتك وحسناتنا

آمين يارب العالمين

[نور محمود]

بارك الله فيك  .... وجزاك الله خيرا

[ابو بهاء المصري]

بارك الله فيك  .... وجزاك الله خيرا

[عماد حجاج]

• جزاك الله خيرا

[ناصر سعيد]

ملف لتوزيع اللجان بطريقة المعادلات رائع

واروع من هذا الملف هو خلق صاحبه  الاستاذ // وليد فتحي "

اسال الله ان يكون بخير.. وان يعيده الينا سالما غانماً ".

توزيع اللجان وارقام الجلوس بالمعادلات.rar

[ناصر سعيد]

ملف لتوزيع لجان طلاب الدور التاني  بطريقة المعادلات رائع

واروع من هذا الملف هو خلق ولسان صاحبه  الاستاذ // محمد ايو براء "

اسال الله ان يكون بخير..

توزيع لجان الدور التاني.rar

[ناصر سعيد]

كود التنقل لأعمده معينه للاستاذ الكبير ين عليه

جزاه الله خيرا

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

[علي المصري]

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

كل عام انتم بخير

لو سمحتم لي بالمشاركة البسيطة دي

حيث قمت بتجميع كل ما تحتوية المشاركات السابقة في ملف واحد فقط

تقبولي تحياتي

 

http://www.gulfup.com/?58sHZG

[زائر]

الاستاذ الفاضل // على المصري

فكرة رائعة

وبجد ملف في غاية الاهمية اقتنائه ...

ولهذا اقترح عليك اقتراح وهو

ان تقوم بفتح موضوع جديد بعنوان مميز

وتضع فيه هذا الملف _ جعله الله في ميزان حسناتك _

و

يا حبذا لو كان اقتراح يضم اهم اعمال الكنترول واعمال المدارس ليكون مرجع للجميع في اعمال المدارس..

[أم عبد الله]

الأستاذ الفاضل / علي المصري

 

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

 

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

[ناصر سعيد]

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

كل عام انتم بخير

لو سمحتم لي بالمشاركة البسيطة دي

حيث قمت بتجميع كل ما تحتوية المشاركات السابقة في ملف واحد فقط

تقبولي تحياتي

 

http://www.gulfup.com/?58sHZG

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

وكل عام وانت واهل المنتدى الكرام بخير وبعد

فكره تجمبع الملفات التي وضعها اخي المحترم الاستاذ محمدي عبد السميع قكره مفيده

ولكن نطلب من احد المشرفين الكبار ان يضيف هذا الملف في المشاركات الاولى ويكتب تجميع الملفات لغايه تاريخ 25/7/2014

ستكون اكثر فائده من فنح موضوع جديد

[دغيدى]

الأخ الفاضل / على المصرى

شكرا لكم

[علي المصري]

بارك الله فيكم جميعا

وشكرا لكم

 

انا افضل ان عملية التجميع تكون من ناحية احد المشرفين الاكارة وعمل تثبيت للموضع

فمثلا اقتراح :

موضوع مثلا باسم

1) كل ما يخص المدارس

2) كل ما يخص الأكواد

وهكذا

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

وانا على استعداد لرفع أي حجم من الملفات وذلك لاني اعمل على سرعة نت عالية  elife ألياف ضوئية

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

حفظكم ربنا ورعاكم

وجزاكم الله كل خير

وجزى الله بكل خير

كل من اضاف بصمه

لإثراء درة الأعمال للعالم العلامه عبد الله باقشير

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

هذا الكود لازالة المسافات بين الأسماء  يعمل على اي خلايا  يتم تحديدها

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

الكود للعلامة عبد الله باقشير  جزاه الله كل خير

[قصي]

كود اكثر من رائع لابجدة الاسماء فور كتابتها

جزى الله من قام بعمله

 

•  القائمة الذكية11.    rar   14.21كيلو   11 عدد مرات التحميل

 

[قصي]

كود رائع جزى الله صانعه بكل خير

يعمل على الترتيب التلقائي الذكي حسب النص

Sub SortCustomList()
    Application.AddCustomList Array("الفجر", "الظهر", "العصر", "المغرب", "العشاء")
    Range("A1").CurrentRegion.Sort key1:=Range("A1"), OrderCustom:=Application.CustomListCount + 1
    Application.DeleteCustomList Application.CustomListCount
End Sub

[قصي]

هذا ملف مرفق به كود الترتيب التلقائي الذكي حسب النص

 

فرز ذكي حسب النص.rar

[ahmed saker]

جزاكم الله عنا كل خير

ورحم اباءنا وادخلهم فسيح جنته