返回列表下一主題上一主題發帖

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

伊賽爾

小學生 Rank: 1

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

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-6-23 10:39 | 顯示全部帖子

[發問] 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)

伊賽爾

小學生 Rank: 1

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

2^#

發表於 2013-6-25 16:50 | 顯示全部帖子

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

TOP

伊賽爾

小學生 Rank: 1

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

3^#

發表於 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

伊賽爾