특정 버튼이나, 글자를 누르면 저한테 메일이나 알림이 자동올 수 있게 가능할까요?

VBA
작성자
글래스
작성일
2020-11-06 10:11
조회
451

엑셀에 특정 버튼을 만들어서 그 버튼을 누를 경우

알림창만 뜨는것이 아니라 바로 저한테 이 버튼을 눌렀다라는

메세지가 올 수 있게 가능할까요?

그러한 기능을 찾는데 잘 모르겠습니다 ㅠ

 

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

  • 2020-11-06 15:45

    @글래스 님 Sub keydetec()

    Application.OnKey "{s}", "msgb"

    End Sub

    Sub msgb()

    MsgBox "s키 눌림"

    End Sub

    알림은 아니지만 메세지 박스가 뜨게는 되네요

     

    Application.OnKey "{s}", "msgb" 이부분에서 {s} 를 원하는 키로 바꾸시면 됩니다.

    MsgBox "s키 눌림" 에서는 " 사이에 뜨게할 메세지 적으면 되구요


  • 2020-11-08 19:32

    @글래스 님 많은 응용프로그램들이 업사이징과 다운사이징을 하면서
    여러 기능을 포함하고 구현할 수 있지만, 엑셀은 엑셀일 뿐입니다.
    그럼에도, 학습한다는 측면에서 글을 씁니다.

    에너지뿜님의 답변에
    msgb 함수를 아래로 대체합니다.

    물론 메일 서버는 구성이 되어 있어야 합니다.

    Private Sub msgb()
    Dim cOutApp As Object
    Dim cOutMail As Object
    Dim cMailBody As String
    On Error Resume Next
    Set cOutApp = CreateObject("Outlook.Application")
    Set cOutMail = cOutApp.CreateItem(0)
    cMailBody = "본문 내용" & vbNewLine

    On Error Resume Next
    With cOutMail
    .To = "관리자 메일주소"
    .CC = "참조"
    .BCC = "숨은참조"
    .Subject = "버튼을 클릭하여 전송하는 메일 입니다."
    .Body = cMailBody
    .Send
    End With

    On Error GoTo 0
    Set cOutMail = Nothing
    Set cOutApp = Nothing
    End Sub


전체 7,366
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (6)
오빠두엑셀 | 2022.07.31 | 추천 8 | 조회 1334
오빠두엑셀 2022.07.31 8 1334
공지사항 함수/공식
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎 (2)
오빠두엑셀 | 2022.08.04 | 추천 4 | 조회 273
오빠두엑셀 2022.08.04 4 273
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (88)
오빠두엑셀 | 2021.10.28 | 추천 118 | 조회 6280
오빠두엑셀 2021.10.28 118 6280
41214 함수/공식
New 동일 파일 시트 단독 작업 후 붙여넣기 시 함수 참조값이 변경될 때 (1)
대전엑린이 | 10:56 | 추천 0 | 조회 13
대전엑린이 10:56 - 13
41212 VBA
New VBA에서 Xlookup를 사용할 때, 다른 파일에 다른 시트를 참조 할 때, 참조방식에 관한 질문 첨부파일 (2)
DanP | 08:42 | 추천 0 | 조회 22
DanP 08:42 - 22
41211 함수/공식
New 수식의 셀이 비어있을경우 셀이 비어있도록 하는 방법이 있을까요?? 도와주세요..며칠째 이것만 찾고있습니다. (5) 답변완료
박현중 | 08:24 | 추천 0 | 조회 35
박현중 08:24 - 35
41209 함수/공식
New 특정값 곱하기 열에 자동계산 도와주세요 첨부파일 (1)
쳐바 | 03:12 | 추천 0 | 조회 21
쳐바 03:12 - 21
41206 기능/도구
New 엑셀 기능 두셀의 값 위치 바꾸기 첨부파일 (4)
엑셀공부중 | 2022.08.15 | 추천 0 | 조회 35
엑셀공부중 2022.08.15 - 35
41198 VBA
New 유저폼 강제종료 할수 있는 방법이 있을까요? (1)
033cola | 2022.08.15 | 추천 0 | 조회 35
033cola 2022.08.15 - 35
41194 파워쿼리/피벗
New 파워쿼리 사용자지정열에 관한 아주 간단한 질문드립니다. (AND, OR조건과 줄바꿈) 엑셀파일첨부파일
월마리아 | 2022.08.15 | 추천 0 | 조회 25
월마리아 2022.08.15 - 25
41193 함수/공식
New 월간 세일즈 타겟에서 남은 금액 계산 방법이 있나요? 엑셀파일 (1)
LULLABY | 2022.08.15 | 추천 0 | 조회 21
LULLABY 2022.08.15 - 21
41184 피벗테이블
New 피벗테이블과 시트 부분 보호 엑셀파일 (1)
꿈꾸는부자 | 2022.08.15 | 추천 -1 | 조회 32
꿈꾸는부자 2022.08.15 -1 32
41182 피벗테이블
New 엑셀 피벗 엑셀파일첨부파일 (2) 답변완료
win | 2022.08.15 | 추천 0 | 조회 48
win 2022.08.15 - 48
41180 VBA
New 시트모으기 매크로 관련 보완 및 조언 요청 드립니다. 첨부파일 (2) 답변완료
김원중 | 2022.08.15 | 추천 0 | 조회 37
김원중 2022.08.15 - 37
41174 함수/공식
New 엑셀 다른시트에서 날짜에 맞춰서 값 불러오기 수식을 어떻게 짜야할지 모르겠어요. 첨부파일 (8) 답변완료
민호 | 2022.08.14 | 추천 0 | 조회 65
민호 2022.08.14 - 65
41173 함수/공식
New 오빠두에서 제공하는 견적서에 외화를 추가하고 싶습니다. (1)
농푸 | 2022.08.14 | 추천 0 | 조회 25
농푸 2022.08.14 - 25
41170 문서서식
New (초보질문)채우기 색만 복사 붙여넣기 하는 방법 좀 알려주세요~ 엑셀파일첨부파일 (4) 답변완료
추바카 | 2022.08.14 | 추천 0 | 조회 42
추바카 2022.08.14 - 42
41167 기능/도구
New 고급필터 결과값 셀에 형식을 주려면 어떻게 해야 할까요? (1)
| 2022.08.14 | 추천 0 | 조회 31
2022.08.14 - 31
41162 VBA
New 달력 유저폼에서 유저폼 X 하면 현재 날짜 변경 없으면 합니다. 엑셀파일첨부파일 (4) 답변완료
033cola | 2022.08.13 | 추천 0 | 조회 45
033cola 2022.08.13 - 45
41159 함수/공식
New 해당 조건 개수찾기 Max 함수 예제 엑셀파일 (1) 답변완료
Kim Si Yoon | 2022.08.13 | 추천 0 | 조회 37
Kim Si Yoon 2022.08.13 - 37
41148 VBA
New 셀에서 특정 위치에 있는 문자의 색상을 변경하는 방법 첨부파일 (2) 답변완료
:+:하늘비:+: | 2022.08.13 | 추천 0 | 조회 53
:+:하늘비:+: 2022.08.13 - 53
41147 문서서식
New 엑셀에서 픽셀에 의미에 대해서 질문드립니다. 첨부파일 (5) 답변완료
월마리아 | 2022.08.13 | 추천 0 | 조회 71
월마리아 2022.08.13 - 71
41145 함수/공식
New 이런 경우는 어떻게 해야할까요? 첨부파일 (4) 답변완료
Utaeks | 2022.08.13 | 추천 1 | 조회 61
Utaeks 2022.08.13 1 61
41141 함수/공식
New 어떤 함수를 써야할까요? 첨부파일 (3)
머지않아VBA고수 | 2022.08.13 | 추천 0 | 조회 57
머지않아VBA고수 2022.08.13 - 57
41140 VBA
New 매크로 파일 저장방법이 따로 있나요?파일목록이 추가될때마다 저장확인창이 하나씩 늘어나요ㅠㅠ 첨부파일 (1) 답변완료
pjc**** | 2022.08.13 | 추천 0 | 조회 28
pjc**** 2022.08.13 - 28
41132 함수/공식
New 함수를 간단히 할 수 있을까요? 엑셀파일 (5) 답변완료
안동근 | 2022.08.12 | 추천 0 | 조회 67
안동근 2022.08.12 - 67
41129 기능/도구
New 빠른 실행 도구 모음에서 명령 레이블 표시 또는 숨기기 첨부파일 (11) 답변완료
fabikim | 2022.08.12 | 추천 0 | 조회 53
fabikim 2022.08.12 - 53
41126 VBA
New VBA 자동화 용어 및 규칙 등의 작동원리 해석 문의 엑셀파일 (2) 답변완료
pjc**** | 2022.08.12 | 추천 0 | 조회 61
pjc**** 2022.08.12 - 61
41123 함수/공식
New 어떤 함수가 입력된건지 알고싶어요.(함수가 가려져 있는건지 여부도 알고싶네요) 첨부파일 (2) 답변완료
일개회사원 | 2022.08.12 | 추천 0 | 조회 55
일개회사원 2022.08.12 - 55
41117 피벗테이블
New 데이터 모델 관련 오류인데 어떤 오류인지 도저히 모르겠습니다ㅠ 첨부파일 (2) 답변완료
ㅎㅎ | 2022.08.12 | 추천 0 | 조회 51
ㅎㅎ 2022.08.12 - 51
41116 피벗테이블
New 피벗테이블 슬라이서 문의 첨부파일 (1)
조동호 | 2022.08.12 | 추천 0 | 조회 39
조동호 2022.08.12 - 39
41114 함수/공식
New Lookup 함수사용시 출력되는 날짜의 형식오류 첨부파일 (3)
조민양 | 2022.08.12 | 추천 0 | 조회 36
조민양 2022.08.12 - 36
41112 피벗테이블
New 엑셀 피벗테이블 필터부분을 가리는 방법을 알고 싶습니다! 첨부파일 (3)
이재호 | 2022.08.12 | 추천 0 | 조회 35
이재호 2022.08.12 - 35