'tang chieu cao cua dong
Sub Tang_ChieuCao_Dong1()
Rows(1).RowHeight = Rows(1).RowHeight + 1 ' tang thêm 2
End Sub
' tao nut giam
Sub Giam_ChieuCao_Dong1()
If Rows(1).RowHeight > 5 Then ' tránh b? = 0
Rows(1).RowHeight = Rows(1).RowHeight - 1 ' gi?m 2
End If
End Sub
' Tang dong rong cua cot A
Sub Tang_DoRong_CotA()
Columns("A").ColumnWidth = Columns("A").ColumnWidth + 1 ' tang thêm 2
End Sub
' Giam do rong cua cot A
Sub Giam_DoRong_CotA()
If Columns("A").ColumnWidth > 2 Then ' tránh b? quá nh? = 0
Columns("A").ColumnWidth = Columns("A").ColumnWidth - 1 ' gi?m 2
End If
End Sub