[發問]請問如何在Hyperlinks(1).SubAddress所指定位置之儲存格上填值
- 帖子
- 34
- 主題
- 10
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- windows 10
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 註冊時間
- 2016-4-1
- 最後登錄
- 2021-5-5
|
[發問]請問如何在Hyperlinks(1).SubAddress所指定位置之儲存格上填值
假設在sheets("AAA")的A1有超連結位址值為"BBB!G1"，
請問如何在在sheets("AAA")上按一下儲存格A1，便可將其上所指定位置之儲存格上填值(例如，123) |
|
|
|
|
|
|
|
- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-23
|
10#
發表於 2016-5-2 13:30
| 只看該作者
試試超連結事件：
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveCell.Value = 123
End Sub
|
|
|
|
|
|
|
|
- 帖子
- 34
- 主題
- 10
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- windows 10
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 註冊時間
- 2016-4-1
- 最後登錄
- 2021-5-5
|
9#
發表於 2016-4-30 16:57
| 只看該作者
回復 8# luhpro
謝謝回覆，我的方式如下，請指教
Dim gameHyper, gameSheets, gameCells As String
x = InStr(1, gameHyper, "!", 1)
If x > 0 Then
gameSheets = Left(gameHyper, x - 1)
gameCells = Mid(gameHyper, x + 1, Len(gameHyper) - x)
Sheets(gameSheets).Range(gameCells).Value = ""
End If
最後一句是我填值的方式
Sheets(gameSheets).Range(gameCells).Value = "" |
|
|
|
|
|
|
|
- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 16
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2024-11-14
|
8#
發表於 2016-4-30 05:30
| 只看該作者
假設在sheets("AAA")的A1有超連結位址值為"BBB!G1"，
請問如何在在sheets("AAA")上按一下儲存格A1，便可將其上所指定位置之儲存格上填值(例如，123)
abbay262 發表於 2016-4-29 16:56 
不懂.
你在sheets("AAA")上按一下儲存格A1,
它不是會自動跳到 sheets("BBB")的儲存格G1 讓你輸入資料嗎?
若是你想要使用者另外輸入資料放進去的話:
Range([AAA!A1].Hyperlinks.Item(1).SubAddress) = InputBox("請輸入資料") |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
7#
發表於 2016-4-29 10:16
| 只看該作者
本帖最後由 GBKEE 於 2016-4-29 10:18 編輯
回復 5# abbay262
物件 或 陣列 的Index (索引值:索引標籤編號)- Option Explicit
- Sub Ex()
- Dim Hyper As Hyperlinks, H As Hyperlink, I As Integer
- Set Hyper = ActiveSheet.Hyperlinks
- For I = 1 To Hyper.Count
- Set H = Hyper(I)
- MsgBox H.Address, , "第 " & I & " 個 Hyperlink.Address "
- Next
- End Sub
|
|
|
|
|
|
|
|
- 帖子
- 34
- 主題
- 10
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- windows 10
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 註冊時間
- 2016-4-1
- 最後登錄
- 2021-5-5
|
6#
發表於 2016-4-29 09:04
| 只看該作者
回復 4# GBKEE
Hyperlinks(1).Delete中的(1) ，請問是什麼意思 |
|
|
|
|
|
|
|
- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
|
5#
發表於 2016-4-29 05:53
| 只看該作者
回復 3# abbay262
2003 的程式碼,可保存儲存格的格式- Cells(rr, cc).Hyperlinks.Delete
- 或 Cells(rr, cc).Hyperlinks(1).Delete
|
|
|
|
|
|
|
|
- 帖子
- 34
- 主題
- 10
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- windows 10
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 註冊時間
- 2016-4-1
- 最後登錄
- 2021-5-5
|
4#
發表於 2016-4-28 21:21
| 只看該作者
回復 2# 准提部林
謝謝回覆，小弟多次拜讀過您的文章，十分受用，再次致謝！
我的問題是在
Cells(rr, cc).Hyperlinks.delete時，格式會一併移除
後來只刪除
Cells(rr , cc).Hyperlinks(1).SubAddress = ""，來保住原來的格式 |
|
|
|
|
|
|
|
- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-23
|
3#
發表於 2016-4-28 20:30
| 只看該作者
With Range("A1")
rr = .Value
.ClearContents
.Value = rr
End With |
|
|
|
|
|
|
|
- 帖子
- 34
- 主題
- 10
- 精華
- 0
- 積分
- 67
- 點名
- 0
- 作業系統
- windows 10
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 註冊時間
- 2016-4-1
- 最後登錄
- 2021-5-5
|
2#
發表於 2016-4-28 20:12
| 只看該作者
[發問]請在Hyperlinks.Delete，移除儲存格的超連結時，要怎麼避免原先的格式一併移除
原先超連結儲存格上上有底色、字體、框線，
請問在Hyperlinks.Delete，移除時，要怎麼避免問這些格式被一併移除 |
|
|
|
|
|
|
|
