اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

  • 2 weeks later...
  • 1 month later...

السلام عليكم

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

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

 

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

 

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

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

zip.gif  اظهار واخفاء اعمدة.rar   18.96كيلو   156 عدد مرات التحميل

G.png

رابط هذا التعليق
شارك

  • 2 months later...
  • 1 month later...

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

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

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

توزيع اللجان وارقام الجلوس بالمعادلات.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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

 

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

  • Like 2
رابط هذا التعليق
شارك

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

فكرة رائعة

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

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

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

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

و

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

  • Like 2
رابط هذا التعليق
شارك

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

 

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

 

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

 

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

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

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

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

وشكرا لكم

 

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

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

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

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

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

وهكذا

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

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

  • Like 1
رابط هذا التعليق
شارك

  • 1 month later...

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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



رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information