EXCEL VBA - 格式

Sub 格式()

Do While ActiveCell.Value <> Empty


Select Case ActiveCell.Value

Case Is > 900000000

Selection.NumberFormatLocal = "0000-000-000"

Case Is < 90000000

Selection.NumberFormatLocal = "(00)000-0000"

Case Else

Selection.NumberFormatLocal = "(00)0000-0000"
End Select

ActiveCell.Offset(1, 0).Select

Loop



End Sub