標題: [發問] 建立功能鍵自動到所需ADDRESS [打印本頁]

---

作者: rouber590324    時間: 2014-10-9 10:13     標題: 建立功能鍵自動到所需ADDRESS

DERA ALL 大大 -
1.需求 - 於EXCEL 建立一功能鍵.執行後至  \\PCBFS03\drawing\A11M38A
2.我目前方式如圖一.於 Range("A1")產生\\PCBFS03\drawing\A11M38A.然後再啟動連結.
3.請問直接寫於 VBA 內要如何寫?? 煩不吝賜教.  THANKS*10000      
圖一
Sub AA()
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "\\PCBFS03\drawing\A11M38A"
    Range("A1").Select
End Sub

---

作者: 蝕光迴狼    時間: 2014-10-9 13:19

回復 1# rouber590324


請先建立一個指令按鈕

然後貼上這個程式碼：

1. Private Sub CommandButton1_Click()
   
2. 
   
3.   ML1 = Range("A1") '資料夾路徑參照A1欄位
   
4.   gb = ML1 & " \ "  '要開啟的資料夾位置
   
5. 
   
6.   Shell "explorer  " & gb, vbNormalFocus
   
7.     '"explorer  "空一格 + (連接上)要開啟的資料夾 或 檔案
   
8. 
   
9. End Sub

複製代碼

---

作者: rouber590324    時間: 2014-10-9 14:33

DEAR   蝕光迴狼  大大
  感謝您. 測試後100%符合小弟之需求. THANKS*10000

---

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