VBA表單輸入會附加連結

Jared

想請問一下大大
如果在TextBox 上面輸入連結網址
存入Excel欄位只是一般字串

要添加什麼程式碼
才會讓自己輸入的欄位一率顯示 "連結路徑" 四個字
卻有連結自己輸入的位置功能呢? ?  (@@)

luhpro

回復 1# Jared
TextBox1 放連結網址
TextBox2 放目的儲存格位址, 例如 :  F12
CommandButton1 啟動轉換作業

1. Private Sub CommandButton1_Click()
   
2.   With Sheets("Sheet1")
   
3.     .Hyperlinks.Add Range(TextBox2.Text), TextBox1
   
4.     Range(TextBox2.Text) = "連結路徑"
   
5.   End With
   
6. End Sub

複製代碼

Jared

回復 2# luhpro


謝謝大大的指教 ^^
我發現如果是在 Dim 這裡設定
TextBox1 = "file:///" & TextBox1

就會有連結路徑的功能
只是不會有指定顯示文字的效果
我再研究看看

Jared

我做了一個簡單的測試
但還是希望能夠指定出現文字
並有連結輸入位置的功能

因為我目前程式是使用判斷有資料就往下新增的方式
所以使用指定表單欄位的寫法就不行了...

希望能有高人協助
感激不盡 ~><

Test.zip (13.14 KB)

測試文件
下載次數: 5

2013-8-29 11:12

下載 (38.06 KB)

2013-8-29 11:13

下載 (16.25 KB)

2013-8-29 11:13

1. Dim Q, Ar
   
2. Private Sub CommandButton1_Click()
   
3. Ar = "file:///" & TextBox1
   
4. 
   
5. If TextBox1 <> "" Then
   
6. 
   
7. Q = 1
   
8.    Do Until Cells(Q, 1) = ""
   
9.        Q = Q + 1
   
10.    Loop
    
11.    
    
12.    With Sheet1
    
13.    .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 1).Value = Ar
    
14.    End With
    
15. 
    
16. Else
    
17. If TextBox1 = "" Then MsgBox "連結網址未填寫，麻煩檢查！"
    
18. End If
    
19. 
    
20. 
    
21. End Sub
    
22. 
    
23. Private Sub CommandButton6_Click()
    
24.     UserForm1.Hide
    
25. End Sub
    
26. 
    
27. Private Sub CommandButton7_Click()
    
28. TextBox1 = ""
    
29. End Sub

複製代碼

stillfish00

回復 4# Jared
2#不是已經寫了嗎?

1.   With Sheet1
   
2.     With .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
   
3.       .Hyperlinks.Add .Cells(1, 1), TextBox1
   
4.       .Value = "連結路徑"
   
5.     End With
   
6.   End With

複製代碼

Jared

回復 5# stillfish00

謝謝大大解答
因為我這個測試表單只有一種資料
原本我的表單上面
有N種要填的TextBox1
連結位置只是被夾在中間

原本程式大概是這樣

1. Dim Ar,a1,a2,a3,a4,a5
   
2. a1 = ComboBox1 '資料A
   
3. a2 = ComboBox2 '資料B
   
4. a3 = ComboBox3 '連結位置
   
5. a4 = ComboBox4 '資料D
   
6. a5 = ComboBox5 '資料E
   
7. 
   
8. Ar = Array(a1, a2, a3, a4, a5)
   
9. If a1 <> "" And a2 <> "" And a3 <> "" And a4 <> "" And a5 <> ""  Then
   
10. Q = 1
    
11.    Do Until Cells(Q, 1) = ""
    
12.        Q = Q + 1
    
13.    Loop
    
14.    With Sheet1
    
15.    .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Resize(, 5).Value = Ar
    
16. End With
    
17. Else
    
18.       If a1 = "" Then MsgBox "資料A未填寫，麻煩檢查！"
    
19.       If a2 = "" Then MsgBox "資料B未填寫，麻煩檢查！"
    
20.       If a3 = "" Then MsgBox  "資料連結未填寫，麻煩檢查！"
    
21.       If a4 = "" Then MsgBox  "資料D未填寫，麻煩檢查！"
    
22.       If a5 = "" Then MsgBox "資料E未填寫，麻煩檢查！"

複製代碼

如果說大大解答的程式要放在裡面
那要怎麼修改才能在第三筆資料轉為連結位置
而其他筆資料再個別寫上呢?
頭痛中><

stillfish00

回復 6# Jared

1.   With Sheet1
   
2.     With .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
   
3.       .Resize(, 5).Value = Ar
   
4.       .Hyperlinks.Add .Offset(, 2), ComboBox3
   
5.       .Offset(, 2).Value = "連結路徑"
   
6.     End With
   
7.   End With

複製代碼

Jared

回復 7# stillfish00


謝謝大大幫忙
程式已經可以執行
後來發現提供的程式裡頭有點錯誤
應該是 TextBox1 而不是 ComboBox1
最後也忘了加上End  If
在此做個修正

大大提供的解答
是照原先方式先將資料填上去
再把要附加連結的欄位資料再另外覆加上去嗎?
不曉得還可以這樣使用
再次感謝大大的解答 (^^ )