| |
こんにちは
あまりスッキリは行かないでしょうね、多分。
testAのシートタブを右クリックして「コードの表示」
Private Sub Worksheet_Activate()
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks("Book2.xls")
On Error GoTo 0
If wb Is Nothing Then Exit Sub
With Application
.Goto wb.Worksheets("test1").Range("A1")
.EnableEvents = False
.Goto Me.Range("A1")
.EnableEvents = True
End With
Set wb = Nothing
End Sub
testBのシートタブを右クリックして「コードの表示」
Private Sub Worksheet_Activate()
Dim wb As Workbook
On Error Resume Next
Set wb = Workbooks("Book2.xls")
On Error GoTo 0
If wb Is Nothing Then Exit Sub
With Application
.Goto wb.Worksheets("test2").Range("A1")
.EnableEvents = False
.Goto Me.Range("A1")
.EnableEvents = True
End With
Set wb = Nothing
End Sub
をそれぞれコピペみたいな事でしょうか？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
