VBA：Worksheet_SelectionChange 工作表 觸發應用 (二)

自動設定格式，點選儲存格，自動設定成指定格式。

指定成正數為0.00格式，負數設定成(設定紅色)

 Private Sub Worksheet_SelectionChange(ByVal TARGET As Range)   

        If ISNUMERIC(TARGET )=TRUE Then                        

        ACTIVESHEET.RANGE(TARGET.ADDRESS).NumberFormatLocal = "0.00;[紅色](0.00)" 

      End If

End

OR

Private Sub Worksheet_SelectionChange(ByVal TARGET As Range)   

        If ISNUMERIC(TARGET )=TRUE Then                        

        TARGET.NumberFormatLocal = "0.00;[紅色](0.00)" 

      End If

End Sub