اخفاء الصفوف والاعمدة

[tag4m]

هذه مثال بسيط أوضح به كيفية اخفاء الصفوف والاعمدة

ثم اعادتها مره أخرى

tt.rar

تم تعديل يناير 14, 2005 بواسطه محمد طاهر

[محمد طاهر عرفه]

السلام عليكم

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

و بالنسبة للاخفاء و الاظهار أقترح تعديل الكود ليكون مجال تطبيقه هو أي خلايا مختارة :

Sub hideselsctionrow()
 Selection.EntireRow.Hidden = True
End Sub
Sub hideselectioncolumn()
 Selection.EntireColumn.Hidden = True
End Sub
Sub showselsctionrow()
 Selection.EntireRow.Hidden = False
End Sub
Sub showselectioncolumn()
 Selection.EntireColumn.Hidden = False
End Sub

و للذهاب الي اول خلية فى ورقة العمل و الي اخر خلية فى العمود و آخر خلية فى الصف و أول خلية فى العمود و آول خلية فى الصف

Sub gohome()
    Range("A1").Select
End Sub
Sub gotolastincolumn()
    Selection.End(xlDown).Select
End Sub
Sub gotolastinrow()
    Selection.End(xlToRight).Select
End Sub
Sub gotoFirstincolumn()
    Selection.End(xlUp).Select
End Sub
Sub gotoFirstinrow()
    Selection.End(xlToLeft).Select
End Sub

و هذه هي المناظرة ل

ctr+home

end + الأسهم