行の移動

質問

ボタンを使って行の移動をさせるマクロを組みたいのですが、うまく動いてくれません。指定した行をエクセルシートの最上段に表示させる書式を教えてください。宜しくお願いします。

回答No.3

imogasi · ベストアンサー

＃２です。
Sub test01()
n = InputBox("第ｎ行目にスクロール")
ActiveWindow.ScrollRow = Val(n)
End Sub
を試してください。

お礼

度々の回答、ありがとうございますm(__)m
”できました！”移動した時には感激でした。どうもありがとうございました。

回答No.2

imogasi

これそのものか、または近い機能を下記で実現できます。
たった１行なので、試して見てください。
今問題にしているシートのSelectionChangeイベントを出し
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWindow.ScrollRow = ActiveCell.Row
End Sub
とします。
クリックしたセルの行が１番上行に表示されます。
隠れている時は、スクロールして、そのセルを出して、クリックしてください。
コマンドボタンは使いません。

お礼

ありがとうございます！
一番上の行（1行目）を表示したいのではなく、指定した行が画面に表示される一番上の行にしたいのです。私の質問の仕方が悪かったようです。申し訳ありません。
教えて頂いたものは、今後、使わせて頂きます。

回答No.1

maruru01

こんにちは。maruru01です。

こんな感じかな。

Sub macro()

　　Dim moveRow As Long

　　moveRow = 50
　　With ActiveWindow
　　　　.SmallScroll Down:=Range("A1").Value, Up:=.ScrollRow
　　　　Cells(.ScrollRow, 1).Select
　　End With

End Sub

なお、移動するだけなら、

Cells(.ScrollRow, 1).Select

の行は不要です。
（これは、その行のA列のセルを選択するコードです。）

お礼

ありがとうございます。
同じように記述してみたのですが、うまく動いてくれませんでした。バージョンの違いでしょうか？例えば、「このボタンを押すと１０行目が画面の一番上の行として表示される」ようなボタンを作りたかったのですが・・・・。無理なのでしょうか？
もう少し自分でも調べてみます。ありがとうございました。