انتخاب یک سطر :
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
0 نظر
تازه ترین ها