行の指定文字位置へ画面をスクロール

質問

下記のVBAコードでボタンクリックにより列そのまま行10を先頭画面へスクロールできたのですが作業上範囲内に行挿入項目(表ー2)が発生してきました。
このコードでは２行挿入したため行10の"梅田"が先頭と変わってしまいます。
表ー3のように都度行挿入後も"江藤"を先頭行にもってきたいため、
コードCells(10, ActiveWindow.ScrollColumn)の行部分を指定文字"江藤"を代入してコードを構成したいのですが？
どなたか解る方よろしくお願いします。

Sub 移動1()
Application.Goto reference:=Worksheets("sheet1").Cells(10, ActiveWindow.ScrollColumn), Scroll:=True
End Sub

回答No.3

watabe007 · ベストアンサー

>列を変えずに行のみを"江藤"にスクロールしたいのですが？
どちらでも

Sub 移動3()
Dim myRng As Range, strName As String

strName = "江藤"
With Worksheets("sheet1")
Set myRng = .Columns(1).Find(What:=strName, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchByte:=False)
If myRng Is Nothing Then
MsgBox strName & "は、見つかりません", 16
Exit Sub
End If
Application.Goto reference:=.Cells(myRng.Row, ActiveWindow.ScrollColumn), Scroll:=True
End With
End Sub

Sub 移動4()
Dim myRng As Range, strName As String

strName = "江藤"
Set myRng = Columns(1).Find(What:=strName, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchByte:=False)
If myRng Is Nothing Then
MsgBox strName & "は、見つかりません", 16
Exit Sub
End If
ActiveWindow.ScrollRow = myRng.Row
End Sub

お礼

有難うございます。期待通りにスクロールでき作業する上で非常に助かりました。感謝します。

回答No.2

watabe007

こちらも参考に
Sub 移動3()
　　Dim myRng As Range, strName As String

　　strName = "江藤"
　　Set myRng = Worksheets("sheet1").Columns(1).Find(What:=strName, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchByte:=False)
　　If myRng Is Nothing Then
　　　　MsgBox strName & "は、見つかりません", 16
　　　　Exit Sub
　　End If
　　Application.Goto reference:=myRng, Scroll:=True
End Sub

補足

有難うございます。説明不足で申し訳ありません。
現在ウインドウ枠を固定しており移動３クリックで列が全表示されます。列を変えずに行のみを"江藤"にスクロールしたいのですが？
宜しくお願いします。

回答No.1

watabe007

>指定文字"江藤"を代入してコード・・・
では"江藤"を検索すれば良いかと

Sub 移動2()
Dim myRng As Range,strName

With Worksheets("sheet1")
Set myRng = .Columns(1).Find(What:="江藤", LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchByte:=False)
Application.Goto reference:=myRng, Scroll:=True
End With
End Sub