Sub 演算子1()
Dim i As Integer, rr As Integer, cc As Integer
For i = 1 To 256
    rr = i \ 16
    cc = i Mod 16
    If cc = 0 Then
        cc = 16
        rr = rr - 1
    End If
        If rr = 0 Then Cells(1, cc + 1) = Hex(cc - 1)
        If cc = 1 Then Cells(rr + 2, cc) = Hex(rr)
    Cells(rr + 2, cc + 1) = i - 1
Next
Rows("1").HorizontalAlignment = xlCenter
Columns("A").HorizontalAlignment = xlCenter
Range("A1:Q1").Interior.ColorIndex = 37
Range(Cells(1, 1), Cells(rr + 2, 1)).Interior.ColorIndex = 37
 
End Sub

Sub 演算子2()
Dim suzi As Integer, rr As Integer, cc As Integer, abc As String
 suzi = InputBox$("指定した数字の場所を選択", "場所選択")
    rr = suzi \ 16
    cc = suzi Mod 16
 
        Cells(rr + 2, cc + 2).Select
 
    abc = Chr((cc + 2) + 64)
    MsgBox rr + 2 & abc & "セルを選択しました" & Chr(10) & Chr(10) & _
    "なお、10進数「" & suzi & "」は16進で【" & Hex(suzi) & "】です。"
End Sub

Sub 演算子3()
Dim a1 As Integer, b1 As Integer, c1 As Variant, d1 As Variant
Dim a2 As String, b2 As String, c2 As Variant, d2 As Variant
 
a1 = 11: b1 = 22: a2 = 11: b2 = 22: a3 = 11: b3 = 22
c1 = a1 & b1
d1 = a1 + b1
 
c2 = a2 & b2
d2 = a2 + b2
 
c3 = a3 & b3
d3 = a3 + b3
 
MsgBox "a1 " & Chr(38) & " b1=" & c1 & Chr(10) _
      & "a1 + b1=" & d1 & Chr(10) & Chr(10) _
      & "a2 " & Chr(38) & " b2=" & c2 & Chr(10) _
      & "a2 + b2=" & d2 & Chr(10) & Chr(10) _
      & "a3 " & Chr(38) & " b3=" & c3 & Chr(10) _
      & "a3 + b3=" & d3
End Sub