![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
VBAで
・数値が正か負か(マイナスかマイナスでないか)を判定
できます!
![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
VBA関数である
・Sgn関数
により実現できます!
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
実行結果
数値が正か負か(マイナスかマイナスでないか)を判定できました。
![実行結果](https://excel-vba.work/wp-content/uploads/2022/02/vba_sgn_001.png)
参考
上記のVBAコードで使用した以下の詳細は、公式サイトをご確認ください。
●Sgn関数