Excelで任意セルをWindows上の左上に持ってきたい

質問

Excel2002で任意セルを左上にVBAで持ってきたいのですが
どうすればいいでしょうか?

任意セルが含まれる行/列が入力のそれぞれ行/列タイトルに
なっていて、そういうエリアがシート上にいくつか存在します。

次のエリアに飛ぶのにいちいちスクロールするのが手間なので
VBAでコントロールできないかと思います。

そのセルに飛ぶのは簡単なんですが・・・

回答No.1

merlionXX · ベストアンサー

wakaranai_kunさん、簡単ですよ。
以下をお試し下さい。

Sub test01()
Dim x As String
x = InputBox("セルを指定してください。")
Cells(Rows.Count, Columns.Count).Select
Application.Goto Reference:=Range(x)
End Sub

お礼

なるほどぅ・・・(笑)

ありがとうございます。

たすかりました。≦(._.)≧

回答No.2

KenKen_SP

Sub Sample1()
　　' // こちらはセルが選択される
　　Application.Goto Reference:=Range("C10"), Scroll:=True
End Sub

Sub Sample2()
　　' // こちらはセルが選択されない。スクロールのみ
　　With Range("Z10")
　　　　ActiveWindow.ScrollRow = .Row
　　　　ActiveWindow.ScrollColumn = .Column
　　End With
End Sub

お礼

スクロール方法にも種類があるんですね。

ありがとうございました。