【VBA】数値が正か負か(マイナスかマイナスでないか)を判定する【チェック】

VBAコード

ここでは例として
　・数値「–12.5」が、正か負か(マイナスかマイナスでないか)を判定
します。

Option Explicit

Sub sample()
    
    Dim targetNum As Double
    Dim result As Integer

    '判定したい数値を指定
    targetNum = -12.5
    
    '数値が正か負か(マイナスかマイナスでないか)を取得
    result = Sgn(targetNum)
    
    '数値が正か負か(マイナスかマイナスでないか)を判定
    If (result = 1) Then
        MsgBox ("正の数値です！")
    ElseIf (result = -1) Then
        MsgBox ("負の数値です！")
    Else
        MsgBox ("0です！")
    End If
    
End Sub

実行結果

数値が正か負か(マイナスかマイナスでないか)を判定できました。

参考

上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。

●Sgn関数