나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내
작성자:  

 황기성 (latinum)

추천:  2
파일:     조회:  1583
제목:   [RE]콤보파일 링크문제..
     
  안녕하세요..

제가 첨부 파일과 같이 콤보 박스에 리스트를 넣어
웹사이트와 연결을 시켰습니다.
그런데 처음 클릭을 했을 때에는 잘 뜹니다.
하지만 만약..다시 파일을 열었을 때 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

를 이용하세요

그럼...행운이 있으시길...!
 
[불량 게시물 신고]  
산책정말 감사합니다..!!
그렇게 하니까 콤보 박스에 아무것도 없게 되네요..^^..
그런데 제가 처음 만들때는 .initailize를 사용해봤거든요..
.value=""이 되도록이요..
혹시 이 글을 보신다면 왜 이 명령어가 작동되지 않았는지도 가르쳐 주세요~
08-27 (16:51)
삭제 ■신고
        
  

작성일 : 2003-08-27(14:43)
최종수정일 : 2003-08-27(14:43)
 


 ◎ 관련글

  제 목   작성자   날짜
콤보파일 링크문제.. 산책 2003-08-27
[RE]콤보파일 링크문제.. 황기성 2003-08-27