Private Sub CommandButton1_Click()
Dim a As Byte, b As Byte
a = 12
b = 15
Cells(6, 1) = "a="
Cells(6, 2) = a
Cells(7, 1) = "b="
Cells(7, 2) = b
Cells(8, 1) = "a+b="
Cells(8, 2) = a + b
Cells(9, 1) = "a-b="
Cells(9, 2) = a - b
End Sub
と変更すると、
オーバーフローというエラーを起こします。
１２－１５＝－３ですから、
メモリーが最も小さい変数であるバイト型の範囲０から２５６の中にありません。
オーバーは範囲を上回るとか、外れるという意味です。
フローは流れるという意味です。
要するにオーバーフローで範囲から外れる計算を行おうとしたという意味です。
オーバーフローしたときの対処は、終了ボタンを押せばよいのです。
終了ボタンを押すと
が消えます。そして、Alt+F11によって、VBAに戻り、エラーした場所を修正します。
Dim a As Byte, b As ByteをDim a As Integer, b As Integer
と訂正すれば問題は解決します。
なぜなら、Byte型の範囲は０から２５６であるのに対して、
Integer型の範囲は-32,768～32,767であるからです。
Byte型同士の計算a - bの結果もByte型になるということにVBAの文法でなっているからです。
あるいは、
Cells(9, 2) = a - bをCells(9, 2) = CInt(a) - CInt(b)
と修正しても問題を解決できて正しい計算結果を得ることができます。
最もメモリーの小さい変数（Byte型）の活用ということに絞れば、解決法は
Cells(9, 2) = CInt(a) - CInt(b)
ということになります。
CInt(a)の意味は、Byte型のaを強制的にInteger型に変更するということです。
これをキャストといいます。
キャスト＝強制的な型変更です。
キャストという言葉覚えてください。
