[已解决]【求助】是否表格自动重新计算的代码

xdwy81129

我通过录制宏没有得到代码，求老师赐教

下面的宏是：是否开关屏幕显示的代码，请老师赐教表格是否重新自动重算的代码是什么？？？

Application.ScreenUpdating = True

Application.ScreenUpdating = False

最佳答案

月排行榜 / 总排行榜

雨狐

2009-11-1 00:34

Application.Calculation = xlManual
Application.Calculation = xlCalculationAutomatic

跳转到最佳答案楼层

雨狐

Application.Calculation = xlManual
Application.Calculation = xlCalculationAutomatic

xdwy81129

QUOTE:

以下是引用雨狐在2009-11-1 0:34:00的发言：
Application.Calculation = xlManual
Application.Calculation = xlCalculationAutomatic

这个都知道，厉害，谢谢了。

领风飞翔

录制设置重算的过程就知道了

xdwy81129

QUOTE:

以下是引用领风飞翔在2009-11-1 0:46:00的发言：
录制设置重算的过程就知道了

感谢老师查看，可就是录制不行，真对不行。

录制的结果开和关如下：

Sub Macro3()
'
' Macro3 Macro
' 宏由 User 录制，时间: 2009-11-1
'

'
    With Application
        .Calculation = xlManual
        .MaxChange = 0.001
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
End Sub
Sub Macro4()
'
' Macro4 Macro
' 宏由 User 录制，时间: 2009-11-1
'

'
    With Application
        .Calculation = xlAutomatic
        .MaxChange = 0.001
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

雨狐

QUOTE:

以下是引用xdwy81129在2009-11-1 0:53:00的发言：

感谢老师查看，可就是录制不行，真对不行。

录制的结果开和关如下：

Sub Macro3()
'
' Macro3 Macro
' 宏由 User 录制，时间: 2009-11-1
'

'
    With Application
        .Calculation = xlManual
        .MaxChange = 0.001
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
End Sub
Sub Macro4()
'
' Macro4 Macro
' 宏由 User 录制，时间: 2009-11-1
'

'
    With Application
        .Calculation = xlAutomatic
        .MaxChange = 0.001
    End With
    ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

xdwy81129

QUOTE:

以下是引用雨狐在2009-11-1 0:57:00的发言：

啊，晕死了，我以为应该用true和 False来控制的，结果后面的最后一句都是 False，所以我想肯定也不行了。

菜厉害了我。感谢赐教。

xdwy81129

又仔细看了一遍。录制的东西还是不行。

 

关录制为：Calculation = xlAutomatic

结果正确的代码为：Application.Calculation = xlCalculationAutomatic

 

所以还是不枉费发帖提问。后面的东西不一样。

 

但开始一样的。

Calculation = xlManual

Application.Calculation = xlManual

 

[em01]

谢谢老师们费心。

windvchina

 With Application
        .Calculation = xlManual
        .MaxChange = 0.001
    End With

with......

  .代码

end with

这结构才是完整的。

也可写成如上格式。

Application.Calculation = xlManual

zsd5237

学习[em02][em02]