No.1
Excel操作当中,表格的高度和宽度可以进行自动调整。
方法就是使用.AutoFit属性进行设置。
下面用一个例子简单介绍一下,如何对单元高度和宽度格进行自动调整。
![7c1b5518c8dcfe77b2ebcee4764321d7.png](https://i-blog.csdnimg.cn/blog_migrate/79e27f0b66bba8b53526642ffc91fdfa.jpeg)
No.2
方法很简单,如上图所示。
R.Columns.AutoFit‘自动调整列宽
R.Rows.AtuoFit'自动调整行高
![1a6182aedd244b2eeca8890ccac289fa.png](https://i-blog.csdnimg.cn/blog_migrate/4c0245c88fa44a6e00d2a8359e4fc12e.jpeg)
上图为例对表格内数据随机生成,然后自动调整单元格高度和宽度。
如下几行代码就可实现整个工作表的行高和宽设置。
![1a612af1d9128041279474f195f04383.png](https://i-blog.csdnimg.cn/blog_migrate/f423bb786dfea132b02a8f8786c9fe7a.jpeg)
No.3
代码
Private Sub setRowsColumnsWidthHeight()Application.ScreenUpdating = FalseDim s As WorksheetDim r As RangeSet 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 WithEnd WithApplication.ScreenUpdating = TrueSet s = NothingSet r = NothingEnd Sub
仔细看上面代码,也不十分理解。
对于整个表格的操作十分方便。
欢迎关注、收藏