[[20190208115542]]　『VBA　ダブルクリックで別シートへ移動』（DOM）　ページの最後に飛ぶ

『VBA　ダブルクリックで別シートへ移動』（DOM）

いつもお世話になっております。

VBAでA列の適当なセルをダブルクリックする事でSheet2のA1へ移動するように設定したのですが、正常に動くときは動くのですが、まれに元シートのA列の値が入っている表の最後尾に移動する事があり、挙動が安定しません。
記載している内容に誤りがあればご指摘頂ければ幸いです。
よろしくお願い致します。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Application.Goto Worksheets("Sheet2").Range("A1")
Cancel = True

End Sub

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 セルの境目をダブルクリックすると、Ctrl+↓と同じ挙動になります。
https://oxynotes.com/?p=5931

 なので、セル幅広げるしか・・・
（稲葉） 2019/02/08(金) 12:19

稲葉様、ページのご紹介並びにご教授ありがとうございます。
セル幅を広げ、フィルハンドルを無効にしたところ、十数回繰り返しても正常に動作しました。
ありがとうございました。

（DOM） 2019/02/08(金) 12:40

コメント返信：