本节介绍一个简单属性,在以前的文章中也有提及,这里拿来重点说明一下,如何对列宽进行自动设置宽度。
Excel表格中的列宽并不是固定的大小,默认情况下不会根据你的内容进行变化,所以需要人为来进行一些变更。根据表格内容多少的变化,表格的宽度也随之变化。如下图所示,可以用三种方式来进行表格宽度设置。
第一种:根据表格最大值来设置列宽。第二种:根据表题行设置列宽。第三种:根据指定行来设置列宽。第二种和第三种实际上一样,只不过第三种更加自由一些。下图为根据标题行来设置列宽的样式
看一下代码Private Sub CommandButton1_Click()按整列设置宽度Dim r As RangeSet r = Range("A:F")r.Columns.AutoFitSet r = Nothing
End SubPrivate Sub CommandButton2_Click())按标题行Dim r As RangeSet r = Range("A2:F2")r.Columns.AutoFitSet r = Nothing
End SubPrivate Sub CommandButton3_Click())按某列设置Dim r As Range, ri As Integerri = Me.ComboBox1.ValueSet r = Range("A" & ri & ":F" & ri)
r.Columns.AutoFitSet r = NothingEnd Sub
实际上仅仅是如下一行代码:Range.Columns.AutoFitAutoFit方法是Range对象下的,这里特别注意一点,AutoFit要应用在Columns和Rows之下它们分别代表了工作表的列和行,就是这个意思。
明白了这一点,就不难理解上述代码了。欢迎关注、收藏---END---举报/反馈
手机: 电话: EMAIL:68048562@qq.com
公司地址:广东省佛山市 网址:www.aadkj.com
Copyright © 铝浩建材厂 All Rights Reserved. 湘ICP备2024042242号-4 xml地图