Sheet1のA1に(Sheet2$C1$)、 A2に(Sheet2$C2$)と記述されている場合、セルをダブルクリックすると記述されているセルへ移動できるようにしたいのですが、以下のコードでは 「参照が正しくありません」というエラーが出てしまいます。
どうすればよいでしょうか?
コード
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim cd As Variant Dim cd2 As Variant cd = Worksheets("Sheet1").Range("A1:A2").Value For Each cd2 In cd If Not Intersect(Target, Range("A1:A2")) Is Nothing Then Application.Goto cd2 End If Next cd2 End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/07/08 13:07 編集
2019/07/09 04:14
2019/07/09 04:29
2019/07/09 05:15