[已解决]请大神给段自动调整行高的代码

透明世界1987

自动调整行高.zip (134.83 KB, 下载次数: 2)

2022-6-15 16:19 上传

点击文件名下载附件

如图批量打印后，只显示到90*66，后面带亚克力板显示不全了，已经设置了自动调整行高和自动换行，但是时好时坏，请大神给段一劳永逸的代码

最佳答案

月排行榜 / 总排行榜

hasyh2008

2022-6-16 07:03

Sub 自动设置行高()
  Dim X%, RowHeight, Rs%
  X = ActiveSheet.Cells(1, 1).CurrentRegion.Rows.count
  Cells.EntireRow.AutoFit   '自动行高，列也可以用
  For Rs = 1 To X
    RowHeight = Rows(Rs).RowHeight
    Rows(Rs).RowHeight = Round(RowHeight * 1.2, 0)
  Next Rs
End Sub

跳转到最佳答案楼层

hasyh2008

Sub 自动设置行高()
  Dim X%, RowHeight, Rs%
  X = ActiveSheet.Cells(1, 1).CurrentRegion.Rows.count
  Cells.EntireRow.AutoFit   '自动行高，列也可以用
  For Rs = 1 To X
    RowHeight = Rows(Rs).RowHeight
    Rows(Rs).RowHeight = Round(RowHeight * 1.2, 0)
  Next Rs
End Sub