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

VBA
작성자
글래스
작성일
2020-11-06 10:11
조회
33
엑셀에 특정 버튼을 만들어서 그 버튼을 누를 경우

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

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

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

 
글래스
회원등급 : 잎새등급
포인트 : 180 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


      전체 1,564
      번호 카테고리제목작성자작성일추천조회
      1559 VBA
      New 네이버 연관검색어 파일 VBA 복구하거나 제거 무슨 뜻인지?
      Greenpunch | 20:34 | 추천 0 | 조회 4
      Greenpunch20:3404
      1558 기능/도구
      New 엑셀 크롤링 기능을 활용한 [품절] 항목 검색
      고래 | 20:00 | 추천 0 | 조회 6
      고래20:0006
      1557 VBA
      New VBA 창에서 프로젝트창, 속성창 등이 고정되지 않아 넘 불편합니다. ㅠㅠ (1)
      공석 | 15:32 | 추천 0 | 조회 16
      공석15:32016
      1556 차트/그래프
      New 지도차트 관련 질문 (1)
      Astroz | 13:37 | 추천 0 | 조회 11
      Astroz13:37011
      1555 VBA
      New VBA 사용 시트병합 강의 따라하는데 매크로 단축키 지정이 안됩니다. 해결책이 있나요? (1)
      공석 | 10:33 | 추천 0 | 조회 16
      공석10:33016
      1554 함수/공식
      New 당직근무자 자동생성 관련 / 첨부파일 (1)
      naver_5f055a605ee7d | 10:13 | 추천 0 | 조회 17
      naver_5f055a605ee7d10:13017
      1553 VBA
      New 셀단위 이미지 자동추출 문제 관련 첨부파일 (1)
      ezdaily | 06:18 | 추천 0 | 조회 11
      ezdaily06:18011
      1552 함수/공식
      New 피벗테이블로 유효성검사3가지 려고하는데 잘안되요 첨부파일 (1)
      ja**** | 06:13 | 추천 0 | 조회 18
      ja****06:13018
      1551 함수/공식
      New PDF로 저장할때 HYPERLINK 함수를 적용시킬수 있는 방법이 있을까요? 첨부파일 (1)
      찬우아빠 | 2020.11.25 | 추천 1 | 조회 31
      찬우아빠2020.11.25131
      1550 문서서식
      New 한글에서 표를 엑셀로 복사붙여넣기 할때요 (2) 답변완료
      욕심없는성공v | 2020.11.25 | 추천 0 | 조회 27
      욕심없는성공v2020.11.25027
      1549 기능/도구
      New du-tool 삭제시 오류메세지 문의드립니다. 첨부파일 (1)
      좐킴 | 2020.11.25 | 추천 0 | 조회 13
      좐킴2020.11.25013
      1548 VBA
      New 이메일 본문에 차트 삽입 (1)
      달님 | 2020.11.25 | 추천 0 | 조회 17
      달님2020.11.25017
      1547 VBA
      New vba로 인터넷 창 전환 후 크기 변경 질문 드립니다. (1)
      hyuk**** | 2020.11.25 | 추천 0 | 조회 17
      hyuk****2020.11.25017
      1546 기능/도구
      New 4개 기능 함수를 다운받아 설치 후 엑셀이 에러 창이 뜹니다. 첨부파일 (1)
      SM AD AMERICA | 2020.11.24 | 추천 0 | 조회 33
      SM AD AMERICA2020.11.24033
      1545 기능/도구
      New 엑셀 실행 시 에러 창이 뜹니다. 이거 해결할 수 있나요? 첨부파일 (1)
      SM AD AMERICA | 2020.11.24 | 추천 0 | 조회 18
      SM AD AMERICA2020.11.24018
      1544 차트/그래프
      New 주차별 꺾은선그래프 위에 증감수치 입력방법 (1)
      wjdxkdl**** | 2020.11.24 | 추천 0 | 조회 16
      wjdxkdl****2020.11.24016
      1543 문서서식
      New 아주 기초적인 질문이요.. (1)
      빨간돼지 | 2020.11.24 | 추천 0 | 조회 25
      빨간돼지2020.11.24025
      1542 VBA
      New 폴더 밑 하위 폴더 전체 이름을 반환하고 싶어요 도와주세요 (2)
      밍장군 | 2020.11.24 | 추천 0 | 조회 17
      밍장군2020.11.24017
      1541 차트/그래프
      New 주식형 차트에다가 보조축을 활용하고싶은데 방법을 모르겠습니다. (1) 답변완료
      김상호 | 2020.11.24 | 추천 0 | 조회 18
      김상호2020.11.24018
      1540 함수/공식
      New 엑셀 지도차트 만들기 transpose 배열함수 값 오류 뜹니다. (6)
      Yooon | 2020.11.24 | 추천 0 | 조회 38
      Yooon2020.11.24038
      1539 대시보드
      New 대시보드 관련 질문사항입니다. (4) 답변완료
      H.B | 2020.11.24 | 추천 2 | 조회 19
      H.B2020.11.24219
      1538 함수/공식
      New INDIRECT함수 관련 (2) 답변완료
      finebyme | 2020.11.24 | 추천 0 | 조회 32
      finebyme2020.11.24032
      1537 VBA
      New VBA 오픈 API 도와주세요 ㅜ (4)
      에너지뿜 | 2020.11.24 | 추천 0 | 조회 38
      에너지뿜2020.11.24038
      1536 문서서식
      New ~여러개 시트 하나로 연결 하는 문제 (1)
      생활지원센터 | 2020.11.23 | 추천 0 | 조회 45
      생활지원센터2020.11.23045
      1535 함수/공식
      정확하게 나올 수 없는건가요? 첨부파일 (2)
      공월 | 2020.11.23 | 추천 0 | 조회 29
      공월2020.11.23029
      1534 피벗테이블
      피벗테이블 비율 구했는데.. 값이 맞지가 않아요..ㅠㅠ 첨부파일 (2) 답변완료
      Lucy Kim | 2020.11.23 | 추천 0 | 조회 18
      Lucy Kim2020.11.23018
      1533 함수/공식
      날짜세는 엑셀 함수 첨부파일 (1)
      엑셀초보!!!!! | 2020.11.23 | 추천 0 | 조회 29
      엑셀초보!!!!!2020.11.23029
      1532 함수/공식
      전체 범위에서 여러 열에 입력되어 있는 특정값 추출하기.. 첨부파일 (1)
      현동전문가 | 2020.11.22 | 추천 0 | 조회 46
      현동전문가2020.11.22046
      1531 함수/공식
      원하는 정보 추출 엑셀 함수 (2)
      Jenny | 2020.11.22 | 추천 0 | 조회 49
      Jenny2020.11.22049
      1530 기능/도구
      행 일괄 추가(?) 문의드립니다. (2)
      웁웁 | 2020.11.22 | 추천 0 | 조회 42
      웁웁2020.11.22042