返回列表下一主題上一主題發帖

[發問] 可否限定試算表僅某部分自動計算

lichang

中學生 Rank: 2

帖子: 127
主題: 55
精華: 0
積分: 178
點名: 0
作業系統: win8
軟體版本: office2003
閱讀權限: 20
註冊時間: 2013-1-24
最後登錄: 2024-11-11

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-7-10 11:14 | 只看該作者

[發問] 可否限定試算表僅某部分自動計算

各位大大，我現在製作一個試算表，不過因為在後幾個分頁有大量計算比較式，導致運算時都會整個重新計算
影響試算表速度，但實際上我的後面幾個分頁已經不會再變更(暫時)，所以有辦法僅限定第一分頁可以自動計算嗎???
後幾個分頁是不做任何重新計算的動作

1.part01.rar (1 MB)

1.part02.rar (1 MB)

1.part03.rar (939.08 KB)

樓主熱帖

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

3^#

發表於 2016-7-11 16:23 | 只看該作者

DEAR SIR
如下可自行指定需求計算之 SHEET

Sub 指定SHEET計算()
Sheet2.Select
ActiveWorkbook.PrecisionAsDisplayed = False
ActiveSheet.Calculate
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheet2.Select
End Sub

Sub 自動計算()
With Application
      .Calculation = xlAutomatic
      .MaxChange = 0.001
      .CalculateBeforeSave = True
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Range("A1").Select
End Sub

Sub 手動計算()
With Application
      .Calculation = xlManual
      .MaxChange = 0.001
      .CalculateBeforeSave = False
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Range("A1").Select
End Sub

羅

TOP

Scott090