格式化電話號碼ms access

對不起，另一個關於MsAccess的問題。格式化電話號碼ms access

我有數據集：

Phone Number 
444-514-9864 
555-722-2273 
333-553- 4535 
000-000- 0000 
550-322-6888 
444-896-5371 
322-533-1448 
222.449.2931 
222.314.5208 
222.745.6001

我需要它看起來像（222）896-5371。如何在Ms Access或MsExcel中執行此操作？

來源

2013-09-25 hell_666

你願意爲此使用VBA嗎？有一種簡單的方法可以在vba – Gutanoth

中做到這一點，如果它可能在vba中做到這一點，並比使用Replace函數更容易....請解釋我該如何做。謝謝！ –

嗯，我確實使用了替換函數（請參閱我的答案），但是也可以篩選出2個不同字符串變量（前綴和後綴）中的前3個數字和最後7個字符，然後最後執行下列操作：'Newphonenumber =「（」＆前綴＆「）」＆後綴 – Gutanoth

您可以使用Instr ，中，左，右功能來完成這項工作。我做了1個例，與MSDN你應該能夠找出休息

Dim OldPhoneNumber As String 
Dim NewPhoneNumber As String 
Dim PreFix As String 
Dim PreFix2 As String 

' You can replace this line in Access, just make sure the full phone number is stored in "OldPhoneNumber" 
OldPhoneNumber = Worksheets(<worksheet name>).Range(<cell name>).Value 


PreFix = Left(OldPhoneNumber, InStr(1, OldPhoneNumber, "-", 1)) 
PreFix2 = Left(OldPhoneNumber, InStr(1, OldPhoneNumber, "-", 1) - 1) 

NewPhoneNumber = Replace(OldPhoneNumber, PreFix, "(" & PreFix2 & ") ") 

Debug.Print (NewPhoneNumber)

看到，因爲並非所有的電話號碼的格式相同的方式，你將不得不作出一個不同的規則爲每一個不同格式的手機號（需要1來檢查「 - 」「」和一個檢查您可能還需要篩選出空間

來源

2013-09-25 06:31:58 Gutanoth