[發問] 跨活頁簿巨集如何正常獨立執行避免陣列索引超出範圍

本帖最後由 zv1122 於 2016-7-12 15:02 編輯

各位好，請問
當我同時開啟2個活頁簿A、B，如何讓A活頁簿的巨集獨立正常執行
不跑出”執行階段錯誤’9’: 陣列索引超出範圍”

A活頁簿巨集目的是，不斷的每X秒執行2個動作 1.重算作用中工作表(在A活頁簿某工作表) 2.某欄排序(在A活頁簿某工作表)
B活頁簿是我的主要工作視窗，當我再B看資料時希望能讓A的巨集正常執行
google不出這個問題，希望各位能賜教，感謝

另外那2個動作如果之間希望間隔x秒在執行動作2，請問該如何編寫?

Application.MaxChange = 0.001
ActiveWorkbook.PrecisionAsDisplayed = False
ActiveSheet.Calculate
-----------------------------------------------------------------------------------
Range("J1:N405").sort Key1:=Range("M2"), Order1:=xlDescending, Header:= _
xlYesGuess

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-7-13 13:03 | 只看該作者

回復 1# zv1122

試試看

Option Explicit
Sub EX()
Dim Wb As Workbook, Sh As Worksheet
Set Wb = Workbooks("A.XLS")
Set Sh = Wb.Sheets("Sheet1")
Application.MaxChange = 0.001
Wb.PrecisionAsDisplayed = False
Sh.Calculate
'-----------------------------------------------------------------------------------
With Sh
.Range("J1:N405").Sort Key1:=.Range("M2"), Order1:=xlDescending, Header:=xlYesGuess
End With
End Sub

複製代碼

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

TOP

zv1122

中學生 Rank: 2

帖子: 6
主題: 2
精華: 0
積分: 58
點名: 0
作業系統: WIN7
軟體版本: office2003
閱讀權限: 20
性別: 男
註冊時間: 2013-5-13
最後登錄: 2016-7-24

3^#

發表於 2016-7-14 00:31 | 只看該作者

本帖最後由 zv1122 於 2016-7-14 00:43 編輯

回復 2# GBKEE
感謝版主回復
不好意思，我巨集初學者表達得不好，版主那段好像跟我思考的不同
後來土法煉鋼錄阿寫阿寫出這段，懇請幫看看

原意：跳到活頁簿A，A1工作表運算，A2工作表運算，等3秒，排序A2工作表的J1:N405以M2排。
         跳到活頁簿B，B1工作表的DG:DH欄做運算。
         跳到活頁簿A，如果U1不是空白讓巨集停止，否則跳計時器重複做。
PS 1.那個等3秒是為了運算完再做排序，如果太快排序有些儲存格資料是還沒運算的下去排序。
   2.其實活頁簿、工作表之間跳來跳去是不必要的動作，因為只會用錄的結果寫成這樣。懇請高手修改優化

Sub sort()
Windows("A.xls").Activate
Sheets("A1").Select
Application.MaxChange = 0.001
ActiveWorkbook.PrecisionAsDisplayed = False
ActiveSheet.Calculate
Sheets("A2").Select
Application.MaxChange = 0.001
ActiveWorkbook.PrecisionAsDisplayed = False
ActiveSheet.Calculate
Application.Wait Now + TimeValue("0:0:3")
Range("J1:N405").sort Key1:=Range("M2"), Order1:=xlDescending, Header:= _
xlYesGuess
Windows("B.xls").Activate
Sheets("B1").Columns("DG:DH").Calculate
Windows("A.xls").Activate
If Range("U1") <> "" Then Exit Sub
Call Start
End Sub
Sub Start()
t = Now + TimeValue("00:00:15")
If Range("U1") <> "" Then Exit Sub
Application.OnTime t, "sort"
End Sub

複製代碼

TOP

[發問] 跨活頁簿巨集如何正常獨立執行避免陣列索引超出範圍

[發問] 跨活頁簿巨集如何正常獨立執行避免陣列索引超出範圍

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

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