麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問]請問如何在Hyperlinks(1).SubAddress所指定位置之儲存格上填值 [打印本頁]

作者: abbay262 時間: 2016-4-28 20:12 標題: [發問]請在Hyperlinks.Delete，移除儲存格的超連結時，要怎麼避免原先的格式一併移除

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

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

作者: 准提部林 時間: 2016-4-28 20:30

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

作者: abbay262 時間: 2016-4-28 21:21

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

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

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

作者: GBKEE 時間: 2016-4-29 05:53

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

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

複製代碼

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

作者: abbay262 時間: 2016-4-29 09:04

回復 4# GBKEE

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

作者: GBKEE 時間: 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

複製代碼

作者: abbay262 時間: 2016-4-29 16:56 標題: [發問]請問如何在Hyperlinks(1).SubAddress所指定位置之儲存格上填值

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

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

作者: luhpro 時間: 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("請輸入資料")

作者: abbay262 時間: 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 = ""

作者: 准提部林 時間: 2016-5-2 13:30

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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)