ユーザーフォームからPDFファイルのハイパーリ

Writer: admin Type: ゃべり、雑談 Date: 2018-12-14 00:00
ユーザーフォームからPDFファイルのハイパーリンクを開く機能を実装したいのですが、参照セル先(アクティブセルのAB列)にハイパーリンク関数を使用しています。ハイパーリンク関数の1つ目のパラメータを指定したいのですが、どのようにすればよいでしょうか。Private Sub CommandButton6_Click() With Cells(ActiveCell.Row, 28) If .Hyperlinks.Count > 0 Then .Hyperlinks.item(1).Follow ElseIf .HasFormula And InStr(.Formula, "HYPERLINK") > 0 Then ActiveWorkbook.FollowHyperlink Address:=.txt Else MsgBox "ハイパーリンクは設定されていません。" End IfEnd WithEnd Sub共感した0###↓のような変更になりますかね?Private Sub CommandButton6_Click()・・・・ElseIf .HasFormula And InStr(.Formula, "HYPERLINK") > 0 ThenActiveWorkbook.FollowHyperlink Address:=.txt↓Private Sub CommandButton6_Click()Dim xTxt As String・・・・ElseIf .HasFormula And InStr(.Formula, "HYPERLINK") > 0 ThenIf .Formula Like "*,*" Then xTxt = Replace(Split(ActiveCell.Formula, ",")(0), "=HYPERLINK(", "") ActiveWorkbook.FollowHyperlink Address:=Replace(xTxt, """", "") ElseActiveWorkbook.FollowHyperlink Address:=.Text End Ifナイス0
###ご回答有り難うございます。一つ情報を出し忘れていた事により以下の事象が起こりました。ハイパーリンクのアドレスは2つのセルを参照しA1&B1のようにパスを構成しています。AB1にはCドラのドキュメントパスを記載しています。=HYPERLINK($AB$1&J416&".pdf",J416&".pdf")最終的にActiveWorkbook.FollowHyperlink Address:=Replace(xTxt, """", "")の、アドレスの値が「$AB$1&J416&".pdf"」この様になっていて、参照できていないようです。
###求めている回答を的確にして頂き、ありがとうございました。

 

TAG