マクロ 入力位置の表示 oguno

初心者です宜しくお願いいたします。

●エクセル2002を使用しています。
●カーソルがどこに置かれていても、未入力行を画面の最上段にスクロールさせ、その行のB列にカーソルを持ってきたい。
------------

「例」
●状態
・6行目から5000行までに入力する表を作成してあります。
・今、6行目から150行までデータが入力済です。
・151行以下は未入力です。

●行いたい事
この状態で、下記の事を行いたいのでご指導お願い致します。
・カーソルがどこに置かれていても、151行目を画面の最上段にスクロールさせたい。
・B151にカーソルを移動したい。

No.2 ベストアンサー 回答者： ham_kamo 回答日時： 2007/03/11 17:40

こんにちは。

また回答させていただきます。

単にＢ列の最終行に移動したいのであれば、Ctrlを押したままた↓キーを押せばいいのすが、マクロでやるのであれば、

Sub GotoEnd()
　Application.Goto Cells(Rows.Count, 2).End(xlUp) + 1
End Sub

でいけると思います。

この回答へのお礼

色々な質問しましたにもかかわらず、毎回懇切丁寧なご指導、ありがとうございました。
思い通りの状態に出来ました。

お礼日時：2007/03/11 23:54

No.1 回答者： Kasouken 回答日時： 2007/03/11 17:10

こんなことですか？

Gotoをヘルプで見てください。

Sub Test()
Dim Lrow As Long
With Worksheets("Sheet1")
　　　Lrow = .Range("B" & CStr(Rows.Count)).End(xlUp).Row
　　　Application.Goto Reference:=.Range("A" & CStr(Lrow)), _
　　　　　　　　　　　　　　　　　　　　　　　　　scroll:=True
End With
ActiveCell.Offset(1, 1).Select
End Sub

この回答へのお礼

ありがとうございました。
思い通りの状態になりました。

お礼日時：2007/03/11 23:51