返回列表 上一主題 發帖

共用鈕

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-10-6 16:57 | 只看該作者

共用鈕

各位前輩你們好!!   
      前輩!
      Sub 跨檔()
          Windows("李四.xls").Activate
          ActiveWindow.ScrollColumn = 18
          ActiveWindow.ScrollRow = Range("B" & Rows.Count).End(xlUp).Row
          Windows("LeoV76.xls").Activate
      End Sub
      跨檔鈕是在LeoV76.xls執行
      當李四.xls在開啟狀態
      按跨檔鈕執行是OK
      請問要如何寫才能使此按鈕
      在張三.xls或王五.xls等等在開啟狀態也能使用
      請知道的前輩,不吝賜教謝謝再三!!
收藏 分享

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2025-7-5 
2#
發表於 2013-10-8 22:42 | 只看該作者
回復 1# myleoyes
如果只有一個按鈕又要通用的話,
那麼就需要一個地方來存放(或選擇)要作用的檔案,
這裡假設用[A3]儲存格來存放(或選擇)檔名. (可考慮用驗證功能做檔名選單)

Windows([A3] & ".xls").Activate

TOP

myleoyes

帖子
463 
主題
116 
精華
0 
積分
580 
點名
0  
作業系統
Vista 
軟體版本
2007 
閱讀權限
50 
性別
男 
註冊時間
2010-5-4 
最後登錄
2017-11-13 

論壇贊助勳章論壇榮譽勳章
3#
發表於 2013-10-10 10:25 | 只看該作者
回復 2# luhpro
前輩!
     謝謝!小弟也是用此Windows([C1] & ".xls").Activate
     方式卻出現錯誤以為自己弄錯方法
     經你指導發現方式沒錯才驚醒
     這B程式是在A程式執行完隨著執行並沒有設按鈕
     原本的[C1]在Sheet6當A程式執行完程式把它帶到Sheet2
     所以再此執行B程式(Windows([C1] & ".xls").Activate)
     當然會錯誤因此改成(Windows(Sheet6.[C1] & ".xls").Activate)
     就解決問題疏忽!疏忽!真歹勢麻煩前輩!謝謝再三!!

TOP

        靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。
返回列表 上一主題