Chuyển đổi số điện thoại (Microsoft Excel)
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: