2014-09-03 3 views
2

스프레드 시트를 VBA에서 텍스트의 마지막 행으로 이동시키는 방법을 누군가에게 알려 줄 수 있습니까?VBA를 사용하여 Excel에서 텍스트의 마지막 행으로 스크롤

현재 나는 다음과 같은 코드를 사용합니다

Range("p65536").End(xlUp).Select 

이 작동을뿐만 아니라 특정 열로 이동합니다. 나는 이것을하고 싶지만 화면에 현재 열을 유지하고 싶습니다. 변경하려는 어떤

ActiveSheet.Cells(ActiveSheet.Rows.Count, Selection.Column).End(xlUp).Select

답변

1

이 코드를 사용해보십시오. 가로로 스크롤하려는 경우 ScrollColumn을 설정합니다.

Dim targetSheet As Worksheet 
Set targetSheet = ActiveSheet ' Refer to your sheet instead of ActiveSheet. 

targetSheet.Activate ' Make sure the worksheet is active to prevent errors. 

With targetSheet.Cells(targetSheet.Rows.Count, Selection.Column).End(xlUp) 
    .Select ' not required to change the focus/view 
    ActiveWindow.ScrollRow = .Row 
End With 
+0

감사합니다 - 시도 (행 수를 가지고있는) 워크 시트를 이동하는 표시되지 않습니다 다음 [ReportingSheet] .Cells (finalRow, Selection.column) .END (xlUp) ALL 기타 사항 서보 -OFF – Michaelb88

0

ScrollRow입니다 :

관련 문제