ماکروی تغییر اندازه سطر ها و ستون ها در اکسل

Sub ChangeColumnWidth() For Each C In ActiveWindow.RangeSelection.Columns C.ColumnWidth = 10 Next C End Sub Sub ChangeRowHeight() For Each r In ActiveWindow.RangeSelection.Rows r.RowHeight = 10 Next r End Sub