VBA 특정 셀 포커스 후 이동 시키기

vba 작업을 하다보면 가끔 특정 셀에 표시를 해주고

그 셀로 이동 시켜주어야 할 때가 발생 합니다.

​

이럴 때 사용하는 코드를 공유하고자 합니다.

​

​

코드는 아래 한줄이면 됩니다.

Application.Goto reference:=ms.Range("G10"), Scroll:=True ' 원하는 셀로 이동 후 스크롤

​

간단히 설명 하자면 Range("G10") 위치로 이동시키고 스크롤을 한다 정도로 표현할 수 있는데요.

저같은 경우에는 vba작업을 할 때 무조건 변수로 시트를 지정후 사용하기에

ms.range 라는 표현식을 사용했는데 아래 처럼 간단히 사용도 가능 합니다.

Application.Goto reference:=[G10], Scroll:=True ' 원하는 셀로 이동 후 스크롤

​

​

다음은 전체 코드.

Sub test() Dim ms As Worksheet Set ms = Workbooks(ThisWorkbook.Name).Sheets(ActiveSheet.Name) ​ Application.Goto reference:=[G10], Scroll:=True ' 원하는 셀로 이동 후 스크롤 ms.Range("G10").Interior.Color = RGB(255, 0, 0) ' 표시하기 위해 빨간색 표시 ​ End Sub

​

​

#vba

#vbafocus

#vba셀이동

#vba셀포커스

#vbamovetocell

​