EXCEL VBA中，如何让列宽随窗口的变化而按比例调整

仅提供思路

ActiveWindowWidth返回的是像素点数

一般全屏至少800或1024

所以结果不对

可以用尺测量一下

列宽为100时所对应的的像素点数

一般大概即可

然后除以100

则得到列宽为1是对应的像素点数

然后在

ActiveWindowWidth 07中

除以此像素点数

另外

语句直接写成

Columns("D:D")ColumnWidth = Round(ActiveWindowWidth 07/n, 0)

n是上面计算的列宽为1是对应的像素点数

仅供参考祝您顺利

右键单击你要实现效果的表格，比如SHEET1的表标签--查看代码--会打开一个表格的事件代码VBE编辑窗口，把下面代码复制进去---保存，然后不管怎么改行高，只要你切换到这个表格就会自动恢复!

Option Explicit

Private Sub Worksheet_Activate()

ActiveSheetCellsRowHeight = 15

ActiveSheetCells(2, 2)RowHeight = 26

ActiveSheetCells(3, 3)RowHeight = 16

ActiveSheetCells(6, 6)RowHeight = 30

End Sub

width是以磅为单位的列宽，columnwidth是以单个字符宽度为单位的列宽。

height的值为range对象所有行的总高度，属性为只读，而rowheight为range对象所有单个行的行高，如果range里含有多行且行高不等则返回null，属性为可读可写。如果只选中一行则此二数值近似相同，但是由于单元格的边距等原因会有计量误差，在设置行高的时候只能用rowheight。

敢问一下 你为什么要 调整access数据表的行高与列宽？为什么还要用VBA来做？有什么特殊需要吗？

数据表的行高与列宽 在数据表视图中 可以用手工来根据需要进行调增 调整后 在关闭的时候 提示是否保存 保存后 再打开数据表视图 就是 你上次保存过的状态了……

我认为 没有必要 为了这个 来用 VBA 调整……修改代码 的时间 要比手工调整 有时候 还费时……

限制了列宽，行高(RowHeight)也限制下。

还没验证是否可行，要不你试试：

Columns("A:D")AutoFit

‘AutoFit 可以根据内容调整最合适的列宽。

这可能还不够，字体大小也得控制下。

以上就是关于EXCEL VBA中，如何让列宽随窗口的变化而按比例调整全部的内容，包括:EXCEL VBA中，如何让列宽随窗口的变化而按比例调整、用VBA如何锁定EXCLE中的行高和列宽、excel VBA 中width和columnwidth，height和rowheight不同，为什么等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！