excel VBA 負數為0

將下方程式碼複製到自己巨集段落,將會針對你目前選取的每一個儲存格,逐一執行以下動作
1. 檢查這個儲存格的內容是不是數字(例如不是文字或空白)
2. 如果這個儲存格的數值是負數,就執行下一行
3. 把這個儲存格的值改成 0
Sub ReplaceNegativeWithZero()
Dim cell As Range
For Each cell In Selection
'檢查這個儲存格的內容是不是數字
If IsNumeric(cell.Value) Then
'如果這個儲存格的數值是負數,就執行下一行
If cell.Value < 0 Then
'把這個儲存格的值改成 0
cell.Value = 0
End If
End If
Next cell
End Sub【教學】Excel VBA 如何設定當數值為負數時顯示為0?超簡單馬上學會!
