매크로 버튼 누를때만 작동 되고 떼면 원래대로 돌아가는 명령어 어떻게 되나요...

VBA
작성자
와따나
작성일
2020-10-31 18:44
조회
675

아래 것을 누를때마다 셀값이 0또는 1로 바뀌는 것인데요.

매크로버튼 누르지 않을때는 항상 값이 0이고 누를때만 1이고 떼면 다시 0이 되게 하려면 어떻게 해야 되나요...

고수님... 선생님 도와주세요.

 

Sub Macro()

Dim T As String

Select Case Range("S9").Value

Case "0": T = "1"

Case "1": T = "0"

Case Else: T = "0"

End Select

Range("S9") = T

End Sub

회원등급 : 4레벨
포인트 : 230 EP
총질문 : 3 개 (마감율 : 67%)
채택답변 : 0 개
전체 2

  • 2020-11-01 01:54
    채택된 답변

    안녕하세요?^^

    마우스의 버튼 클릭 여부를 감지하려면 WIN32 라이브러리를 사용하셔야 합니다. Mouse_event 라이브러리 사용법은 아래 링크를 참고해보세요.

    https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-mouse_event

    만약 Win32 라이브러리 사용이 어려우실 경우 일반 커맨드버튼 대신 '토글버튼'을 사용하는 것도 좋은 방법이 될 것 같습니다.

    토글버튼을 사용하면 스위치처럼 ON/OFF로 매크로 동작을 껐다/켰다 할 수 있습니다.

    WorkSheet_Change 또는 SelectionChange 이벤트에서, 토글버튼의 값이 TRUE/FALSE 일 때 동작여부를 설정하시는 방법으로 접근하시는게 더 편리하실 듯 합니다.^^ 토글 버튼 사용법은 아래 링크를 참고해보세요.

    https://best-excel-tutorial.com/57-vba-tutorial/243-toggle-button

    제시해들니 답변이 도움이 되셨길 바랍니다. 감사합니다.


    • 2020-11-01 09:56

      @오빠두엑셀 님 선생님 답변 대단히 감사드립니다.
      좋은 주말 되십시요. ^^;


전체 4,652
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (9)
오빠두엑셀 | 2021.10.28 | 추천 15 | 조회 708
트로피 오빠두엑셀 2021.10.28 15 708
24168 VBA
New (문의) 번호가 같을경우 옆에 있는 셀의 값을 병합
ryan_cruze | 16:30 | 추천 0 | 조회 19
ryan_cruze 16:30 0 19
24166 기능/도구
New 질문있습니다.
최강씨맨 | 16:14 | 추천 0 | 조회 13
최강씨맨 16:14 0 13
24163 함수/공식
New 엑셀 특정 내용 추출하는 수식 질문드립니다. (2)
PAKSAW | 15:34 | 추천 0 | 조회 15
PAKSAW 15:34 0 15
24161 함수/공식
New 특정 날짜 값 찾기 (2)
ㄱ박민극 | 15:23 | 추천 -1 | 조회 23
ㄱ박민극 15:23 -1 23
24154 피벗테이블
New 설문조사 피벗테이블 구성이 어렵네요 첨부파일 (2)
가리 | 12:22 | 추천 0 | 조회 24
가리 12:22 0 24
24153 VBA
New 엑셀 검색 창 첨부파일 (2)
이혜 | 11:59 | 추천 0 | 조회 22
이혜 11:59 0 22
24148 피벗테이블
New 피벗테이블 형태의 데이터베이스 변환 (1)
이길호 | 10:34 | 추천 0 | 조회 25
이길호 10:34 0 25
파워쿼리/피벗
New Re:피벗테이블 형태의 데이터베이스 변환
Yukon | 16:08 | 추천 0 | 조회 9
Yukon 16:08 0 9
24140 VBA
New 특정 시트에 추출되어있는 값을 각각의 시트로 분류하려고합니다. 첨부파일 (1)
이치영 | 01:37 | 추천 0 | 조회 37
이치영 01:37 0 37
24135 VBA
New vlookup #N/A 에러가 나오는 경우 IF문은 어떻게.... (2)
툴잇지 with 우정기기 | 2021.11.29 | 추천 0 | 조회 51
툴잇지 with 우정기기 2021.11.29 0 51
24132 함수/공식
New 동적범위, 셀값을 시트명으로 인식하여 합계를 구하는것 첨부파일 (6) 답변완료
키큰아저씨 | 2021.11.29 | 추천 0 | 조회 49
키큰아저씨 2021.11.29 0 49
24129 VBA
New 직사각형 도형 삭제vba (2) 답변완료
H.B | 2021.11.29 | 추천 1 | 조회 33
H.B 2021.11.29 1 33
24126 VBA
New "요청한 레지스트리에 엑세스할 수 없습니다." 라는 에러때문에 진행이 안됩니다. (3)
볼펜수리공 | 2021.11.29 | 추천 0 | 조회 29
볼펜수리공 2021.11.29 0 29
24120 기능/도구
New 조건부서식으로 찾은 바탕색을 실제 엑셀 바탕색 컬러로 변경하고 싶습니다. 첨부파일 (3) 답변완료
glas**** | 2021.11.29 | 추천 0 | 조회 35
glas**** 2021.11.29 0 35
24117 함수/공식
New 맨 끝자리를 제외한 7자리 추출 첨부파일 (2) 답변완료
감사하모니카 | 2021.11.29 | 추천 0 | 조회 41
감사하모니카 2021.11.29 0 41
24116 VBA
New VBA 2007버전과 2021버전에서의 속도 차이가 많이 납니다. 해결방안이 있을까 해서요? 첨부파일 (2)
한정석 | 2021.11.29 | 추천 0 | 조회 46
한정석 2021.11.29 0 46
24113 함수/공식
New 조건 서식 질문입니다. 첨부파일 (1)
space | 2021.11.29 | 추천 0 | 조회 38
space 2021.11.29 0 38
24111 피벗테이블
New 피벗테이블 DAX함수 관련 문의
T첫 | 2021.11.29 | 추천 0 | 조회 24
T첫 2021.11.29 0 24
24106 함수/공식
New 엑셀에서 해당 날짜기간 동안을 찾아 날짜열에 각각 표기하는 방법 첨부파일 (5)
공수래 | 2021.11.29 | 추천 0 | 조회 40
공수래 2021.11.29 0 40
24099 함수/공식
New 입력한 값에 따라 IMAGE 자동입력 함수 문제 관련 (1)
유지연 | 2021.11.29 | 추천 0 | 조회 30
유지연 2021.11.29 0 30
24098 VBA
New 워드 Format(숫자, "#,###") (1) 답변완료
argus | 2021.11.28 | 추천 0 | 조회 38
argus 2021.11.28 0 38
24097 VBA
New 각각 형식이 다른 여러 시트에서 원하는 값들만 가져와서 한 시트에 보기 쉽게 합치고 싶습니다. 첨부파일 (1)
축전 | 2021.11.28 | 추천 0 | 조회 42
축전 2021.11.28 0 42
24096 VBA
New 엑셀 재고관리툴 만들기 VBA영상 시청중 오류 발생관련 문의입니다. 첨부파일
가을전어 | 2021.11.28 | 추천 0 | 조회 24
가을전어 2021.11.28 0 24
24093 기능/도구
New 작업표시줄 클릭으로 클립보드에 복사 문제 관련 (1)
어루 | 2021.11.28 | 추천 0 | 조회 21
어루 2021.11.28 0 21
24091 VBA
New 도와주세요! 뭐가 문제인지 못찾겠습니다.
y**** | 2021.11.28 | 추천 0 | 조회 40
y**** 2021.11.28 0 40
24089 VBA
New 엑셀 vlookup vba 문의드립니다. (4) 답변완료
ㅈㄱㄹ | 2021.11.28 | 추천 0 | 조회 48
ㅈㄱㄹ 2021.11.28 0 48
24088 함수/공식
New 개인별 회비 납부 현황에 따라 월별 납부액 결정 관련 함수 또는 VBA (미납, 매월 16일 이후 납부할 경우 월회비 10% 가산) 첨부파일 (5) 답변완료
007 | 2021.11.28 | 추천 0 | 조회 59
007 2021.11.28 0 59
24081 함수/공식
New 영문주소를 한글주소로 변경 희망합니다. (1)
루s cos 개인대행 | 2021.11.28 | 추천 0 | 조회 38
루s cos 개인대행 2021.11.28 0 38
24072 VBA
New 수식이 있는 데이터에서 매크로를 사용하여 다른시트에 결과값만 붙여넣고 싶습니다. 첨부파일 (6) 답변완료
호랑이파워 | 2021.11.28 | 추천 0 | 조회 59
호랑이파워 2021.11.28 0 59
24068 파워쿼리/피벗
New 파워쿼리 간단한 '값 바꾸기' 에 대해서 질문드립니다. 첨부파일 (3)
월마리아 | 2021.11.28 | 추천 0 | 조회 31
월마리아 2021.11.28 0 31
24065 피벗테이블
New 열과 행 바꾸는 쉬운 방법있나요? 첨부파일 (5) 답변완료
jyj6**** | 2021.11.27 | 추천 0 | 조회 56
jyj6**** 2021.11.27 0 56