我需要我的代碼來自動更改我新創建的超鏈接名稱的字體并更改它的其他字體屬性，因此我需要我的代碼來檢測何時將新超鏈接添加到作業表中。
“Worksheet_Change”和“Worksheet_FollowHyperlink”沒有幫助。
更新：這是我的代碼：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim WB As Workbook
Dim WS As Worksheet
Dim TA As ListObject
Dim TA_DateCol As ListColumn
Set WB = ThisWorkbook
Set WS = WB.Sheets(1)
Set TA = WS.ListObjects(1)
If Not Intersect(Target, TA.Range) Is Nothing Then
'This is the part which I want my code to detect if a new hyperlink
'is added but nothing happens my guess is it's because 'Target' type
'in this event handler is a 'Range' not a 'Hyperlink'
End If
End Sub
任何幫助和建議將不勝感激。到目前為止我的代碼圖片
uj5u.com熱心網友回復：
向范圍添加超鏈接不會觸發 worksheet_change 事件。
因此它無法通過代碼檢測到這一點。
解決方案是根據您的要求更新作業簿的超鏈接樣式。
有很多教程解釋了如何做到這一點，例如https://support.microsoft.com/en-us/office/change-the-font-format-for-hyperlinks-672c2905-ad3e-40be-b281 -811e68386243
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/334641.html
上一篇：如何通過設定dim修復VBA“編譯錯誤：需要物件”錯誤？[復制]
下一篇：如何制作不可見的excel圖表