[已解决]如何刷新（重新计算）指定工作表呢！！？？？

ilay · 发表于 2014-3-3 21:25

本帖最后由 ilay 于 2014-3-3 21:26 编辑

如何刷新（重新计算）指定工作表呢！！？？？
刷新（重新计算）指定工作表，其他工作不刷新（重新计算）。
列如  指定刷新 Sheets("10路基路面压实度试验（灌砂法）")
等Q循环完后刷新Sheets("10评定表")

Sub zd() Dim L As Variant, Q As Integer

Dim SH As Worksheet
Dim I, X, Y As Integer
For L = Sheets("10路基路面压实度试验（灌砂法）").Range("t20").Value To Sheets("10路基路面压实度试验（灌砂法）").Range("t21") Step 1
L = L
Sheets("10路基路面压实度试验（灌砂法）").Range("t22") = L

Calculate

For Q = Sheets("10路基路面压实度试验（灌砂法）").Range("t18").Value To Sheets("10路基路面压实度试验（灌砂法）").Range("u18").Value Step 1
      Q = Q
      Sheets("10路基路面压实度试验（灌砂法）").Range("t19").Value = Q
      Calculate

Y = 0

For Each SH In ThisWorkbook.Sheets

If Left(SH.Name, 2) = "10" Then

Y = Y + (SH.HPageBreaks.Count + 1) * (SH.VPageBreaks.Count + 1)

End If

Next SH

X = 1

For Each SH In ThisWorkbook.Sheets

If Left(SH.Name, 2) = "10" Then

SH.Select

For I = 1 To (SH.HPageBreaks.Count + 1) * (SH.VPageBreaks.Count + 1)

'sh.PrintPreview '去掉这句前面的 ' 是预览
SH.PrintOut I, I '去掉这句前面的 ' 是打印

X = X + 1

Next I
   End If
   Next SH
   Next Q

Next L

End Sub

最佳答案

月排行榜 / 总排行榜

fffox

2014-3-4 10:43