뭐? 엑셀이 말을 한다고??

Step 1: 엑셀이 카운트다운을 말하게 하기

아리땁거나 감미로운 것과는 거리가 멀지만, 그래도 엑셀의 목소리(?)를 들으셨지요?

Sub SayCountdown()

    Dim i As Integer
    On Error GoTo ET

    For i = 10 To 1 Step -1
        Application.Speech.Speak i
        'Speech.Speak 메서드를 이용하여 인수(i)로 전달된 문자열을 재생합니다.
        '단, 한글은 지원하지 않습니다.
        '다음 문장을 VB Editor의 직접 실행 창에 붙여넣고 Enter 키를 눌러 보시기 바랍니다.
        'Application.Speech.Speak "Hi, Excel 2007"

    Next i

ET:
'오류가 발생하였을 경우, 오류와 관련된 정보를 메시지 상자를 통해 보여줍니다.

    If Err <> 0 Then
        MsgBox Err.Description, , "에러코드 : " & Err.Number
    End If

End Sub

Step 2: 합계와 평균을 말하게 하기

이번에는 특정 영역의 합계와 평균값이 얼마인지 말하도록 해 볼까요? 아래 버튼을 클릭하면, 음성과 셀을 통해 계산 결과를 알 수 있습니다.

Sub SayCalcResult()

    Dim lngSum As Long
    Dim lngAverage As Long
    Dim strSpeech As String

    '워크시트 함수인 Sum과 Average를 이용하여 'MyRange' 영역의 합계와 평균을 구합니다.
    lngSum = Application.WorksheetFunction.Sum(Range("MyRange"))
    lngAverage = Application.WorksheetFunction.Average(Range("MyRange"))

    strSpeech = strSpeech & "The sum of the values " & lngSum & " and "
    strSpeech = strSpeech & "The average values " & lngAverage
    'Speak 메서드의 인수로 전달해 줄 문자열을 만듭니다.

    Range("Result") = strSpeech
    Application.Speech.Speak strSpeech

End Sub

Step 3: 사용자 정의 함수에서 말하게 하기

간단하지요? 이번에는 사용자 정의 함수에 이것을 이용하는 예제를 하나 살펴보겠습니다.

위와 같은 '영업사원별 판매실적 집계표'가 있다고 가정합니다. 지점 전체의 판매달성률이 95%를 넘었느냐 여부에 따라 메시지를 다르게 하여 셀에 표시하고 또 엑셀이 말하도록 해 볼까요?

먼저, 다음과 같은 초간단 사용자 정의 함수를 하나 만듭니다.

Function TellMe(strXXX)
    Application.Speech.Speak strXXX
    TellMe = strXXX
End Function

이제 임의의 셀(예를 들면 E78 셀)에, 다음과 같은 수식을 입력하고 엔터키를 눌러보세요.

=IF(D78>=0.95,TellMe("You did a good job!"),TellMe("Just so-so"))

많이 응용해 보시기 바랍니다.

다음 시간에…

정리 — 엑셀이 말하게 하는 방법

자주 묻는 질문 (FAQ)

마치며

Speak 메서드 하나면 엑셀도 말을 합니다. 재미삼아 시작해도 좋고, 계산 결과를 귀로 확인하는 용도로 응용해도 좋으니 여러분만의 아이디어를 더해 보세요!