Question

用VBA设置单元格长度和宽度相等，怎么写？

Answer 1

Sub Macro4()
gao = 40
kuan = 245
Cells(1, 1).RowHeight = Cells(1, 1).ColumnWidth / (gao / kuan)
End Sub

如图中，把单元都拉到高和宽设置成同一数值：30

得到像素值：高40

                     宽245

然后计算他们之间的比例为 40/245

=========================================================================

Excel中度量单位的设置
1.字号输入栏
Excel的字号没有Word中类似初号等名称的设定，要想统一Excel和Word中字体的大小可以参照表2来设置字号的磅值。字号的调节范围是1磅~409磅，字号的最小调节精度同样为0.5磅。
2.行高
行高设置分输入栏设置、拖动设置、双击自动适应三种。输入栏设置（如图6）的默认度量单位是磅，无法进行特指方式设置。拖动更改行高时，系统会提示行高的磅值和像素值，拖动的调整精度由Excel的显示比例决定。无论何种方法设置行高，行高的最小调整精度是1像素。如要制作尺寸要求较高的图表，可以参照度量单位换算表来精确设置行高。
3.列宽
列宽设置也分输入栏设置、拖动设置、双击自动适应三种。列宽输入栏设置（如图7）的默认度量单位和行高不同，不是以上所介绍的任何一个度量单位。如果将行高和列宽设置为同一数值得到的却不是正方形的单元格，还好列宽的默认度量单位和像素有对应换算关系，可以将列宽换算成像素或直接拖动列宽为合适的像素值来确定行高列宽的比例。列宽的最小调整精度也是1像素，由于1像素＝0.26毫米，所以只要仔细进行换算，认真设置行高列宽，完全可以进行精确制表。

追问

不对，行高和列宽的单位是不一样的

追答

已修改