[發問] 計算模式手動,轉寫資料問題

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2016-2-23 12:56 | 只看該作者

[發問] 計算模式手動,轉寫資料問題

請教大大
在程式頭部加入,計算模式改為手動;尾部改回自動
如程式中間有轉寫資料的語句,有需要再前列,加入重新計算等的語句嗎?
還請大大幫忙解惑,謝謝

樓主熱帖

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2016-2-23 13:54 | 只看該作者

回復 1# blue2263
試試看

Option Explicit
Sub Ex()
Application.Calculation = xlManual
[A1] = ""
With [A2]
.Cells = ""
.Cells = "=A1*5" '公式
MsgBox .Value
[A1] = 10
.Calculate '[A2]的計算
MsgBox .Value
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

yen956

高中生 Rank: 3 Rank: 3

帖子: 522
主題: 36
精華: 1
積分: 603
點名: 0
作業系統: win xp sp3
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2012-12-13
最後登錄: 2021-7-11

3^#

發表於 2016-2-23 13:54 | 只看該作者

Application.Calculation = xlManual '手動
Application.Calculation = xlAutomatic '自動

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

4^#

發表於 2016-2-23 16:56 | 只看該作者

G大 Y大你好
我知道的更改為手動是下面這行,與 G大 Y大的不一樣,請教主要用途差異在那邊?
Application.Calculation = xlCalculationManual '計算模式為手動
Application.Calculation = xlManual '手動

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

5^#

發表於 2016-2-23 17:33 | 只看該作者

G大你好

再將函數公式轉寫為值時,G大是用 .Calculate
我是加入,下面這一句程式碼,我的用法正確嗎?

      '計算工作表,等待計算結束後,再進行下一步
         Application.Calculate '計算工作表
         Do Until Application.CalculationState = xlDone
         DoEvents
         Loop

Sub ex()
Application.Calculation = xlCalculationManual '計算模式為手動
      With Sheets("分析")
      首列 = .Range("首列")
      欄號 = .Range("欄號")
      尾列 = Cells(Rows.Count, 1).End(xlUp).Row '由下往上找最後一列資料
      尾欄 = Cells(尾列, Columns.Count).End(xlToLeft).Column '由右往左找
      '貼上公式1
      .Range("a" & 尾列 & ":c" & 尾列).Copy
      .Range("a" & 首列 & ":c" & 尾列 - 2).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False
      '貼上公式2
      .Range(Cells(尾列, 欄號), Cells(尾列, 尾欄)).Copy
      .Range(Cells(首列, 欄號), Cells(尾列 - 2, 尾欄)).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
         SkipBlanks:=False, Transpose:=False

      '計算工作表,等待計算結束後,再進行下一步
         Application.Calculate '計算工作表
         Do Until Application.CalculationState = xlDone
         DoEvents
         Loop

      '函數公式轉寫為值
      .Range("a" & 首列 & ":c" & 尾列 - 2) = .Range("a" & 首列 & ":c" & 尾列 - 2).Value
      .Range(Cells(首列, 欄號), Cells(尾列 - 2, 尾欄)) = .Range(Cells(首列, 欄號), Cells(尾列 - 2, 尾欄)).Value
      End With
Application.Calculation = xlCalculationAutomatic '計算模式為自動
End Sub

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2016-2-23 20:37 | 只看該作者

回復 5# blue2263

試試看,是否如此

'函數公式轉寫為值
.Range("a" & 首列 & ":c" & 尾列 - 2).Calculate
.Range(Cells(首列, 欄號), Cells(尾列 - 2, 尾欄)).Calculate
.Range("a" & 首列 & ":c" & 尾列 - 2) = .Range("a" & 首列 & ":c" & 尾列 - 2).Value
.Range(Cells(首列, 欄號), Cells(尾列 - 2, 尾欄)) = .Range(Cells(首列, 欄號), Cells(尾列 - 2, 尾欄)).Value

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 149
主題: 39
精華: 0
積分: 213
點名: 0
作業系統: windows xp
軟體版本: sp3
閱讀權限: 20
註冊時間: 2013-7-15
最後登錄: 2024-1-22

7^#

發表於 2016-2-24 07:02 | 只看該作者

回復 6# GBKEE

了解,謝謝G大解答