우리는 모두 TV에서 광고를 본 적이 있습니다. “1-800 번으로 전화하여 매우 날카로운 칼 세트를 받으십시오.” 전화 번호를 텍스트 버전 (광고에 표시된대로)에서 해당 텍스트로 표시되는 숫자로 변환해야 할 수도 있습니다. 다음 매크로 DoPhone은 변환 마법을 수행합니다.

Sub DoPhone()

Dim rngSrc As Range     Dim lMax As Long, lCtr As Long     Dim J As Integer     Dim Phone As String, Digit As String

Set rngSrc = ActiveSheet.Range(ActiveWindow.Selection.Address)

lMax = rngSrc.Cells.Count

For lCtr = 1 To lMax         If Not rngSrc.Cells(lCtr).HasFormula Then             Phone = rngSrc.Cells(lCtr).Value             For J = 1 To Len(Phone)

Digit = Ucase(Mid(Phone, J, 1))

Select Case Digit                     Case "A" To "P"

Digit = Chr((Asc(Digit) + 1) \ 3 + 28)

Case "Q"

Digit = "7"     'May want to change                     Case "R" To "Y"

Digit = Chr(Asc(Digit) \ 3 + 28)

Case "Z"

Digit = "9"     'May want to change                 End Select                 Mid(Phone, J, 1) = Digit             Next J             rngSrc.Cells(lCtr).Value = Phone         End If     Next lCtr End Sub

DoPhone 프로시 저는 수식이 포함되지 않은 셀의 정보를 변환하려고합니다. 변환 할 셀 (또는 셀)을 선택한 다음 절차를 실행하기 만하면됩니다. 그 결과 셀의 모든 텍스트가 전화기에서 해당하는 숫자로 변환됩니다. 따라서 598-TIPS는 598-8477이됩니다.

DoPhone의 작은 특징 중 하나를 주목해야하며 변경해야 할 수도 있습니다. 일부 전화기는 Q와 Z를 각각 숫자 7과 9로 인식합니다. 다른 사람들은 단순히이 숫자를 그대로 두거나 0으로 변환합니다. 여기에 쓰여진대로 DoPhone은이 문자를 7과 9로 변환합니다. 원하는 경우 Select Case 구조에서 적절한 위치를 변경할 수 있으므로 숫자로 변경됩니다. 당신의 필요에. (적절한 장소는 목록에 주석으로 표시됩니다.)

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶으면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (11802)은 Microsoft Excel 2007, 2010, 2013 및 2016에 적용됩니다.

여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

link : / excel-Converting_Phone_Numbers [전화 번호 변환].