|
|
|
| |
|
|
| |
*Application.EnableEvents 사용법 좀 자세히 알수 없을까요?
제가 구입한 책으로 첨부한 것과 같이 만들어 봤는데....
Application.EnableEvents =false값을 줘도 콤보박스 이벤트가 계속 발생하는군요.
제 의도는 false값을 주고 콤보박스 내용을 지우려고 하는데요...
이거 왜 안되는지 원....
도움 부탁드립니다.
==============[아저씨님 글에 대한 답변입니다]==============
안녕하세요.
다음의 코드를 바주세요.
Private Sub CB1_Click()
t = 0
If Application.EnableEvents = True Then
Application.EnableEvents = False
Sheet1.CB1.Caption = "Application.EnableEvents = False"
ComboBox1.Visible = False '☜ 이 부분을 추가
Else
Application.EnableEvents = True
Sheet1.CB1.Caption = "Application.EnableEvents = True"
ComboBox1.Visible = True '☜ 이 부분을 추가
End If
End Sub
도움이 되시길...
==============[졸따구님 글에 대한 답변입니다]==============
일단은 답변에 감사드립니다.... 제가 질문을 애매하게 한 모양입니다.
님의 답변은 콤보박스 상자를 사라지게 하는 구문이군요.
제가 원하는건 콤보박스 상자는 그냥 있고, 그 값을 공백으로 만들려고 하는 건데요....
다시 한번 답을 주실수 있을까요?
==============[아저씨님 글에 대한 답변입니다]==============
안녕하세요?
Application.EnableEvents 구문은 "코드상에서" 이벤트를 유발하는 구문이 있을경우 그경우만은 이벤트를 방지하는 구문으로 알고 있습니다.
따라서 아래처럼 exit sub 구문을 사용해야되는 상황인거 같습니다.
Option Explicit
Dim t As Integer
Dim my_check As Boolean
Private Sub CB1_Click()
t = 0
If Sheet1.CB1.Caption = "Application.EnableEvents = True" Then
my_check = False
Sheet1.CB1.Caption = "Application.EnableEvents = False"
Else
my_check = True
Sheet1.CB1.Caption = "Application.EnableEvents = True"
End If
End Sub
Private Sub ComboBox1_Change()
If Not my_check Then Exit Sub
t = t + 1
Range("B7") = "콤보박스 이벤트가 " & t & "회 발생하였습니다."
End Sub |
|
|
[불량 게시물 신고] |
|
|
|
|
작성일 : 2003-08-14(11:33)
최종수정일 : 2003-08-14(11:33) |
| |
    |
 
  |
|
엑셀에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
