Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
整数値を判定する
投稿日時: 21/05/11 22:49:11
投稿者: バルバロッサ

非常に単純な質問ですが、VBAの中で数値を判断するときにIsNumeric関数があります。
例えば
Dim f As Boolean
    f = IsNumeric("123456")
    If f = True Then
        Debug.Print "OK"
    Else
        Debug.Print "NG"
    End If
でできると思います。
では、入力した整数値かどうかならば、何か関数はあるのでしょうか?
よろしくお願いいたします。

回答
投稿日時: 21/05/11 23:43:09
投稿者: WinArrow
投稿者のウェブサイトに移動

小数点以下が存在するか?
ということですか?
 
Dim a As Double
 
    a = 100
    Debug.Print a - Int(a) = 0
 
結果がTrue ならば整数

回答
投稿日時: 21/05/11 23:48:02
投稿者: WinArrow
投稿者のウェブサイトに移動

文字列の場合
 
Dim a As String
 
    a = "100.23"
    Debug.Print CDbl(a) - Int(CDbl(a)) = 0

投稿日時: 21/05/12 01:03:26
投稿者: バルバロッサ

WinArrow様
 
遅い時間にありがとうございます。
便利な関数はなさそうですね。
 
整数であるを言いたければ、小数が存在しないとしたら良いのですね。。。
基本的なことを忘れておりました。
Dim a As Double
    a = 100.22
    If a - Int(a) = 0 Then
        Debug.Print "OK"
    Else
        Debug.Print "NG"
    End If
で、判定できました。
 
ありがとうございました。