Tất cả chúng ta đều đã thấy quảng cáo trên TV: “Gọi 1-800-NHẬN NÀY để có bộ dao siêu sắc bén của bạn”. Bạn có thể phải đối mặt với nhu cầu chuyển đổi số điện thoại từ phiên bản văn bản (như hiển thị trên quảng cáo) sang các số được thể hiện bằng văn bản đó. Macro sau, DoPhone, sẽ thực hiện phép chuyển đổi cho bạn:

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

Quy trình DoPhone cố gắng chuyển đổi thông tin trong bất kỳ ô nào không chứa công thức. Tất cả những gì bạn cần làm là chọn ô (hoặc các ô) bạn muốn chuyển đổi, sau đó chạy quy trình. Kết quả là bất kỳ văn bản nào trong các ô đều được chuyển đổi thành các chữ số tương đương trên điện thoại. Do đó, 598-TIPS trở thành 598-8477.

Bạn cần lưu ý một điểm đặc biệt nhỏ của DoPhone và bạn có thể muốn thay đổi nó. Một số điện thoại nhận dạng chữ Q và Z tương ứng là chữ số 7 và 9. Những người khác chỉ cần bỏ đi những chữ số này hoặc chúng được chuyển đổi thành 0. DoPhone, như được viết ở đây, chuyển đổi những chữ cái này thành 7 và 9. Bạn có thể thay đổi vị trí thích hợp trong cấu trúc Chọn trường hợp, như mong muốn, vì vậy chúng được thay đổi thành số theo theo nhu cầu của bạn. (Những chỗ thích hợp được ghi chú trong danh sách.)

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (11802) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.

Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: