概要

CInt関数は、Excel VBAで数値や文字列を整数に変換するための関数です。小数点を含む数値や、数値を表す文字列を整数型（Integer）に変換する際に利用します。変換時には四捨五入が行われ、実数部分が最も近い整数に丸められます。データの整合性を保ちながら数値処理を行う際に非常に便利です。

構文

CInt(式)

パラメータ

• 式

  整数に変換する数値、または数値を含む文字列を指定します。小数や数値の文字列を指定できますが、非数値の文字列はエラーの原因となります。

戻り値

指定された数値や文字列を整数型（Integer）に変換して返します。範囲外の数値を変換しようとすると、エラーが発生します。

説明

CInt関数は、データの型変換を行う際に非常に役立ちます。例えば、ユーザー入力や計算結果を整数に変換して処理する場合に使用されます。小数点以下の数値は四捨五入され、0.5以上の部分が切り上げられ、0.5未満の部分が切り捨てられます。変換できる範囲は、-32,768から32,767の間の数値です。

• 四捨五入の動作

  CInt関数は、変換時に小数点以下を四捨五入します。たとえば、CInt(2.5)は3、CInt(2.4)は2になります。

• 変換範囲の制限

  変換できる値の範囲はInteger型の範囲内である必要があります。それを超える数値はエラーを引き起こします。

• エラー処理の必要性

  変換対象が非数値の場合や範囲外の数値を変換しようとするとエラーが発生するため、事前の入力チェックが重要です。

使用例

小数を整数に変換する

Sub ConvertFloatToInteger()
    Dim num As Double
    Dim intNum As Integer
    num = 4.7

    ' 小数を整数に変換（四捨五入）
    intNum = CInt(num)
    MsgBox "変換後の整数: " & intNum  ' 結果: 5
End Sub

数値文字列を整数に変換する

Sub ConvertStringToInteger()
    Dim strNum As String
    Dim intNum As Integer
    strNum = "123"

    ' 文字列を整数に変換
    intNum = CInt(strNum)
    MsgBox "変換後の整数: " & intNum  ' 結果: 123
End Sub

四捨五入の動作確認

Sub TestRounding()
    MsgBox "CInt(2.5) = " & CInt(2.5)  ' 結果: 3
    MsgBox "CInt(2.4) = " & CInt(2.4)  ' 結果: 2
End Sub

非数値の文字列を変換した場合のエラーハンドリング

Sub ConvertInvalidString()
    Dim strInvalid As String
    Dim intNum As Integer
    strInvalid = "ABC"

    On Error GoTo ErrorHandler
    intNum = CInt(strInvalid)  ' ここでエラーが発生
    MsgBox "変換後の整数: " & intNum
    Exit Sub

ErrorHandler:
    MsgBox "エラーが発生しました: " & Err.Description
End Sub

備考

• 範囲外の数値変換について

  CInt関数はInteger型の範囲内の数値にしか変換できません。範囲を超える数値を変換しようとすると、「オーバーフローエラー」が発生します。その場合、CLng関数（Long型への変換）などの代替手段を検討してください。

• 文字列の変換における注意点

  変換対象の文字列が非数値の場合や数値のフォーマットが不適切な場合、エラーが発生します。IsNumeric関数で事前に数値チェックを行うことで、エラーを防ぐことが可能です。

• 小数点の四捨五入の特性

  CInt関数は通常の四捨五入ルール（0.5以上を切り上げ、0.5未満を切り捨て）に従いますが、金融や特定の業務用に異なる丸め方法が必要な場合は、Round関数を併用することが望ましいです。

CInt関数は、整数への変換を簡単に行える便利なツールですが、範囲やエラーハンドリングに注意して使用する必要があります。適切に使いこなすことで、データ処理の信頼性と効率性が向上します。