[發問] EXCEL並排顯示的方式下,每分鐘自動執行不同巨集

A.xlsm 有一個巨集專門篩選A欄位,每1分鐘自動篩選一次

B.xlsm 有一個巨集專門篩選B欄位,每1分鐘自動篩選一次

單獨打開 A.xlsm 或 B.xlsm 時,巨集都很正常

但如果在EXCEL並排顯示 A.xlsm 和 B.xlsm

點到A.xlsm時,變成AB欄每1分篩選一次,B.xlsm則完全不動

點到B.xlsm時,變成AB欄每1分篩選一次,A.xlsm則完全不動

不用幾分鐘

A.xlsm 和 B.xlsm 的AB欄都篩選了(=.=)

想請教神人們

EXCEL有辦法在並排顯示的方式下

A.xlsm 每1分鐘自動篩選一次A欄位

B.xlsm 每1分鐘自動篩選一次B欄位

不曉得這種破文字敘述大家看得懂嗎(T^T)

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2013-6-23 12:21 | 只看該作者

回復 1# 伊賽爾
因為你macro2 用的是ActiveSheet , 改成ThisworkBook.Sheets("Sheet1") 看看

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

3^#

發表於 2013-6-23 21:05 | 只看該作者

本帖最後由 luhpro 於 2013-6-23 21:08 編輯

...
單獨打開 A.xlsm 或 B.xlsm 時,巨集都很正常
...
但如果在EXCEL並排顯示 A.xlsm 和 B.xlsm
...
不用幾分鐘
A.xlsm 和 B.xlsm 的AB欄都篩選了(=.=)
...
伊賽爾發表於 2013-6-23 10:39

其實這是 Excel VBA 程式本身機制所造成作用對象非為預期的狀況.

不論你的 VBA 程式放在哪個區塊(Sheet1、Sheet2、,Module1...)
只要你沒特意去過濾的話,
使用 ActiveSheet 會作用在 "同群組" 中目前是 Active 的 Sheet,(也可能非同一檔案或Workbook) <--- 尤其是這個 .
** 上方的 "同群組" 是指在下方Sheet頁簽上按滑鼠右鍵,選移動或複製後,在選單中可以選到的任何Sheet)

所以如果程式還在背景運作,
這時使用者手動去切換了Sheet後(或是又另開了一個 Excel 檔案),
就可能發生非預期的結果.

我能想到的有兩種方式可以避過這類作用對象錯誤的問題:

1. 在 Sub 與 End Sub 中間先包上 If ActiveSheet.Name="Sheet1" Then 與 End If 的敘述,
以確保程式不會作用到錯誤的標的上,
不過在某些情形下其內的程式也可能根本就不會執行了.

2. 在 Module 上方加上 Public Sh As Worksheet 的共用指標宣告,
再於 Workbook 的 Open 方法程式內加上,
Set sh = Sheets("sheet2") 之類的指令來指定要作用的Sheet目標,
之後不管在哪裡都可以用 With sh 與 End With 或是 sh.[A1] 之類的指令來定死要作用的 Sheet.

當然, 第 2 個方式我覺得應該比較好用且符合我們預期的效果.

TOP

伊賽爾

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 11
點名: 0
作業系統: w7
軟體版本: office 2007
閱讀權限: 10
性別: 女
來自: 台灣
註冊時間: 2013-6-23
最後登錄: 2019-11-21

4^#

發表於 2013-6-25 16:50 | 只看該作者

謝謝stillfish00大大,我有試著跑,但出現編譯錯誤後,就卡住沒辦法動了....

TOP

伊賽爾

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 11
點名: 0
作業系統: w7
軟體版本: office 2007
閱讀權限: 10
性別: 女
來自: 台灣
註冊時間: 2013-6-23
最後登錄: 2019-11-21

5^#

發表於 2013-6-25 17:10 | 只看該作者

測試A.xlsm-Module1(程式碼)

Sub Macro1()
'
' Macro1 Macro
' 清除A
'

'
Rows("6:6").Select
ActiveSheet.ShowAllData
Range("A5").Select
End Sub

Sub Macro2()
'
' Macro2 Macro
' 篩選A
'

'
ActiveSheet.Range("$A$6:$G$16").AutoFilter Field:=2, Criteria1:="<>"
Range("A5").Select
Application.OnTime Now + TimeValue("00:00:03"), "Macro2"

測試A.xlsm-ThisWorkbook(程式碼)

Private Sub Workbook_Open()
Sheet1.Select
Set Sh = Sheets("sheet2")
End Sub

測試Bxlsm-Module1(程式碼)

Sub Macro1()
'
' Macro1 Macro
' 清除B
'

'
Rows("1:1").Select
ActiveSheet.ShowAllData
Range("A1").Select
End Sub
Sub Macro2()
'
' Macro2 Macro
' 篩選B
'

'
ActiveSheet.Range("$A$6:$G$16").AutoFilter Field:=1, Criteria1:="<>"
Range("E1").Select
Application.OnTime Now + TimeValue("00:00:03"), "Macro2"
End Sub

測試B.xlsm-ThisWorkbook(程式碼)

Private Sub Workbook_Open()
Sheet1.Select
Set Sh = Sheets("sheet2")
End Sub

----------------------------------------------------------

luhpro大大,我想我誤會你的意思,所以只得到了笑果....可以再多指正一二嗎?(Orz)

TOP

伊賽爾