Excel vba でのoffsetについての質問です。

質問

Excel vba でのoffsetについての質問です。
セルをoffsetを使用して移動させています。
しかし、ファイルを開けた最初だけoffsetしている所とは違う所へ行ってしまいます。

試したのは
Private Sub Worksheet_Activate()
Range("C10").Select
End Sub
で起点を設定し
Worksheet_Changeイベントで
ActiveCell.Offset(1, 0).Select
にオフセットしたいのですが、ファイルオープン時はうまく動きません。
別のセルをクリックした後だと、うまく動きだします。

ちなみにファイルオープンしてから最初に
MsgBox ActiveCell.Address(0, 0, xlA1)
を表示させるとC11になっています。
もう何がなんだか解らなくなっています。

原因や対策など、アドバイスよろしくお願い致しますm(_ _)m

回答No.2

watabe007 · ベストアンサー

>ちなみにファイルオープンしてから最初に
>MsgBox ActiveCell.Address(0, 0, xlA1)
>を表示させるとC11になっています。
どこにMsgBox ActiveCell.Address(0, 0, xlA1)　を書かれたのですか？
Workbook_Openイベント
Worksheet_Activateイベント
Worksheet_Changeイベント

Worksheet_Changeならば
Private Sub Worksheet_Change(ByVal Target As Range)
MsgBox "イベントが発生したセルは：" & Target.Address(0, 0) & vbCrLf & _
"アクティブセルは：" & ActiveCell.Address(0, 0)
End Sub
でTargetとActiveCellの違いが有りますよ

回答No.3

watabe007

>ファイルオープン時はうまく動きません。
ファイルをオープンしただけではWorksheet_Activateイベントは発生しません
一旦他のシートから該当のシートを選択してイベントを発生するか
Workbook_OpenイベントでWorksheet_Activateを発生するコードを書くか
(Activateイベントが発生するシート名をSheet1としています。)
Private Sub Workbook_Open()
　　With Worksheets("Sheet1")
　　　　.Activate
　　　　Application.Run .CodeName & ".Worksheet_Activate"
　　End With
End Sub

回答No.1

hige_082

＞ファイルを開けた最初だけoffsetしている所とは違う所へ行ってしまいます。
多分勘違いをされていると思います
ファイルオープン時は
Worksheet_Activateイベントも
Worksheet_Changeイベントも
発生しません

ファイルオープン時に処理を行いたいのであれば
ThisWorkbookモジュールでWorkbook_Openイベントを使用する方法があります

'例えば
Private Sub Workbook_Open()
If ActiveSheet.Name = "Sheet1" Then Range("C10").Select
End Sub

ファイルを開いた時
Sheet1が表示されていたら
セルC10を選択します

以上参考まで