|
楼主 |
发表于 2015-1-31 21:22
|
显示全部楼层
本帖最后由 alxixi520 于 2015-1-31 21:25 编辑
zjdh 发表于 2015-1-31 14:12
谢谢您的帮助,基本实现了一半,还遇到几个问题:
1、文字如果只有一行,调宽了不可以自动恢复到一行的高度,不过这个问题不大,我可以使用双击鼠标实再,再利用宏功能完成多行的调整。
2、字体大小调整了,下面的代码不知道是依据个什么调整,我试着修改可是总是不准确。还请指教!
Sub 行高设置()
Dim I&, W&, S%, T%
Application.ScreenUpdating = False
Columns("A:G").WrapText = True
For I = 1 To 7 '目前合并单元格为7列
W = W + Cells(1, I).Width
Next
T = W / 5.5 '字体大小时要调整
For I = 1 To Range("A65536").End(3).Row
If LenB(Cells(I, 1)) > T Then
S = Int(LenB(Cells(I, 1)) / T + 0.99)
Cells(I, 1).RowHeight = S * 14 '字体大小时要调整系数
End If
Next
Application.ScreenUpdating = True
End Sub
|
|