| |
▼ギン さん：
ハイパーリンクでは、#はブックマークの記号らしく特別な意味があるようです。
それで、直接的回避策は無いのではないかと思います。
そこで、ハイパーリンクの目的がファイルを開くことであるなら、
ハイパーリンクは、シングルクリックですが
ダブルクリックイベントを利用して、下記コードのようにしてはどうですか？
ブックマークや、他の機能を利用するなら、それに合わせてコードを書き換える必要があります。
'以下コード
Private Sub Workbook_SheetBeforeDoubleClick _
(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Call myHyperLink(Target)
End Sub
Public Sub myHyperLink(Target As Range)
Const myMessage As String = "ファイルが開けませんでした"
Dim LinkRange As Range
Dim rg As Range
Dim Fn As String
Set LinkRange = ThisWorkbook.Worksheets("Sheet1").Range("A1")
'リンク設定をしたいセル範囲です。適切に指定してください。
On Error Resume Next
Set rg = Intersect(Target, LinkRange)
If rg Is Nothing Then Exit Sub
Workbooks.Open Filename:=rg.Value
If Err <> 0 Then
MsgBox myMessage
End If
On Error GoTo 0
End Sub
あるいは、ラベルやテキストボックスを貼り付け、クリックイベントで処理をするとか
|
|
G-Luck
- 05/3/8(火) 13:54 -
