2009年9月14日星期一

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

0 评论:

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱