作者：乔山办公网日期：
返回目录：excel表格制作
这个zd意思回？答
Sub test()
If Application.Calculation = xlManual Then
Application.Calculation = xlAutomatic
Else
Application.Calculation = xlManual
End If
End Sub
在第三行百和第四度行之间插上知一句：Application.Volatile True 应该就能自道动更新了专，如果不能的属话：
Private Sub Commandbutton1_click()
Application.ScreenUpdating=False
a=Worksheets("sheet1").Cells(1, 22).Value
Worksheets("sheet1").Cells(1, 22).Value=1
Worksheets("sheet1").Cells(1, 22).Value=a
Application.ScreenUpdating=True
End Sub