エクセルでの選択したセルの移動

質問

エクセルでの質問です。
シート1のA1に1を記入、B1からAF1まで1から31までの数字を記入してあります。

A1でウインドウ枠の固定をして右にスクロールしてもA1はいつでも表示させてあります。
そこでA1の数字を1から31の任意の数字を入れたらA1のすぐ右に表示されるようにするには
どんなマクロを入れたら出来るんでしょうか？
要は、A1に3を記入したらA1のすぐ右にD3が表示されるようにしたいのです。
ご教授いただければと思います。
よろしくお願いいたします。

回答No.2

tom04

こんばんは！
すでに解決しているみたいなので余計なお世話かもしれませんが・・・

Private Sub Worksheet_Change(ByVal Target As Range)
If Target <> Range("A1") Then Exit Sub
Columns.Hidden = False
Dim i As Long
For i = 2 To Cells(1, 1).Value
Columns(i).Hidden = True
Next i
End Sub

こんな感じでもよいのでしょうか？m(__)m

回答No.1

kmetu

シート１のマクロに

Private Sub Worksheet_Change(ByVal Target As Range)

Dim c As Range

If Target.Address = "$A$1" Then
ActiveWindow.SmallScroll ToLeft:=31
Set c = Range("A1:AF1").Find(Range("A1").Value, LookIn:=xlValues)
ActiveWindow.SmallScroll ToRight:=c.Column - 2
End If

End Sub

としてください。

お礼

出来ました。
素早い回答、ありがとうございます。