선택한 셀의 행,열 위치 저장하기2

https://hingle.tistory.com/37

선택한 셀의 행,열 위치 저장하기1

 

위에 글에 이어서 나올 내용은 엑셀에 내장 함수입니다.

 

Set 변수 =Application.InputBox( )

변수주소 = 변수.Address

Range(변수주소).Select

변수주소의행 = Selection.Row
변수주소의열 = Selection.Column 

 

다른 방식도 있을 수 있습니다. 저는 찾다보니 이 방식이면 동작할것 같아 씁니다.

 

우선

Application.InputBox( )에서 제일 중요한건 Type이라고 봅니다.

 

여기서는 Type : 1은  숫자고  8은 엑셀영역인데 

왼쪽마우스로 드래그하여 범위 지정 가능해

한셀만 지정

셀영역을 지정

위에 그림처럼 2가지 지정이 가능하다.

여기서는 한셀만 지정해서 사용했다.

 

$D$8이런식인데 내가원하는건 Cells(4,8)이다. 

$D$8 -> Cells(4,8) 어떻게 변형할까 하다. 

 

변수.Address 로 주소를 저장해

Range(변수주소).Select 이렇게 현재 시트에서 선택해서

 

Selection.Row-Column으로 저장한다.

 

첨에는 ActicveCells.Row하니 이상한곳으로 지정이되어  위에 것으로 결정했다.

 

예시 파일을 올리겠습니다.

 

좀 더 좋은 방법이 있음 공유해주시면 좋겠습니다.

선택한셀행열위치반환예시.xlsm

0.02MB