麻辣家族討論版版 » Excel程式區 » 修改資料並附加相對路徑

返回列表下一主題上一主題發帖

修改資料並附加相對路徑

中學生 Rank: 2

帖子: 103
主題: 30
精華: 0
積分: 139
點名: 0
作業系統: wondows XP
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 彰化
註冊時間: 2013-2-21
最後登錄: 2015-6-26

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-1-7 16:03 | 只看該作者

修改資料並附加相對路徑

本帖最後由 Jared 於 2014-1-7 16:05 編輯

想請問大大
目前寫了一個資料輸入的表單(如圖)

在資料輸入的部分
程式利用相對路徑（檔案須放置在同一個目錄夾），
只需要在表單該欄位輸入檔名＆副檔名
Excel上只會顯示連結路徑

With Sheet1
With .Cells(.Rows.Count, 2).End(xlUp).Offset(1)
.Resize(, 2).Value = Ar
.Hyperlinks.Add .Offset(, 2), ActiveWorkbook.Path & "\" & a3
.Offset(, 2).Value = "連結路徑"
End With
End With

複製代碼

那現在的問題就是
當我需要進行資料修改的動作
都叫該編號對應的欄位就只會呼叫"連結路徑"這四個字
並不會把當初設定的相對路徑也一併呼叫進來

現在想要在修改目前的程式

With Sheet1
Set A = .Columns("A").Find(TextBox4.Text, lookat:=xlWhole, LookIn:=xlValues)
A.Offset(, 1) = TextBox1.Text '資料A
A.Offset(, 2) = TextBox2.Text '資料B
A.Offset(, 3) = TextBox3.Text '連結路徑
End With

複製代碼

要怎麼改才能像資料輸入那樣又把相對路徑在寫上去呢?
範例檔如下

輸入&修改路徑測試.zip (18.74 KB)
因為目前只能直接表面上的路徑

希望有神人幫忙解答 >//< 感激不盡

螢幕截圖00805.jpg (65.72 KB)

樓主熱帖

收藏

Jared

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2014-1-7 17:11 | 只看該作者

回復 1# Jared
A.Offset(, 3).Hyperlinks(1).Address = TextBox3.Text

中學生 Rank: 2

帖子: 103
主題: 30
精華: 0
積分: 139
點名: 0
作業系統: wondows XP
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 彰化
註冊時間: 2013-2-21
最後登錄: 2015-6-26

3^#

發表於 2014-1-8 09:09 | 只看該作者

回復 2# stillfish00

謝謝大大的解答
另外想請問Hyperlinks(1) 的1代表什麼意思呢?
感激不盡(^^)

Jared

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

4^#

發表於 2014-1-8 09:21 | 只看該作者

回復 3# Jared
Range.Hyperlinks 範圍(可能為多儲存格)中所有超連結的集合
1表該集合中的第一個。

中學生 Rank: 2

帖子: 103
主題: 30
精華: 0
積分: 139
點名: 0
作業系統: wondows XP
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: 彰化
註冊時間: 2013-2-21
最後登錄: 2015-6-26

5^#

發表於 2014-1-8 16:33 | 只看該作者

回復 4# stillfish00

謝謝大大的解答~:D

Jared

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。

返回列表下一主題上一主題