VBA マイナス表記にも対応するには

質問

現段階で正の数表記にしていますが
負の数表記にも対応が出来たらと思っております。
どう変更したらよろしいでしょうか？

Public Function isAcceptNum(ByVal tgtTxb As MSForms.TextBox) As Boolean
'## 数値チェック

If tgtTxb.Value = "" Then '空白だったら
isAcceptNum = True
Exit Function
End If

Dim chkText As String '文字列型の変数宣言
If IsNumeric(tgtTxb.Value) Then '数値だったら
If CDbl(tgtTxb.Value) < 0 Then '負の数値だったら
chkText = "正の数値"
ElseIf CDbl(tgtTxb.Value) <> Int(tgtTxb.Value) Then '整数じゃなければ
chkText = "整数"
End If
Else '数値じゃなければ
chkText = "数値"
End If

If chkText <> "" Then 'チェックワードがあれば
chkText = "'" & tgtTxb.Tag & "'には" & chkText & "を入力してください" 'メッセージを成形
MsgBox chkText, vbOKOnly + vbExclamation, "注意" 'メッセージボックスを出力
Else '正の整数だったら
isAcceptNum = True
End If
End Function

回答No.3

kkkkkm · ベストアンサー

マイナスでもプラスでもメッセージを出さないようにしたいということでしょうか。

If IsNumeric(tgtTxb.Value) Then '数値だったら
If CDbl(tgtTxb.Value) <> Int(tgtTxb.Value) Then '整数じゃなければ
chkText = "整数"
End If
Else '数値じゃなければ
chkText = "数値"
End If

お礼

教えてくださった部分はクリアしました。
違うエラーが出てしまったので見てみます！
ありがとうございます。

回答No.2

kkkkkm

何がやりたいのかよくわからないのですが
No.1は以下のようにということです。

Ifのところだけ
If IsNumeric(tgtTxb.Value) Then '数値だったら
If CDbl(tgtTxb.Value) < 0 Then '負の数値だったら
chkText = "正の数値"
ElseIf CDbl(tgtTxb.Value) > 0 Then '正の数値だったら
chkText = "負の数値"
ElseIf CDbl(tgtTxb.Value) <> Int(tgtTxb.Value) Then '整数じゃなければ
chkText = "整数"
End If
Else '数値じゃなければ
chkText = "数値"
End If

お礼

ありがとうございました！

補足

返品伝票を作る際、返品なので商品の数量の所をマイナス表記にしてマイナス伝票を作りたいと思っております。
普通の納品書の時は、プラス表記のままでどっちにも対応するようなものを作りたいです。
ifの所を変えてやってみましたが
エラーメッセージで出来ないような状態です。。。

回答No.1

kkkkkm

ElseIf CDbl(tgtTxb.Value) > 0 Then '正の数値だったら
chkText = "負の数値"
と入れておくとか
ただ、0以外何を入れても注意喚起されてしまいますが…。

お礼

ありがとうございました！

補足

いつもありがとうございます！！
やってみましたが、出来ませんでした。。。
他にいい方法あったりしますか？