[已解决]这个 怎么 再提速.

砂海

      以下为程序, 不知怎么样提速
with sheets("打印")
  For i = 1 To j9 - 1
            .HPageBreaks.Add Before:=.Range("a" & 步骤目录(i, 4) + 1)  '''插入分页符
               .Range("a" & 步骤目录(i, 5) & ":f" & 步骤目录(i, 5) + 5).RowHeight = 15.6  '''设定行高
            .Range("a" & 步骤目录(i, 5) & ":f" & 步骤目录(i, 5) + 5).Font.Size = 12 '''设定字号
              .Range("a" & 步骤目录(i, 5) + 2).RowHeight = 9 '''设定行高

            .Range("a" & 步骤目录(i, 5) + 7 & ":b" & 步骤目录(i, 4)).RowHeight = 步骤目录(i, 6)   '''设定行高
            .Range("a" & 步骤目录(i, 5) + 7 & ":b" & 步骤目录(i, 4)).Font.Size = 步骤目录(i, 7)   '''设定字号
        Next i
end with

这样大概 1.1秒
------------------------------------------------------
这样 1.4 秒
with sheets("打印")
  For i = 1 To j9 - 1
            .HPageBreaks.Add Before:=.Range("a" & 步骤目录(i, 4) + 1)  '''插入分页符
            with .Range("a" & 步骤目录(i, 5) & ":f" & 步骤目录(i, 5) + 5)
                     .RowHeight = 15.6  '''设定行高
                     .Font.Size = 12 '''设定字号
            end with
            .Range("a" & 步骤目录(i, 5) + 2).RowHeight = 9 '''设定行高

            .Range("a" & 步骤目录(i, 5) + 7 & ":b" & 步骤目录(i, 4)).RowHeight = 步骤目录(i, 6)   '''设定行高
            .Range("a" & 步骤目录(i, 5) + 7 & ":b" & 步骤目录(i, 4)).Font.Size = 步骤目录(i, 7)   '''设定字号
        Next i
end with

最佳答案

月排行榜 / 总排行榜

grf1973

2016-3-22 13:28

看看这样是不是快点
With Sheets("打印")
For i = 1 To j9 - 1
      x = 步骤目录(i, 4): y = 步骤目录(i, 5)
      .HPageBreaks.Add Before:=.Range("a" & x + 1)  '''插入分页符
      .Range("a" & y & ":f" & y + 5).RowHeight = 15.6  '''设定行高
      .Range("a" & y & ":f" & y + 5).Font.Size = 12 '''设定字号
      .Range("a" & y + 2).RowHeight = 9 '''设定行高
   
      .Range("a" & y + 7 & ":b" & x).RowHeight = 步骤目录(i, 6)   '''设定行高
      .Range("a" & y + 7 & ":b" & x).Font.Size = 步骤目录(i, 7)   '''设定字号
Next i
End With

跳转到最佳答案楼层

grf1973

看看这样是不是快点
With Sheets("打印")
For i = 1 To j9 - 1
      x = 步骤目录(i, 4): y = 步骤目录(i, 5)
      .HPageBreaks.Add Before:=.Range("a" & x + 1)  '''插入分页符
      .Range("a" & y & ":f" & y + 5).RowHeight = 15.6  '''设定行高
      .Range("a" & y & ":f" & y + 5).Font.Size = 12 '''设定字号
      .Range("a" & y + 2).RowHeight = 9 '''设定行高
   
      .Range("a" & y + 7 & ":b" & x).RowHeight = 步骤目录(i, 6)   '''设定行高
      .Range("a" & y + 7 & ":b" & x).Font.Size = 步骤目录(i, 7)   '''设定字号
Next i
End With

grf1973

上面加个application.ScreenUpdating=False 估计会快点。

砂海

grf1973 发表于 2016-3-22 13:28
看看这样是不是快点
With Sheets("打印")
For i = 1 To j9 - 1

是快了.
学习了,避免了多余的计算

另:屏幕刷新是知道的.