Excel操作當中,表格的高度和寬度可以進行自動調整。
方法就是使用.AutoFit屬性進行設置。
下面用一個例子簡單介紹一下,如何對單元高度和寬度格進行自動調整。
方法很簡單,如上圖所示。
R.Columns.AutoFit‘自動調整列寬
R.Rows.AtuoFit'自動調整行高
上圖為例對表格内數據随機生成,然後自動調整單元格高度和寬度。
如下幾行代碼就可實現整個工作表的行高和寬設置。
代碼
Private Sub setRowsColumnsWidthHeight()
Application.ScreenUpdating = False
Dim s As Worksheet
Dim r As Range
Set s = ThisWorkbook.Worksheets("Sheet1")
Set r = s.Range("A2:G15") '定義Range對象
With r
.Clear '清除表格
' .ColumnWidth = 10'
.Interior.Color = RGB(21, 131, 82) '背景色
.Borders.LineStyle = 1 '邊框樣式細線條
.Borders.ColorIndex = 12 '邊框顔色
.Value = VBA.Format(Rnd(9), "0.000") '值
.Columns.AutoFit '自适應列寬
.Rows.AutoFit '自适應行高
With .Font '設置文本格式
.Color = RGB(221, 221, 221)
.Size = 14
.Name = "微軟雅黑"
.Bold = True
End With
End With
Application.ScreenUpdating = True
Set s = Nothing
Set r = Nothing
End Sub
仔細看上面代碼,也不十分理解。
對于整個表格的操作十分方便。
歡迎關注、收藏
,更多精彩资讯请关注tft每日頭條,我们将持续为您更新最新资讯!