みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルVBA thisworkbookで

他の方のQ&Aを参照し、以下のことが出来るようになりました。
各シートに記述し、ハイパーリンクをクリックした際、同シート内の参照セルを、画面上の左上に持ってくるというものです。
http://oshiete1.goo.ne.jp/qa631706.html

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim ww_j As Long, ww_k As Long
ww_j = ActiveCell.Row()
ww_k = ActiveCell.Column()
ActiveWindow.ScrollRow = ww_j '行
ActiveWindow.ScrollColumn = ww_k '列
End Sub


ここからですが、シートが複数あるため、できれば同ブック内で使用したいと考えております。
thisworkbookに記載すればよいかと思ったのですが、うまくいきませんでした。
どのようにすれば、1シートにみではなく、1ブック内で使用できるか、お教えくださいますようお願い申し上げます。

投稿日時 - 2009-05-01 11:22:55

QNo.4922804

暇なときに回答ください

質問者が選んだベストアンサー

thisworkbookに記載するなら以下のようにしてみてください。

× Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)

○ Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)



Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Dim ww_j As Long, ww_k As Long
ww_j = ActiveCell.Row()
ww_k = ActiveCell.Column()
ActiveWindow.ScrollRow = ww_j '行
ActiveWindow.ScrollColumn = ww_k '列
End Sub

投稿日時 - 2009-05-01 11:44:32

お礼

ありがとうございました。できました。

Workbook_Sheet の意味
ByVal Sh As Object, の意味も、
正しい答えをお教えいただいたので、すぐに他サイトで確認し、わかりました。

ありがとうございました。

投稿日時 - 2009-05-01 11:56:47

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問