返回列表 上一主題 發帖

切換工作表時,同時切換手動改自動

回復 1# alpha


在工作表1的工作表事件簿中放
Private Sub Worksheet_Activate()
Application.Calculation = xlManual '手動計算
End Sub
在工作表2的工作表事件簿中放
Private Sub Worksheet_Activate()
Application.Calculation = xlAutomatic '自動計算
End Sub

TOP

        靜思自在 : 稻穗結得越飽滿,越會往下垂,一個人越有成就,就要越有謙沖的胸襟。
返回列表 上一主題