Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10全般 : Excel 2016)
VBAの複数使用
投稿日時: 22/06/17 11:02:50
投稿者: ふなこ

VBAを複数使用する方法がわかりません。
 
@
Option Explicit
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.Goto Selection, True
End Sub
 
 
A
Option Explicit
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Target.Range.Style = "Followed Hyperlink"
End Sub
 
@Aを一緒に使用したいのです。
 
シートモジュールの@の下にAを貼り付けたらエラーになりました。
 
【内容】
@ハイパーリンクで指定したセルが移動した時に左上の表示になること
A「セルを結合して中央揃え」にしたハイパーリンクが設定されているセルを
 クリックした時に文字の色を変える
 
よろしくお願いします。

回答
投稿日時: 22/06/17 11:23:43
投稿者: taitani

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Application.Goto Selection, True
    Target.Range.Style = "Followed Hyperlink"
End Sub

 
これでいけないですか?

回答
投稿日時: 22/06/17 11:27:48
投稿者: taitani

ちなみに、シート内で同じイベント プロシージャは複数設定できないです。

投稿日時: 22/06/17 11:40:22
投稿者: ふなこ

できました!!
 
ありがとうございました(^^)/