用VBA 執行COUNTIF 後，貼值及工作頁的疑問及簡化VBA - Excel程式區

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兔年全勤獎章

1^# 跳轉到 »

發表於 2019-5-26 13:38 | 顯示全部帖子

回復 1# ppppssss

工作表1的ABC行的RAND 值都不會跳動了(巨集沒執行時會自已跳動)

RAND 值都不會跳動儲存格的函數需工作表有作重算的動作,才會重做計算產生新的數值
巨集沒執行時會自已跳動是工作表中儲存格有編輯的動作,引起重算的動作

附檔可參考看看

COUNTIF -TEST1 (自動儲存).zip (50.26 KB)

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

TOP

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^#

發表於 2019-5-27 09:06 | 顯示全部帖子

回復 3# ppppssss
這個thisworkbool 跟thisworkboo"k" 會有不一樣做用嗎？
試著修改成thisworkbook 感覺程式也沒什麼影響。
thisworkbool VBA沒這關鍵字
ThisWorkbook 是這活頁簿模組的物件

感覺程式也沒什麼影響。附上你的檔案看看

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

TOP

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兔年全勤獎章

3^#

發表於 2019-5-28 05:44 | 顯示全部帖子

回復 5# ppppssss
你的office 是繁體版的嗎!
我給的是 Run "'" & ThisWorkbook.Name & "'!重算"
不是 Run ("'""" & thisworkbool.Name & "!" & µ{¦¡.¥¨¶°10sec & """'")

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

TOP

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兔年全勤獎章

4^#

發表於 2019-5-29 13:54 | 顯示全部帖子

回復 7# ppppssss

Sub 巨集10sec()
Application.Calculation = xlCalculationSemiautomatic '手動重算可停止活頁簿的運算
With 工作表1
.Range("E5:G5") = Array("=COUNTIF(A5:A936,1)", "=COUNTIF(A5:A936,-1)", "=COUNTIF(A5:A936,0)")
.Range("E7:G7") = Array("=COUNTIF(B5:B258,1)", "=COUNTIF(B5:B258,-1)", "=COUNTIF(B5:B258,0)")
.Range("E9:G9") = Array("=COUNTIF(B462:B493,1)", "=COUNTIF(B462:B493,-1)", "=COUNTIF(B462:B493,0)")
.Range("E11:G11") = Array("=COUNTIF(B259:B398,1)+COUNTIF(B509:B563,1)", "=COUNTIF(B259:B398,1)+COUNTIF(B509:B563,-1)", "=COUNTIF(B259:B398,1)+COUNTIF(B509:B563,0)")
End With
Application.Calculation = xlCalculationAutomatic 程式碼執行後恢復活頁簿自動重算
End Sub

複製代碼

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

TOP

[發問] 用VBA 執行COUNTIF 後，貼值及工作頁的疑問及簡化VBA

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]