Konvertering Telefonnumre

June 6  by Eliza

Vi har alle sett annonser på TV: "Call 1-800-få dette for din sett med super-skarpe kniver." Du kan bli møtt med behovet for å konvertere telefonnumre fra tekstversjonen (som vist på annonsene) til tallene representert ved den teksten. Følgende makro, DoPhone, vil utføre konverteringen magi for deg:

Sub DoPhone ()
Dim rngSrc Som Range
Dim Imax Som Long, lCtr Som Long
Dim J As Integer
Dim Phone As String, Digit As String

Satt rngSrc = ActiveSheet.Range (ActiveWindow.Selection.Address)
Imax = rngSrc.Cells.Count

For lCtr = 1 Til Imax
Hvis ikke rngSrc.Cells (lCtr) .HasFormula Deretter
Telefonen = rngSrc.Cells (lCtr) .Value
For J = 1 Til Len (Telefon)
Digit = UCase (Mid (Telefon, J, 1))
Velg Sak Digit
Case "A" til "P"
Digit = Chr ((Asc (Digit) + 1) \ 3 + 28)
Case "Q"
Digit = "7" 'Kan være lurt å endre
Case "R" Til "Y"
Digit = Chr (Asc (Digit) \ 3 + 28)
Case "Z"
Digit = "9" 'Kan være lurt å endre
End Select
Mid (Telefon, J, 1) = Digit
Neste J
rngSrc.Cells (lCtr) .Value = Phone
End If
Neste lCtr
End Sub

Den DoPhone prosedyre prøver å konvertere informasjon i en celle som ikke inneholder en formel. Alt du trenger å gjøre er å velge cellen (eller celler) du ønsker å konvertere, og deretter kjøre prosedyren. Resultatet er at enhver tekst i cellene konverteres til sine tallekvivalenter på en telefon. Dermed blir 598-tips 598-8477.

Du bør merke en liten raritet med DoPhone, og det kan være lurt å endre det. Noen telefoner gjenkjenne bokstavene Q og Z som sifrene 7 og 9, respektivt. Andre bare la disse tallene ut, eller de er konvertert til 0. DoPhone, som skrevet her, konverterer disse brevene til 7 og 9. Du kan endre de aktuelle stedene i Select sak struktur, som ønsket, slik at de blir endret til tall i henhold dine behov. (De aktuelle stedene er kommentert i oppføringen.)

ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (2269) gjelder for Microsoft Excel 97, 2000, 2002, og 2003. Du kan finne en versjon av dette tipset for Båndet av Excel (Excel 2007 og senere) her: Konvertering Telefonnumre.