엑셀 x 카카오톡 문자 보내기, 1분이면 설정 완료!

엑셀 사용자지정함수를 사용하여 엑셀로 카카오톡 문자를 보내는 방법을 알아봅니다.

홈페이지 » 엑셀 x 카카오톡 문자 보내기, 1분이면 설정 완료!

엑셀 카카오톡 문자 보내기, 1분이면 설정 완료!

엑셀 카카오톡 문자 보내기 목차 바로가기
영상강의
큰 화면으로 보기

강의에서 사용된 예제파일 다운로드

엑셀 카카오톡 문자 보내기 단계별 알아보기

1. 엑셀 새로운 매크로 모듈 추가하기

  1. 카카오톡 문자 보내기를 수행할 엑셀 파일을 실행합니다. (윈도우 XP 이상, 엑셀 2007 이상 버전이면, 어디서든 사용 가능합니다.)

    엑셀 카카오톡 문자 보낼 파일 실행
    엑셀 카카오톡 문자 보내기를 추가할 파일을 실행합니다.

  2. 화면 상단의 '개발도구' - '매크로' 를 클릭, 또는 단축키 키보드 Alt+ F11를 눌러 매크로 편집창으로 이동합니다.
    상단의 개발도구가 안 보이실 경우, 아래 개발도구 활성화 방법 포스트를 참고하세요.

    엑셀 매크로 편집창 이동
    '개발도구' - 'Visual Basic'을 클릭하여 매크로 편집창으로 이동합니다.

  3. 매크로 편집창 상단의 '삽입' - '모듈' 을 클릭하여 새로운 모듈을 삽입합니다.

    새로운 모듈 삽입
    '삽입' - '모듈'로 새로운 모듈을 삽입합니다.

  4. 아래 명령문을 복사하여 붙여넣기 합니다.

    카카오톡 최신버전을 사용중이실 경우, 아래 명령문의 RichEdit20W 을 RichEdit50W로 변경해주세요.

    Option Explicit
     
    #If VBA7 Then
    ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-findwindowa
    Private Declare PtrSafe Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
                                                            (ByVal lpClassName As String, _
                                                            ByVal lpWindowName As String) As Long
    ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-findwindowexa
    Public Declare PtrSafe Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" _
                                                                (ByVal hwndParent As Long, _
                                                                ByVal hwndChildAfter As Long, _
                                                                ByVal lpszClass As String, _
                                                                ByVal lpszWindow As String) As Long
    ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-sendmessagea
    Private Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" _
                                                                (ByVal hwnd As Long, _
                                                                ByVal wMsg As Long, _
                                                                ByVal wParam As Long, _
                                                                ByRef lParam As Any) As Long
    'https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-postmessagea
    Private Declare PtrSafe Function PostMessage Lib "user32" Alias "PostMessageA" _
                                                                (ByVal hwnd As Long, _
                                                                ByVal wMsg As Long, _
                                                                ByVal wParam As Long, _
                                                                ByRef lParam As Any) As Long
    #Else
    ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-findwindowa
    Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
                                                            (ByVal lpClassName As String, _
                                                            ByVal lpWindowName As String) As Long
    ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-findwindowexa
    Public Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" _
                                                                (ByVal hwndParent As Long, _
                                                                ByVal hwndChildAfter As Long, _
                                                                ByVal lpszClass As String, _
                                                                ByVal lpszWindow As String) As Long
    ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-sendmessagea
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                                                                (ByVal hwnd As Long, _
                                                                ByVal wMsg As Long, _
                                                                ByVal wParam As Long, _
                                                                ByRef lParam As Any) As Long
    'https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-postmessagea
    Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _
                                                                (ByVal hwnd As Long, _
                                                                ByVal wMsg As Long, _
                                                                ByVal wParam As Long, _
                                                                ByRef lParam As Any) As Long
    #End If
     
    Sub Send_Kakao(Target As Range, Msg As Range)
     
    Dim SendTo$: SendTo = Target.Value
    Dim Message$: Message = Msg.Value
     
    Dim hwnd_KakaoTalk As Long: Dim hwnd_RichEdit As Long
    Const WM_SETTEXT = &HC: Const WM_KEYDOWN = &H100
    Const WM_KEYUP = &H101: Const VK_RETURN = &HD
     
    hwnd_KakaoTalk = FindWindow(vbNullString, SendTo)
    hwnd_RichEdit = FindWindowEx(hwnd_KakaoTalk, 0, "RichEdit50W", vbNullString)
    ' PC 카톡버전 Ver. 3.1.2.2472 이전 버전을 사용중일 경우 RichEdit50W 을 RichEdit20W 로 수정해주세요.
     
    If hwnd_RichEdit = 0 Then MsgBox SendTo & "의 채팅창이 실행되었는지 확인하세요.": Exit Sub
     
    Call SendMessage(hwnd_RichEdit, WM_SETTEXT, 0, ByVal Message)
    Call PostMessage(hwnd_RichEdit, WM_KEYDOWN, VK_RETURN, 0)
     
    End Sub

2. 원하는 시트 모듈에 명령문 추가하기

  1. 매크로 편집창의 'Microsoft Excel 개체'를 확인합니다. 현재 실행중인 엑셀파일의 모든 시트가 나열되어 있습니다.

    엑셀 카카오톡 보낼 시트 확인
    'Microsoft Excel 개체' 에서 시트목록을 확인합니다.

  2. 원하는 시트를 더블클릭하여 시트모듈로 이동합니다.

    시트 모듈로 이동
    카카오톡 명령문 보내기를 실행할 시트 모듈로 이동합니다.

  3. 아래 명령문을 복사하여 시트 모듈에 붙여넣기 합니다.
    Private Sub Worksheet_Change(ByVal Target As Range)
     
    Dim 사용자명 As String: 사용자명 = "A1"        '<<- 사용자명이 입력된 셀 주소를 입력하세요.
    Dim 보낼메세지 As String: 보낼메세지 = "A1"    '<<- 보낼메세지가 입력된 셀주소를 입력하세요.
     
    If Target.Address(False, False) = 사용자명 Or Target.Address(False, False) = 보낼메세지 Then
        Send_Kakao Range(사용자명), Range(보낼메세지)
    End If
     
    End Sub
  4. 해당 시트에서, '사용자명' 과 '보낼 메세지'를 입력할 셀 주소를 확인합니다.

    엑셀 카카오톡 문자 보낼 셀 확인
    사용자명과 보낼메세지를 입력할 셀 주소를 확인합니다.

  5. 시트 모듈에 붙여넣기 한 명령문의 '사용자명' 그리고 '보낼메세지'의 값을 각각의 셀 주소로 변경합니다.

    사용자명 및 보낼메세지 변수 수정
    명령문의 '사용자명', '보낼메세지' 값을 각각 수정합니다.

  6. 시트로 돌아온 뒤, 사용자명과 보낼메세지의 값을 입력하면 해당 사용자에게 카카오톡 메세지가 전송됩니다.
    (단, 사용자의 카카오톡 창은 백그라운드에서 실행중이여야만 합니다.)

    엑셀 카카오톡 문자 보내기 완료
    시트에 내용을 입력하면 사용자에게 카카오톡 문자가 전송됩니다.

  7. 작성한 파일은 반드시 '매크로 사용 통합문서(*.xlsm)' 로 저장하셔야 이후에도 카카오톡 문자보내기 기능을 사용할 수 있습니다.

    매크로 사용 통합문서 저장
    작성된 파일은 매크로사용 통합문서로 저장합니다.

  8. 또한 이후 파일 실행시 엑셀 창 상단의 [콘텐츠 사용] 버튼을 클릭하여 포함된 매크로를 활성화합니다.

    엑셀 매크로 활성화
    이후 파일 실행시 '콘텐츠 사용' 버튼을 클릭하여 포함된 매크로를 활성화합니다.

3. 명령문 동작원리 알아보기
  1. 사용된 윈도우 User32 라이브러리 함수 목록
    함수명 설명(관련 링크)
    FindWindowA 함수 실행중인 프로그램의 Class 또는 창 이름으로 검색하여 hWnd 값을 반환합니다.
    https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-findwindowa
    FindWindoeEX 함수 실행중인 특정 프로그램 안의 또 다른 개체를 Class 명으로 검색하여 해당 개체의 hWnd 값을 반환합니다.
    https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-findwindowexa
    SendMessageA 함수 지정한 hWnd 창에 특정 메세지를 전달합니다. (결과값이 반환될 때까지 기다린 뒤 값을 동기화합니다.)
    https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-sendmessagea
    PostMessageA 함수 지정한 hWnd 창에 특정 메세지를 전달합니다. (결과값을 기다리지 않고 바로 다음 동작을 수행합니다.)
    https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-postmessagea
  2. 변수를 설정합니다.
    변수 (데이터타입) 설명
    SendTo, Message (String) 사용자명과 보낼 메세지입니다.
    hwnd_KakaoTalk,
    hwnd_RichEdit (Long)
    지정한 사용자의 카카오톡 채팅방과 편집창의 창번호 고유값입니다.
    WM_SETTEXT, WMKEYDOWN
    WM_KEYUP, VK_RETURN (Double)
    각각의 키보드(또는 가상키) 고유값입니다.
  3. 지정한 사용자명의 카카오톡 채팅방, 그리고 편집창의 고유값을 받아옵니다.
    ' 카카오톡 채팅방과 편집창의 고유값을 반환합니다.
    hwnd_KakaoTalk = FindWindow(vbNullString, SendTo)
    hwnd_RichEdit = FindWindowEx(hwnd_KakaoTalk, 0, "RichEdit20W", vbNullString)
  4. 만약 편집창으로 받아온 값이 없을 경우(=0), "~~의 채팅창이 실행되었는지 확인하세요." 라는 안내메세지를 출력 후 명령문을 종료합니다.
    ' 편집창으로 받아온 값이 없을 경우 안내메세지를 출력 후 명령문을 종료합니다.
    If hwnd_RichEdit = 0 Then MsgBox SendTo & "의 채팅창이 실행되었는지 확인하세요.": Exit Sub
  5. 해당 사용자에게 보낼 메세지를 전송 후 명령문을 종료합니다.
    ' 메세지 전송 후 명령문을 종료합니다.
    Call SendMessage(hwnd_RichEdit, WM_SETTEXT, 0, ByVal Message)
    Call PostMessage(hwnd_RichEdit, WM_KEYDOWN, VK_RETURN, 0)

자주 묻는 질문

1. 명령문을 제대로 입력하였는데도, 계속 오류 메세지가 출력됩니다.
  • 해당 명령문은 상대방의 카카오톡 채팅방이 '반드시' 백그라운드에서 실행중일때만 사용가능합니다. 상대방의 채팅창이 실행중인지 확인해보세요.
  • 또는 상대방의 이름에 '이모티콘'이 포함되어 있는지 확인해보세요. 이름에 '이모티콘'이 포함되어 있을 경우 명령문을 사용할 수 없습니다. 채팅창의 우측상단에 () 모양 아이콘을 클릭한 뒤, [채팅방설정]에서 사용자 이름을 변경할 수 있습니다.

    카카오톡 채팅방 설정
    채팅방 설정에서 사용자명을 변경할 수 있습니다.

2. 단톡방에도 사용할 수 있나요?
  • 단톡방에서도 사용할 수 있습니다. 단톡방에 표시되는 이름을 사용자명으로 입력해주세요.
3. 메세지를 보낸 뒤, 보낸 메세지를 초기화하고 싶습니다. 어떻게 해야 하나요?
  • 메세지를 전송한 후, 보낼메세지를 초기화 하고 싶을 경우, 시트모듈에 들어가는 명령문을 아래와 같이 수정해주세요.
    Private Sub Worksheet_Change(ByVal Target As Range)
     
    Dim 사용자명 As String: 사용자명 = "A1"        '<<- 사용자명이 입력된 셀 주소를 입력하세요.
    Dim 보낼메세지 As String: 보낼메세지 = "A1"    '<<- 보낼메세지가 입력된 셀주소를 입력하세요.
     
    If Target.Address(False, False) = 사용자명 Or Target.Address(False, False) = 보낼메세지 Then
        Send_Kakao Range(사용자명), Range(보낼메세지)
        ' 보낼메세지를 초기화합니다.
        Range(보낼메세지).Value = ""
    End If
     
    End Sub
4. 엔터를 입력한 뒤, 보낼메세지 셀로 자동으로 포커싱을 하려면 어떻게 해야 하나요?
  • 엔터를 입력한 뒤, 보낼 메세지 셀로 자동으로 포커싱을 하려면 명령문의 'Send_Kakao Range(사용자명), Range(보낼메세지)' 뒤에 아래 명령문을 추가해주세요.
    If Target.Address(False, False) = 사용자명 Or Target.Address(False, False) = 보낼메세지 Then
        Send_Kakao Range(사용자명), Range(보낼메세지)
        ' 보낼메세지 셀을 선택합니다.
        Range(보낼메세지).Select
    End If
5. 여러명에게 동시에 메세지를 보내려면 어떻게 해야 하나요?
  • 여러명에게 동시에 메세지를 전송하려면 시트모듈을 아래와 같이 수정합니다. '보낼메세지'의 값이 변경될 경우 모든 사용자에게 동일한 메세지가 전송됩니다.
    Private Sub Worksheet_Change(ByVal Target As Range)
     
    Dim 사용자명 As String: 사용자명 = "A1:A10"        '<<- 사용자명이 입력된 넓은 범위를 입력하세요.
    Dim 보낼메세지 As String: 보낼메세지 = "A1"    '<<- 보낼메세지가 입력된 셀주소를 입력하세요.
    Dim Rng As Range
     
    If Target.Address(False, False) = 보낼메세지 Then
        ' 사용자명 범위의 셀을 하나씩 돌아가며 각각의 사용자에게 메세지를 전송합니다.
        For Each Rng In Range(사용자명)
            ' 사용자명이 빈칸이 아닐 경우에만 메세지를 전송합니다.
            If Rng.Value <> "" Then Send_Kakao Rng, Range(보낼메세지)
        Next
    End If
     
    End Sub
6. 메세지 발송 성공/실패 여부를 출력하려면 어떻게 해야 하나요?

메세지 전송 성공/실패 여부를 다른 셀에 출력하려면 명령문을 아래와 같이 수정해주세요.

Send_KaKao 명령문

Sub Send_Kakao(Target As Range, Msg As Range, Result As Range)
 
Dim SendTo$: SendTo = Target.Value
Dim Message$: Message = Msg.Value
 
Dim hwnd_KakaoTalk As Long: Dim hwnd_RichEdit As Long
Const WM_SETTEXT = &HC: Const WM_KEYDOWN = &H100
Const WM_KEYUP = &H101: Const VK_RETURN = &HD
 
hwnd_KakaoTalk = FindWindow(vbNullString, SendTo)
hwnd_RichEdit = FindWindowEx(hwnd_KakaoTalk, 0, "RichEdit20W", vbNullString)
 
If hwnd_RichEdit = 0 Then
    MsgBox SendTo & "의 채팅창이 실행되었는지 확인하세요."
    Result.Value = "[채팅창을 확인하세요]"
    Exit Sub
End If
 
Call SendMessage(hwnd_RichEdit, WM_SETTEXT, 0, ByVal Message)
Call PostMessage(hwnd_RichEdit, WM_KEYDOWN, VK_RETURN, 0)
 
Result.Value = "[완료] " & SendTo & "," & Left(Message, 4) & "..."
 
End Sub

시트 모듈 명령문

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim 사용자명 As String: 사용자명 = "A1"        '<< - 사용자명이 입력된 셀 주소를 입력하세요.
Dim 보낼메세지 As String: 보낼메세지 = "A1"    '<< - 보낼메세지가 입력된 셀주소를 입력하세요.
Dim 결과출력 As String: 결과출력 = "A1"        '<< - 결과를 출력할 셀 주소를 입력하세요
 
If Target.Address(False, False) = 사용자명 Or Target.Address(False, False) = 보낼메세지 Then
    Send_Kakao Range(사용자명), Range(보낼메세지), Range(결과출력)
End If
 
End Sub
7. 메시지 발송 전 확인창을 띄우려면 어떻게 해야 하나요?

메세지 발송 전 '정말로 메세지를 보내겠습니까?' 확인창을 띄운 뒤, 메세지를 전송하려면 시트모듈 명령문을 아래와 같시 수정합니다.

Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim 사용자명 As String: 사용자명 = "A1"        '<<- 사용자명이 입력된 셀 주소를 입력하세요.
Dim 보낼메세지 As String: 보낼메세지 = "A1"    '<<- 보낼메세지가 입력된 셀주소를 입력하세요.
Dim YN As VbMsgBoxResult
 
If Target.Address(False, False) = 사용자명 Or Target.Address(False, False) = 보낼메세지 Then
    YN = MsgBox("정말로 메세지를 보내시겠습니까?", vbYesNo)
    If YN = vbYes Then
        Send_Kakao Range(사용자명), Range(보낼메세지)
    End If
End If
 
End Sub
8. 잘 사용 중 이였는데, 갑자기 메세지 발송이 안됩니다.

2020년 5월, 카카오톡 버전이 업데이트 되면서 채팅창에 사용된 hWnd 값이 변경되었습니다.

따라서 사용중인 PC 카카오톡의 버전이 Ver. 3.1.2.2472 이상이라면, hWnd 값(hwnd_RichEdit) 수정이 필요합니다. 수정이 필요한 부분은 카카오톡 보내기 명령문 안에 적어드렸습니다.

5 50 투표
게시글평점
guest
94 댓글
Inline Feedbacks
모든 댓글 보기
엑린이
엑린이(@1125)
2020년 4월 8일 8:54 오후
게시글평점 :
     

대박입니다!! 근데 저는 엑셀로 보내면 카카오창이 없어지는데 어떻게 동시에 볼수 있나요?

엑린이
엑린이(@1125)
2020년 4월 8일 9:14 오후
답글 남기기  오빠두엑셀

네 좀 작게하니깐 되네요 감사합니다!

슬라교정
슬라교정(@-1687)
2020년 4월 9일 4:18 오전
게시글평점 :
     

대박입니다. ㅎㅎ 감사

연선
연선(@-353)
2020년 4월 9일 8:48 오전
게시글평점 :
     

명령문 복사하고 다 했는데... 창도 반반사이즈로 했는데... 안되네요.. ㅠㅠ

정루이스
정루이스(@1691-2)
2020년 4월 9일 10:15 오전
게시글평점 :
     

왕~~~~!!! 완전 대박입니다... ㅠㅠ 감격..ㅠㅠ 근데 동영상과 같이 옆에 메세지 확인하는건 전 안나오더라고요..ㅠㅠ

들어가기
들어가기
2020년 4월 9일 12:49 오후
게시글평점 :
     

저장했다가 다시 열고하면 안되는데 왜그런걸까요?

JMON
JMON(@jmon)
2020년 4월 9일 1:39 오후
게시글평점 :
     

진심으로 필요했던 기능인데!감사합니다!

황현지
황현지
2020년 4월 10일 12:37 오전
게시글평점 :
     

여러명에게 보내는거 영상파일 없나요 ??

구글 스프레스시트로는 만들수 없나요 ???

CHm
CHm
2020년 4월 10일 2:29 오전
게시글평점 :
     

대박 신기합니다. 몇가지 문의사항이 있습니다. 1.sendkakao 추가기능을 설치하였는데요, 엑셀을 실행할때마다 추가기능 엑셀파일이 열립니다. 2.강의내용 질문인데요, 여러 메시지를 보낼 때 열방향으로만 보내지는데요, 행방향으로 보낼 수 있을까요? 3.카톡으로 보내기 전에 확인창 띄워서… 더보기 »

빠끼
빠끼(@1429)
2020년 4월 10일 3:25 오전
게시글평점 :
     

대박이네요

영도라이더
영도라이더(@-1741)
2020년 4월 10일 1:21 오후
답글 남기기  빠끼

정말! 정말! 감사합니다.
회사에서 일할때 카톡에 반복적인 복사/붙여넣기 했는데~
신계계를 경험하게 해주셨어요!!

우림맨두
우림맨두(@-1702)
2020년 4월 10일 10:02 오전
게시글평점 :
     

혹시 채팅창을 안키고는 불가능한거죠? 사진파일 전송은 불가능한가요?

건주
건주(@rlarjswn92naver-com)
2020년 11월 7일 2:35 오후
답글 남기기  오빠두엑셀

사진전송 방법에 대해서 조금 자세하게 알려주실 수 있을까요?

엑랜이2
엑랜이2
2020년 4월 10일 11:22 오전
게시글평점 :
     

헐...진짜 대박이네요

만생형님
만생형님(@1743)
2020년 4월 10일 2:24 오후
게시글평점 :
     

너무좋으네요!!감사합니다 ㅎㅎ혹시 수신자를 다른 셀에 별도로 설정해서 사용할 수 있나요???

윤코비치
윤코비치(@351)
2020년 4월 10일 3:38 오후
게시글평점 :
     

혹시 할인 쿠폰은 어떻게 받나요?
70% 할인쿠폰을 클릭해도 안되던데요...

cvic11
cvic11(@cvic11)
2020년 4월 13일 3:49 오전
게시글평점 :
     

대단합니다!!!

syjcp
syjcp(@syjcp)
2020년 4월 13일 10:06 오후
게시글평점 :
     

너무 신기해서 여기저기 카톡 보내는 중입니다. ^^ 감사합니다

김홍렬
김홍렬(@-409)
2020년 4월 14일 4:41 오전
게시글평점 :
     

대단한 정보입니다 ㅎ

이준근
이준근(@1127)
2020년 4월 14일 7:03 오전
게시글평점 :
     

오오 신기해요!!

엑셀학식이
엑셀학식이(@-1844)
2020년 4월 14일 2:58 오후
게시글평점 :
     

최고 더이상의 말은 필요없음

약돌한우
약돌한우(@1847)
2020년 4월 14일 10:02 오후
게시글평점 :
     

엑셀vba로 이런게 가능하다니!! 이제 업무시간에도 당당히(?!) 카톡을...^^;;; 좋은 정보 고맙습니다!!

정우
정우(@1598)
2020년 4월 16일 1:22 오후
게시글평점 :
     

짱입니다~!

임현성
임현성
2020년 5월 3일 4:04 오후
게시글평점 :
     

안녕하세요
시도해보니 카카오톡은 잘 되서 신기합니다
라인에서도 해볼려고 hwnd_KakaoTalk 부분들을 hwnd_LINE 으로 수정을 해봤는데 아무런 반응이 없네요
다른 프로세스를 지정할려면 어떤 부분을 바꿔줘야 하는지 알수 있을까요??

장정수
장정수
2020년 5월 4일 4:18 오후
게시글평점 :
     

여러 친구에게 카카오톡을 보낼때 모든 친구의 채팅창이 모두 활성화되어 있어야 하나요??

나이스문
나이스문
2020년 5월 30일 12:17 오후
답글 남기기  오빠두엑셀

채팅방이 닫혀 있을때도 되겠끔 부탁드립니다~

lanyan****
lanyan****(@mugen1976gmail-com)
2020년 6월 2일 6:51 오후
답글 남기기  오빠두엑셀

저도 채팅방이 닫혀있을때도 보내는걸 부탁드립니다.
아니면 여러명에게 보내는것처럼 사용자명을 입력한 범위셀을 선택하면 선택한 사용자의 대화창을 열어주는 방법도 괜찮을것 같습니다.

ja0****
ja0****(@ja00054nate-com)
2020년 5월 5일 5:20 오후
게시글평점 :
     

혹시 맥북에서는 불가할까요?ㅠ 맥북버전도 올려주시면 감사드리겠습니다

브레이브
브레이브(@kie-taehanmail-net)
2020년 5월 11일 3:52 오후
게시글평점 :
     

대단히 유용한 정보 감사합니다. 반복적인 업무인 이미지로 카톡보내기를 자동화에 어려움이 있어서 도움을 부탁드립니다. 제생각에는 이미지로 붙여넣기 전송 하기위해 카톡창에 "컨트롤 v + up + up + enter"를 보내려면 모듈에 Sendkeys… 더보기 »

브레이브
브레이브(@kie-taehanmail-net)
2020년 5월 14일 8:46 오전
답글 남기기  오빠두엑셀

정말 대단하십니다. 단번에 해결됬어요! 감사합니다!!!!!!!

추장
추장(@-1825)
2020년 5월 13일 6:57 오후
게시글평점 :
     

안녕하세요. 좋은 프로그램 감사히 잘 사용하고 있습니다. 그런데 최근 카톡 업데이트를 하다보니 정상 작동을 하지 않습니다. 작성해주신 코드를 그대로 활용하고 있는데, 한단계씩 체크해보니 If hwnd_RichEdit = 0 Then MsgBox SendTo… 더보기 »

OKC
OKC
2020년 5월 15일 2:53 오후
게시글평점 :
     

아 이거 정말 대박이네요!! 그런데, 이거 엑셀에서 카톡 답장 볼 수 없을까요?

꺼먹고무신
꺼먹고무신(@-2251)
2020년 6월 2일 9:16 오전
게시글평점 :
     

정말 대단하십니다. 유튜브 정기구독하다가 완전 팬이 되었습니다. 항상 감사하게 생각 합니다. 궁금한게 있어서 문의 드립니다. Dim 사용자명 As String: 사용자명 = "A1" '<<- 사용자명이 입력된 셀 주소를 입력하세요. Dim 보낼메세지… 더보기 »

lanyan****
lanyan****(@mugen1976gmail-com)
2020년 6월 2일 7:45 오후
게시글평점 :
     

좋은 기능 감사합니다.
다름이 아니라 보낼 메세지 부분을 원하는 영역을 복수로 선택해서 선택한 영역을 보내려면 어떻게 해야하나요?
Selection이나 Target를 써서 선택한 영역의 내용을 보내려고 합니다.

elsa
elsa
2020년 6월 19일 10:51 오전
게시글평점 :
     

안녕하세요 ~ ㅁㅁㅁ의 채팅창이 실행되었는지 확인하세요 라는 메세지만 뜹니다 ㅠㅠ

elsa
elsa
2020년 6월 30일 11:57 오전
답글 남기기  오빠두엑셀

아래명령으로 했는데 안되네요...ㅠㅠ

아이던
아이던(@drawinroomnaver-com)
2020년 6월 25일 4:06 오후
게시글평점 :
     

파일 경로와 파일 이름을 통해서 파일을 첨부하는건 안되겠죠?

엑린이
엑린이
2020년 8월 5일 4:00 오후
게시글평점 :
     

감사히 잘 쓰고 있습니다. 혹시 송신되는 메세지를 엑셀시트로 확인 할 수 있는 방법은 없을까요?

엑린이
엑린이
2020년 9월 2일 10:51 오전
답글 남기기  오빠두엑셀

감사합니다 혹시 단톡방에서 보내는 카톡내역을 엑셀로 수신하여 확인하는 것도 가능할까요?

Last edited 1 년 전 by 반포
lanyan****
lanyan****(@mugen1976gmail-com)
2020년 8월 10일 6:16 오후
게시글평점 :
     

원하는 채팅창을 열수있는 방법은 없을까요?
예전에 업데이트 보류중이시라는 댓글을 보긴했는데 원하는 채팅창을 열어서 메세지를 전송하고 싶은데 방법이 없을까요?

Xiah
Xiah(@sam5468naver-com)
2020년 8월 18일 7:56 오전
게시글평점 :
     

안녕하세요
잘쓰고 있는 중에.. 시간에 맞게 자동으로 전송하게 세팅 중 팅긴 이후로 갑자기 sendkakao 기능이 "9 런타임오류"와 함께 작동을 안합니다.
해결방법을 알고 계신지요...

poyaipo
poyaipo
2020년 8월 20일 5:38 오후
게시글평점 :
     

혹시 다른 엑셀파일을 첨부파일로 보낼수는 없나요?

dladnwns
dladnwns(@wns9978naver-com)
2020년 8월 21일 10:20 오후
게시글평점 :
     

오빠두님 엑셀로 카톡 보낼떄 이미지도 따로 보낼수있는 방법이 있나요?
있다면 알려주세요 ㅠㅠ

영세
영세(@alsdodl5naver-com)
2020년 8월 28일 4:04 오후
게시글평점 :
     

안녕하세요! 카톡창을 열고 엑셀에서 카톡을 하나 보내면 카톡창이 바로 꺼집니다! 그래서 다시보내려면 다시키고 다시 입력해야해요 ㅠㅠ
저만 그러는걸까요 ?ㅠㅠ

똥글뱅이
똥글뱅이(@akrud9218hanmail-net)
2021년 7월 5일 11:57 오후
답글 남기기  오빠두엑셀

채팅종료 설정을 어디서 하면 될까요...?계속 찾아도 보이질 않아요...ㅡㅜ

이영준
이영준(@zoo94288naver-com)
2020년 9월 30일 12:47 오전
게시글평점 :
     

sendkakao 명령어를 이용하여 여러명에게 보내는 방법은 없을까요?

컴초보
컴초보
2020년 11월 12일 7:20 오후
게시글평점 :
     

카카오톡 매크로를 만드는데 투표형식으로는 안 되나여?

컴초보
컴초보
2020년 11월 12일 7:23 오후
게시글평점 :
     

최대한 해야해요...중요한거라서..

Last edited 1 년 전 by 컴초보
I am BID
I am BID(@imbidnaver-com)
2020년 11월 13일 10:40 오후
게시글평점 :
     

아~ 이거 정말 필요한데.. 왜 전 아무런 변화가 없는걸까요?
카톡도 최신이고
엑셀도 365인데...
어디에다가 물어봐야할까요?

daisu****
daisu****(@daisuke-_-fotohanmail-net)
2020년 12월 7일 6:39 오전
게시글평점 :
     

항상 잘 배우고있습니다

배움
배움(@4955)
2021년 1월 31일 2:16 오후
게시글평점 :
     

아 댓글도 읽어보고 질문을 해야 겠군요. ㅎ

Last edited 10 월 전 by 배움
QWERTY
QWERTY(@lessiensnaver-com)
2021년 4월 2일 11:33 오전
게시글평점 :
     

혹시 예약 메시지 기능은 안 될까요?
어떻게 하면 될까요..?

아돌프
아돌프(@jbjhungmail-com)
2021년 4월 14일 10:13 오후
게시글평점 :
     

짱입니다요

윤종진
윤종진(@heliosheath1naver-com)
2021년 4월 21일 1:43 오전
게시글평점 :
     

▼있는걸 모듈에넣고 Option Explicit   #If VBA7 Then ' https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-findwindowa Private Declare PtrSafe Function FindWindow Lib "user32.dll" Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As… 더보기 »

Last edited 7 월 전 by 윤종진
임영원
임영원
2021년 4월 28일 7:50 오후
게시글평점 :
     

직원들이 많아 문자로 단체문자 보내는데
구글메세지 웹으로 보낼수 있는방법이 있을까요?

seungmo****
seungmo****(@jsm8040naver-com)
2021년 7월 2일 1:04 오전
게시글평점 :
     

안녕하세요.. 좋은 자료 감사 합니다. 제가 질문드리고 싶은 내용은 채팅방이 만들어지 않은 상태에서 엑셀에서 전화번호로만 카카오톡를 보낼 수 있는 방법이 있을까요?? 예를 들어 10개의 전화번호가 있고 그 전화번호로 메시지 내용을… 더보기 »

t4****
t4****(@t4parknaver-com)
2021년 7월 4일 7:08 오후
게시글평점 :
     

정말 최고에 엑셀이내요

이민우
이민우
2021년 8월 13일 1:32 오후
게시글평점 :
     

혹시 이런 기능을 활요해서 매일 정해진 시간에 투표도 올릴수있나요??

미스터고고업
미스터고고업(@-6541)
2021년 8월 19일 5:06 오후
게시글평점 :
     

정말 대단하고 유용한 기능입니다~ 감사^^
질문: 채팅창은 열려있지만 카톡이 잠금상태일때는 메세지는 입력되어있는데 ENTER가 안되어 미전송 상태로 있습니다. 어떻게해야 잠금상태에서도 전송할수 있을까요?

미스터고고업
미스터고고업(@-6541)
2021년 8월 20일 3:53 오후
답글 남기기  오빠두엑셀

혹시나해서, 카톡의 LockModeView의 Edit를 찾아서 비밀번호와 Enter키를 입력하니까 잠금상태에서 나오는데... 문제는 카톡이 잠금상태인지 아닌지를 파악할수가 없네요. 그냥 안잠긴상태에서도 비밀번호를 강제입력한후 전송용 채팅창을 찾아서 메세지를 보내니까 되긴하는데... 안잠긴상태에서 비밀번호 강제전송시 다른… 더보기 »

94
0
여러분의 생각을 댓글로 남겨주세요.x