返回列表 上一主題 發帖

請問巨集問題

vance99

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2007 
閱讀權限
10 
性別
男 
來自
Taiwan HsinCgu 
註冊時間
2012-10-20 
最後登錄
2012-12-11 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-10-20 18:30 | 只看該作者

請問巨集問題

我有兩個 excel 2007 寫的 EXCEL 巨集
A.xlsm   以及 B.xlsm
兩個檔案裡面都用 ctrl-shift-Z  去啟動 表單 (A.xlsm 為表單 A   , B.xlsm 為表單 B)

現在我開啟 A.xlsm 使用中  , 巨集中有一個功能是開啟 B.xlsm , 複製 B.xlsm 其中的  sheet1  到 A.xlsm 的 sheet2 中
然後關閉 B.xlsm

但是問題來了....
再次按下 ctrl-shift-z 時 , 啟動的不是表單 A , 卻是表單 B ... ?????

請問為何會這樣呢 ?

謝謝大家幫我想想... thanks
收藏 分享
[email protected]

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-10-20 21:08 | 只看該作者
回復 1# vance99
A.xlsm 開啟,  B.xlsm 開啟 都用這樣  Application.OnKey的嗎?
  1. Private Sub Workbook_Open()
  2.     Application.OnKey "+^Z", "???"
  3. End Sub
複製代碼

如果是:  巨集開啟 B.xlsm時, B.xlsm 的 Application.OnKey 會執行一次 , A.xlsm 的 OnKey 被蓋掉了
關閉 B.xlsm,後回到A.xlsm 沒有再 Application.OnKey 當然OnKey 是B.xlsm的.
所以A.xlsm 的ThisWorkbook 須加上這程序, 再 一次的 Application.OnKey才會是A.xlsm地.
  1. Private Sub Workbook_WindowActivate(ByVal Wn As Window)
  2.     Application.OnKey "+^Z", "???"
  3. End Sub
複製代碼

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題