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

VBAで
 ・数値が正か負か(マイナスかマイナスでないか)を判定
できます!

VBA関数である
 ・Sgn関数
により実現できます!

PR

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

「判定したい数値」を指定します(9行目)。

「Sgn関数」により、「数値が正か負か(マイナスかマイナスでないか)」を取得します(12行目)。
※「正(マイナスでない)」の場合、「1」が返ります。
※「
(マイナス)」の場合、「1」が返ります。
※「0」の場合、「0(=上記以外)」が返ります。

IF文により、「数値が正か負か(マイナスかマイナスでないか)」を判定します(15~21行目)。

PR

実行結果

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

実行結果
実行結果
PR

参考

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

●Sgn関数

タイトルとURLをコピーしました