|
|
|
|
|
|
안녕하세요..
제가 첨부 파일과 같이 콤보 박스에 리스트를 넣어
웹사이트와 연결을 시켰습니다.
그런데 처음 클릭을 했을 때에는 잘 뜹니다.
하지만 만약..다시 파일을 열었을 때 a라는 주소가 콤보 박스안에 들어 있을 경우
엔터를 친다거나 클릭을 해도 연결이 되지 않습니다.
꼭 다른 주소를 클릭한 후에 다시 처음 있었던 주소를 클릭해 주어야 하더라구요.
왜 이런걸까요? 이 문제를 해결 할 수 있는 방법을 아시는 분은 답좀 부탁드립니다~~
==============[산책님 글에 대한 답변입니다]==============
안녕하세요? 산책 님!
Private Sub ComboBox1_Click()
Dim i As Integer
i = ComboBox1.ListIndex
With ActiveWorkbook
Select Case i
Case 0
.FollowHyperlink Address:="http://www.jbtouch.co.kr", NewWindow:=True
Case 1
.FollowHyperlink Address:="http://www.cleanandclear.co.kr", NewWindow:=True
Case 2
.FollowHyperlink Address:="https://econnect.jnj.com", NewWindow:=True
Case 3
.FollowHyperlink Address:="http://www.mersys.co.kr", NewWindow:=True
End Select
End With
ComboBox1.ListIndex = -1 '여기에 한 줄 더 추가하세요
End Sub
참고로
Click이벤트 대신
ComboBox1_Change
를 이용하세요
그럼...행운이 있으시길...! |
|
[불량 게시물 신고] |
|
|
|
작성일 : 2003-08-27(14:43)
최종수정일 : 2003-08-27(14:43) |
|
|
|
|