この記事ではCByte関数の使い方と注意点について解説します。
他のよく使うVBA関数一覧はこちら。

CByte関数の使い方と注意点

CByte関数は、数値や文字列をバイト型（Byte型）に変換する関数です。
Byte型は0～255の整数値しか扱えないため、メモリを節約したいときや制御用フラグなどに利用されます。

構文

CByte(式)

式 : 変換したい数値または数値文字列
戻り値 : Byte型（0～255の整数）

使用例

数値をByte型に変換

Sub Sample()
    Dim value As Integer
    Dim result As Byte
    
    value = 123
    result = CByte(value)
    
    Debug.Print result
    Debug.Print TypeName(result)
End Sub

▶ 出力結果

123
Byte

→ 整数をByte型に変換できます。

小数をByte型に変換

Sub Sample()
    Dim value As Double
    Dim result As Byte
    
    value = 123.7
    result = CByte(value)
    
    Debug.Print result
End Sub

▶ 出力結果

→ 小数部分は四捨五入されます（銀行丸めが適用されます）。

銀行丸めとは
四捨五入で「ちょうど .5 のとき」、最も近い偶数に丸める方法です。

式	結果
CByte(0.5)	0
CByte(1.5)	2
CByte(2.5)	2
CByte(3.5)	4
CByte(4.5)	4
CByte(5.5)	6

文字列をByte型に変換

Sub Sample()
    Dim strValue As String
    Dim result As Byte
    
    strValue = "200"
    result = CByte(strValue)
    
    Debug.Print result
    Debug.Print TypeName(result)
End Sub

▶ 出力結果

200
Byte

→ 数値文字列をByte型に変換できます。

⚠️注意

範囲外の値はオーバーフロー

Byte型は0～255の範囲しか扱えません。
範囲外の値を変換しようとするとエラーになります。

Sub Sample()
    On Error Resume Next

    Dim result As Byte
    
    result = CByte(300)
    
    If Err.Number <> 0 Then Debug.Print "エラー：" & Err.Description
    
    On Error GoTo 0
End Sub

▶ 出力結果

エラー：オーバーフローしました。

変換できない文字列はエラー

Sub Sample()
    On Error Resume Next

    Dim result As Byte

    result = CByte("abc")

    If Err.Number <> 0 Then Debug.Print "エラー：" & Err.Description

    On Error GoTo 0
End Sub

▶ 出力結果

エラー：型が一致しません。

小数は銀行丸めされる

少数を変換する際の四捨五入では、銀行丸めも行われます。(詳細は上記表を参照)
意図と違う結果になる可能性がある点に注意しましょう。

その他のVBA関数

【Excel VBA】VBAでよく使う関数一覧＆基本の使い方

参考リンク

データ型変換関数（Microsoft Learn）