چند ماکرو برای مدیریت سطر های یک صفحه در اکسل

انتخاب یک سطر :

 

Sub SelectOneRow()
               Rows(5).Select
               'or
               Range("5:5").Select
End Sub
 

انتخاب چند سطر :

 

 

Sub SelectMultiRows()
               Range("3:7").Select
End Sub
 

انتخاب تمام سطر ها :

 

 

Sub SelectAllRows()
               Rows.Select
End Sub
   

تغییر ارتفاع یک سطر :

 

 

Sub RowHeight()
               Rows(4).RowHeight = 35
   End Sub
 

اضافه کردن سطر جدید (بالای سطر چهارم) :

 

Sub InsertRow()
               Rows(4).Insert
End Sub
 

حذف کردن یک سطر :

 

 

Sub DeleteRow()
               Rows(5).Delete
End Sub

 

مخفی کردن یک سطر :

 

 

Sub HideRow()
               Rows(5).Select
               Selection.EntireRow.Hidden = True
 End Sub
   

   

نویسنده : وحید فرزام
تاریخ انتشار : 1393-01-19 04:30:00
2359

0 نظر

user


تازه ترین ها