[엑셀VBA] 엔터 입력으로 하이퍼링크 삭제하고 다음셀(우측)로 이동하기

예제 : 아래

============================================================================================

'매크로 이름을 Auto_Open으로 작성하면 문서가 열릴 때 Auto_Open에 작성된 매크로가 자동으로 실행됩니다.

Sub Auto_Open()

Application.OnKey "~", "Hyperlinks_Delete"

'Application 개체의 Onkey 메소드를 사용해 엔터키(" ~") 에 "

Hyperlinks_Delete"라는 매크로가 실행되도록 연결합니다.

End Sub

'매크로 이름을 Auto_Close로 작성하면 문서가 닫힐 때 Auto_Close에 작성된 매크로가 자동으로 실행됩니다.

Sub Auto_Close()

Application.OnKey "~"

'Application.Onkey 메소드에 할당된 키보드 문자에 매크로를 지정하지 않으면 원래의 엑셀에서 지정된 기능으로 돌아갑니다.

End Sub

Sub Hyperlinks_Delete()

ActiveCell.Offset(0, 1).Select

' 다음셀로 이동 (우측으로 한칸) 한다.

Cells.Hyperlinks.Delete

' 하이퍼 링크를 제거한다.

End Sub

======================================================================================

예제 끝

Sub Hyperlinks_Delete() 에서 셀이동 명령부터 주지 않으면 이동 방향이 흐트려짐