如何控制每列的高度

清风竹-

bown2022 发表于 2022-10-19 08:47
运行了代码，解决了排版反复调整行距的问题。能否多请教一个问题，有时一个项目任务需要多个单位负责，所 ...

请看附件。

bown2022

清风竹- 发表于 2022-10-19 11:35
请看附件。

谢谢你的多次修改，如果b列的内容少，排除的效果还存在美观的问题。

d-调整行高.rar (20.28 KB, 下载次数: 1)

2022-10-19 11:46 上传

点击文件名下载附件

清风竹-

bown2022 发表于 2022-10-19 11:40
谢谢你的多次修改，如果b列的内容少，排除的效果还存在美观的问题。

请看附件。

bown2022

清风竹- 发表于 2022-10-19 12:16
请看附件。

Range("B" & i).RowHeight = s + 8  ''''' “s + ”后面的数字根据美观需要改写。
这个代码对单行的行高控制有效果，我试着把“8”改成“28”，合并后的多行的行高没有变化。

清风竹-

bown2022 发表于 2022-10-19 15:33
Range("B" & i).RowHeight = s + 8  ''''' “s + ”后面的数字根据美观需要改写。
这个代码对单行的行 ...

合并的多行改这句：
If hg < 13.5 Then hg = 13.5     两处 13. 5 改大，调到适合的高度。

s2 = Range("B" & i).RowHeight + 9    和
  Range("B" & i).RowHeight = s + 8  要同步改。 8 、9可以改成一样的数。

bown2022

清风竹- 发表于 2022-10-19 16:36
合并的多行改这句：
If hg < 13.5 Then hg = 13.5     两处 13. 5 改大，调到适合的高度。

试着运行过了，挺好。这个13.5，8,9是什么意思。

清风竹-

bown2022 发表于 2022-10-19 16:55
试着运行过了，挺好。这个13.5，8,9是什么意思。

在自动适应行高的基础上再加的一个数值。也可以是其他数，感觉适合就行。13.5是 最小行高，如果行高小于这个数，行高就等于这个数。这些数不是固定的，感觉适合就行。

bown2022

清风竹- 发表于 2022-7-20 16:39
请看附件。VBA代码。方法是：自动适应行高，每行再增加一个固定值。

Sub 定行高()
Application.ScreenUpdating = False

    m = [c65536].End(3).Row
    Range("c5:c" & m).Rows.AutoFit
    For i = 5 To m
        s = Range("c" & i).RowHeight
        Range("c" & i).RowHeight = s + 16 ''''' “s + ”后面的数字根据美观需要改写。
   Next
Application.ScreenUpdating = True    '页面刷新
End Sub