Форматирование номера телефонов - VBA

Question

У меня есть большой набор данных - 10 000 записей с номерами телефонов:

Phone_N 
5656666666 
6676767677 
6767677777 
5555555555 
5555567888 
6666777777 

Мне нужно форматировать нравится:

Phone_N 
(565) 666-6666 
(222) 767-3333 
(676) 777-7777 

и т.д ....

Мои данные уже не имеют пробелов, «-», «/» или любых других символов.

Его просто нужно было отформатировать в правильном формате телефона.

Было бы очень полезно, если бы вы могли указать мне правильное направление для начала.

Answer 1

Это можно сделать в VBA. Для этого вы можете использовать следующее.

Dim rs As DAO.Recordset, TempN As String 
Set rs = CurrentDb.OpenRecordset("SELECT Phone_N FROM MyTableName", dbOpenDynaset) 

If (rs.RecordCount <> 0) Then 
    rs.MoveFirst 
    Do While rs.EOF <> True 
    TempN = rs.Fields("[Phone_N]").value 
    rs.Edit 
    rs.Fields("[Phone_N]").value = "(" & Left(TempN, 3) & ") " & _ 
            Left(Right(TempN, 7), 3) & "-" & _ 
            Right(TempN, 4) 
    rs.Update 
    rs.MoveNext 
    Loop 
End If 

Answer 2

не нужно использовать VBA, просто попробуйте Notepad ++, отредактируйте свои данные в шаблоне cloumn.

Answer 3

Вы можете использовать Format Function форматировать Phone_N, как вы хотите. Я не уверен, является ли Phone_N текстовым или числовым типом данных, но следующий пример примет вид: Format.

Phone_N = 2227673333 ' (Phone_N is numeric) 
? Format(Phone_N, "(###) ###-####") 
(222) 767-3333 
Phone_N = "2227673333" ' (Phone_N is text) 
? Format(Phone_N, "(###) ###-####") 
(222) 767-3333 

Answer 4

Вы можете использовать UDF (определенная пользователем функция)

приклеить ниже код в стандартный модуль в VBE (Visual Basic Editor) ALT + F11 право щелкните в любом месте окна Проводника проекта » Вставить » Модуль

после форматирования использовать ADO, чтобы обновить свою таблицу

Function FORMAT_NUMBERS(r As Range) 
    FORMAT_NUMBERS = "(" & Left(r, 3) & ") " & Right(Left(r, 6), 3) & "-" & Right(r, 4) 
End Function 

пример