엑셀로 업체자료를 관리하고 있는데요.. 새로운업체가 추가되면 셀에 주소를 입력하고
우편번호를 찾을려면 바탕화면에 있는 zipfinder를 실행시켜서 확인을 해야 합니다.
저는 매크로 기능을 사용해서 '우편번호검색'단추만 누르면 이 검색창이 뜨게 만들고
싶은데요.. 어떻게 하면 될까요... 바탕화면에 있는 파일을 실행시키는 것이아닌 현재 열려있는 엑셀파일에서 해결했으면 하거든요... 참고로 제가 쓰고 있는 엑셀파일 내용은 지로와 계산서를 출력하는 내용입니다. 그래서 따로 주소를 붙여 넣고 하는 방법말고 그냥 단추만 누르면 주소검색창이 뜨게만 하면 되거든요.. 주소자동입력되고 할필요도 없습니다.엑셀 고수님들 부탁해요...
답변자님,
정보를 공유해 주세요.
아래의 VB는 엑셀 마우스 오른쪽버튼 맨 위에 "우편번호 찾기"버튼을 추가하고,
ZipFinder프로그램을 실행시킴니다....
VBE를 실행시키고(단축키 Alt + F11) 모듈을 추가시킨 다음
모듈안에
아래의 코드를 복사해서 넣으세요...
'파일오픈시 자동으로 오른쪽 마우스에 "우편번호 찾기"항목 추가
Sub Auto_Open()
On Error Resume Next
Dim myBar As CommandBar
Dim myButton1 As CommandBarControl
Application.CommandBars("Cell").Reset
Set myBar = Application.CommandBars("Cell")
Set myButton1 = myBar.Controls.Add(Type:=msoControlButton, Before:=1)
With myButton1
.Caption = "우편번호찾기"
.OnAction = "zipFinder"
.Style = msoButtonIconAndCaption
.FaceId = 140
End With
End Sub
'우편번호찾기 프로그램 실행
Sub zipFinder()
Shell "C:\Program Files\ZipFinder Enterprise\ZipFinder\zipfinder.exe", vbNormalFocus
End Sub
※ 프로그램이 실행이 안된다면, 바탕화면의 우편번호검색기의 속성을 보시면,
파일의 경로가 나옵니다... 해당 프로그램의 위치로 바꾸어 주시면 됩니다...
그리고 아래의 내용은 ThisWorkBook에 추가하세요..
'파일이 닫힐때 오른쪽마우스버튼 초기화
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Cell").Reset
End Sub
잘 되시길~~~
2006.04.20.
-
채택
질문자가 채택한 답변입니다.
UP이 많은 답변일수록 사용자들에게 더 많이 노출됩니다.
우편번호 검색기능을 엑셀에 포함시키기보다는, 검색할 수 있는 사이트 링크를
하나 달아주는게 더 효율적일듯 합니다.
네이버 초기화면의 [전문자료]에 들어가셔서 [실무] 나 [엑셀]로 검색하시면 유용한 엑셀강좌들이 있으니 참고하시면 좋을것 같습니다.
2006.04.20.
UP이 많은 답변일수록 사용자들에게 더 많이 노출됩니다.
