excel中使用vba来获取单元格的列宽和行高

1、首先我们打开一个工作样表作为例子。

2、我们捂执涡扔使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub testWidthOrHeight() Dim lWinWidth As Long, lWi荏鱿胫协nHeight As Long With ActiveWindow lWinWidth = .PointsToScreenPixelsX(.Selection.Width) lWinHeight = .PointsToScreenPixelsY(.Selection.Height) End With MsgBox "当前选定单元格宽度为:" & lWinWidth & Chr(10) & _ "当前选定单元格高度为:" & lWinHeight End Sub

3、这里我们需要知道的是捂执涡扔使用PointsToScreenPixelsX方法获取所选单元格对象的像素值，而不是excel表格中的行高和列宽常用的磅单位。所以我们这里获取的结果与行高列宽是不一致的。

4、我们声明了2个变量，列宽和行高，其作用域为长整数型。

5、将其分别赋值为活动窗口中所选择的单元格的行高和列宽为对象，并使用点对像素方法。

6、最后使用msgbox进行输入，输出的信息中Chr(10)为回车符，下划线是换行连接符，如果不使用变量，也可溅局柑氍以直接将方法输入代码为：ActiveWindow.PointsToScreenPixelsX(.Selection.Width)，效果是一样的。