Chr関数の全貌を出力するマクロ。
┌──────────────────────────────────────┐
│Public Sub Chr関数の全貌()                                                  │
│    Dim i As Long                                                           │
│    With ActiveCell                                                         │
│        For i = 0 To 255                                                    │
│            With .Offset(i)                                                 │
│                .Offset(, 0).Value = i                                      │
│                .Offset(, 1).Value = Chr(i)                                 │
│                With .Offset(, 2)                                           │
│                    Select Case i                                           │
│                        Case 8:     .Value = "[BS]"                         │
│                        Case 9:     .Value = "[TAB]"                        │
│                        Case 10:    .Value = "[LF]"                         │
│                        Case 13:    .Value = "[CR]"                         │
│                        Case 32:    .Value = "[SPACE]"                      │
│                    End Select                                              │
│                End With                                                    │
│            End With                                                        │
│        Next i                                                              │
│    End With                                                                │
│End Sub                                                                     │
└──────────────────────────────────────┘