返回列表 上一主題 發帖

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

zv1122

帖子
6 
主題
2 
精華
0 
積分
58 
點名
0  
作業系統
WIN7 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2013-5-13 
最後登錄
2016-7-24 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-7-12 15:00 | 只看該作者

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

本帖最後由 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
收藏 分享

zv1122

帖子
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.其實活頁簿、工作表之間跳來跳去是不必要的動作，因為只會用錄的結果寫成這樣。懇請高手修改優化
  1. Sub sort()
  2. Windows("A.xls").Activate
  3. Sheets("A1").Select
  4. Application.MaxChange = 0.001
  5.     ActiveWorkbook.PrecisionAsDisplayed = False
  6.     ActiveSheet.Calculate
  7. Sheets("A2").Select
  8. Application.MaxChange = 0.001
  9.     ActiveWorkbook.PrecisionAsDisplayed = False
  10.     ActiveSheet.Calculate
  11. Application.Wait Now + TimeValue("0:0:3")
  12.     Range("J1:N405").sort Key1:=Range("M2"), Order1:=xlDescending, Header:= _
  13.         xlYesGuess
  14. Windows("B.xls").Activate
  15. Sheets("B1").Columns("DG:DH").Calculate
  16. Windows("A.xls").Activate
  17.     If Range("U1") <> "" Then Exit Sub
  18.     Call Start
  19. End Sub

  21. Sub Start()
  22.     t = Now + TimeValue("00:00:15")
  23.     If Range("U1") <> "" Then Exit Sub
  24.     Application.OnTime t, "sort"
  25. End Sub
複製代碼

TOP

GBKEE

帖子
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

試試看
  1. Option Explicit
  2. Sub EX()
  3.     Dim Wb As Workbook, Sh As Worksheet
  4.     Set Wb = Workbooks("A.XLS")
  5.     Set Sh = Wb.Sheets("Sheet1")
  6.     Application.MaxChange = 0.001
  7.     Wb.PrecisionAsDisplayed = False
  8.      Sh.Calculate
  9. '-----------------------------------------------------------------------------------
  10.     With Sh
  11.         .Range("J1:N405").Sort Key1:=.Range("M2"), Order1:=xlDescending, Header:=xlYesGuess
  12.     End With
  13. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題