帖子: 34
主題: 10
精華: 0
積分: 67
點名: 0
作業系統: windows 10
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2016-4-1
最後登錄: 2021-5-5

1^# 跳轉到 »

發表於 2016-4-28 20:12 | 只看該作者

[發問]請在Hyperlinks.Delete，移除儲存格的超連結時，要怎麼避免原先的格式一併移除

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

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

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2825
主題: 10
精華: 0
積分: 2881
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-9-15

2^#

發表於 2016-4-28 20:30 | 只看該作者

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

TOP

abbay262

中學生 Rank: 2

帖子: 34
主題: 10
精華: 0
積分: 67
點名: 0
作業系統: windows 10
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2016-4-1
最後登錄: 2021-5-5

3^#

發表於 2016-4-28 21:21 | 只看該作者

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

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

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2016-4-29 05:53 | 只看該作者

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

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

複製代碼

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

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

abbay262

中學生 Rank: 2

帖子: 34
主題: 10
精華: 0
積分: 67
點名: 0
作業系統: windows 10
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2016-4-1
最後登錄: 2021-5-5

5^#

發表於 2016-4-29 09:04 | 只看該作者

回復 4# GBKEE

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

abbay262

中學生 Rank: 2

帖子: 34
主題: 10
精華: 0
積分: 67
點名: 0
作業系統: windows 10
軟體版本: office 2010
閱讀權限: 20
註冊時間: 2016-4-1
最後登錄: 2021-5-5

7^# 倒序看帖

打印

字體大小: tT

發表於 2016-4-29 16:56 | 只看該作者

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

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

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

luhpro

高中生 Rank: 3 Rank: 3

帖子: 833
主題: 6
精華: 0
積分: 913
點名: 8
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-9-18

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

TOP

abbay262

中學生 Rank: 2

帖子: 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 = ""

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2825
主題: 10
精華: 0
積分: 2881
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-9-15

10^#

發表於 2016-5-2 13:30 | 只看該作者

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

TOP