[發問]請問如何在Hyperlinks(1).SubAddress所指定位置之儲存格上填值

abbay262

原先超連結儲存格上上有底色、字體、框線，

請問在Hyperlinks.Delete，移除時，要怎麼避免問這些格式被一併移除

准提部林

With Range("A1")
　　　rr = .Value
　　　.ClearContents
　　　.Value = rr
End With

abbay262

回復 2# 准提部林
謝謝回覆，小弟多次拜讀過您的文章，十分受用，再次致謝！

我的問題是在
Cells(rr, cc).Hyperlinks.delete時，格式會一併移除

後來只刪除
Cells(rr , cc).Hyperlinks(1).SubAddress = ""，來保住原來的格式

GBKEE

回復 3# abbay262
2003 的程式碼,可保存儲存格的格式

1. Cells(rr, cc).Hyperlinks.Delete
   
2. 或 Cells(rr, cc).Hyperlinks(1).Delete

複製代碼

你可自行錄製巨集看看Office 2010 的程式碼

abbay262

回復 4# GBKEE

Hyperlinks(1).Delete中的(1) ，請問是什麼意思

GBKEE

回復 5# abbay262
物件 或 陣列 的Index (索引值:索引標籤編號)

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Hyper As Hyperlinks, H As Hyperlink, I As Integer
   
4.     Set Hyper = ActiveSheet.Hyperlinks
   
5.     For I = 1 To Hyper.Count
   
6.         Set H = Hyper(I)
   
7.         MsgBox H.Address, , "第 " & I & " 個  Hyperlink.Address  "
   
8.     Next
   
9. End Sub

複製代碼

abbay262

假設在sheets("AAA")的A1有超連結位址值為"BBB!G1"，

請問如何在在sheets("AAA")上按一下儲存格A1，便可將其上所指定位置之儲存格上填值(例如，123)

luhpro

假設在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("請輸入資料")

abbay262

回復 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 = ""

准提部林

試試超連結事件：
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
ActiveCell.Value = 123
End Sub