아래의 예제는 선택한 셀의 주소 값을 알아내는 예제입니다.
엑셀을 실행한 후, 셀의 아무 곳이나 선택하고, 매크로를 실행하면
선택한 셀의 주소를 메세지 박스로 보여주고,
a1 주소로 이동했다가 다시 원래 셀로 돌아가는 매크로입니다..
Sub CellMove_TEST()
Dim imaVal As String ' 현재선택된셀의 Address 값
imaVal = ActiveCell.Address ' 현재 값을 변수로 받는다.
MsgBox (imaVal) ' 값 확인
Application.ActiveSheet.Range("a1").Select ' a1 셀로 이동
Application.ActiveSheet.Range(imaVal).Select ' 처음 입력 받은 셀로 다시 이동
End Sub
'엑셀VBA' 카테고리의 다른 글
vlookup함수 사용 시 중복값 나타내기 (0) | 2011.07.08 |
---|---|
매크로 셀이동 (0) | 2011.06.14 |
한 셀내의 문자 정렬 및 중복 제거하기 (0) | 2011.02.13 |
특정 일자와 가장 가까운 날짜값 찾기 (1) | 2011.02.12 |
범위에 중복값제외하고 모두표시 (1) | 2011.02.12 |