返回列表 上一主題 發帖

[發問] 建立功能鍵自動到所需ADDRESS

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
收藏 分享
羅

蝕光迴狼
　暱稱: 蝕光迴狼

中學生Rank: 2

帖子
75 
主題
6 
精華
0 
積分
83 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
臺灣 
註冊時間
2014-9-22 
最後登錄
2015-3-7 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2014-10-9 13:19 | 只看該作者
回復 1# rouber590324


請先建立一個指令按鈕

然後貼上這個程式碼：

  1. Private Sub CommandButton1_Click()

  3.   ML1 = Range("A1") '資料夾路徑參照A1欄位
  4.   gb = ML1 & " \ "  '要開啟的資料夾位置

  6.   Shell "explorer  " & gb, vbNormalFocus
  7.     '"explorer  "空一格 + (連接上)要開啟的資料夾 或 檔案

  9. End Sub
複製代碼
我很笨,所以我很用心
　我學藝不精,但我渴求知識

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
3#
發表於 2014-10-9 14:33 | 只看該作者
DEAR   蝕光迴狼  大大
  感謝您. 測試後100%符合小弟之需求. THANKS*10000
羅

TOP

        靜思自在 : 難行能行，難捨能捨，難為能為，才能昇華自我的人格。
返回列表 上一主題