それでは、最もメモリー容量が小さい変数であるバイト型を活用してみましょう。
バイト型の箱を２つ用意して、次のように、それぞれの箱に異なる数字を入れて、２つの数字を足したり、引いたりするマクロを考えてみてください。
などについては、Cellsを２回利用してください。a=は文字で、12は数字です。
文字の場合と数字の場合では、右辺に違いがありましたね。
解答例は、例によって30行下に示します。
解答例
Private Sub CommandButton1_Click()
Dim a As Byte, b As Byte
a = 12
b = 3
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
さて、ここで問題です。
最も小さい箱（バイト型）は０から２５６までの整数しか扱えません。
上のプログラムにおいて
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
と変更するとどうなると思いますか。
答えは次話で。
