ms-access - 格式化电话号码 ms 访问

Question

抱歉，关于 MsAccess 的另一个问题。

我有数据集：

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 中执行此操作？

Answer 1

您可以使用 Instr、mid、Left 和 Right 函数来完成这项工作。我做了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)

由于并非所有电话号码的格式都相同，因此您必须为每个不同格式的电话号码制定不同的规则（您需要一个检查“-”和一个检查“。”您还可能想要过滤掉空格

Answer 2

在 Access 中，您将“输入掩码”设置为：“（“000”）“000”-“0000;1;_

所有参考资料http://office.microsoft.com/en-ca/access-help/input-mask-syntax-and-examples-HP005187550.aspx

Answer 3

输入掩码仅适用于新数据。您将需要创建一个宏或函数来更新您现有的数据以符合您所需的格式