Excelでブックを開いたときのアクティブセル

質問

こんにちは。

単純にデータを追加していくためだけのブックを開いたときに
新規追加する行(最終のデータ列の次の行)のＡ列をアクティブにして開くようにするには
どのように設定すれば良いのでしょうか。

簡単な質問ですみませんが、よろしくお願いします。

回答No.2

imogasi · ベストアンサー

Auto_open（） か　workbook_Open()イベントに＃１のご回答のマクロを書けば、出きることは出来る。
http://www.relief.jp/itnote/archives/001736.php
http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub04_130_04.html
Auto_Open()
http://www.relief.jp/itnote/archives/001502.php
ただ操作でも素ウ数ステップで簡単に出来る面もあり、そこまでやるべきかどうか。
ーー
ほかに
Sub test01()
Range("A1").CurrentRegion.End(xlDown).Offset(1, 0).Select
End Sub
でもよいようだ。これをworkbook_Open()とEnd Subに挟む。
A1はその表で確実にデータの始まるセルに変えること。

回答No.3

diashun

diashunといいます。
昔作ったマクロですが、応用できると思いますので、投稿させていただきます。マクロはご理解いただける前提ですが・・・。
ご自由に改造して下さい。
'*************************************************************************
'機 能 ：ブックを開いた時に、指定のシートの指定列の最初の空白セルを
' Activeにする。
'前提条件 ：(1)検索文字列を検索する行番号を指定する。
' (2)指定検索列の検索文字列を設定する。
'
'作成日 ：2005/7/27
'Rev. ：1.0.0
'
'*************************************************************************

Private Const strFind As String = "月 日" '指定検索列の検索文字列
Private Const lFindRow As Long = 3 '指定検索行番号
Private Const iShIndex As Long = 1 'アクティブシートのIndex番号

Option Explicit

Public Sub InitialCellActivate()
Dim sh, lRowNum As Long, lColumnNum As Long
Set sh = ThisWorkbook.Sheets(iShIndex)

lColumnNum = sh.Rows(lFindRow).Find(strFind).Column
lRowNum = sh.Columns(lColumnNum).Find("").Row
Range(Cells(lRowNum, lColumnNum), Cells(lRowNum, lColumnNum)).Activate

End Sub

'ちなみにこのマクロは独自作成マクロですから著作権は関係ありません。

回答No.1

Cupper

A1セルを指定して、Ctrlキーを押しながら↓キーを押して、もう一度↓キーを押す

これを記録マクロで作成して確認してみましょう
不要なコードを含みますが、必要な動作は確実に行ってくれます