標題: 共用鈕 [打印本頁]

---

作者: myleoyes    時間: 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    時間: 2013-10-8 22:42

回復 1# myleoyes
如果只有一個按鈕又要通用的話,
那麼就需要一個地方來存放(或選擇)要作用的檔案,
這裡假設用[A3]儲存格來存放(或選擇)檔名. (可考慮用驗證功能做檔名選單)

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

---

作者: myleoyes    時間: 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)
     就解決問題疏忽!疏忽!真歹勢麻煩前輩!謝謝再三!!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)