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

Answer 1

您可以使用Instr，mid，Left和Right功能来完成这项工作。我做了一个例子，用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来检查“ - ”，并且检查“。”您还可能希望过滤掉空格

Answer 2

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

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

Answer 3

输入掩码仅适用于新数据。您需要创建一个宏或函数来更新现有数据，使其与所需格式保持一致

格式化电话号码ms访问

3 个答案: