wrote :: 2006.01.17

トップページ > Excel > VBA > MsgBoxで文字位置を揃える

MsgBoxで文字位置を揃える

下図のようなデータがあったとします。これをMsgBoxで表示してみましょう。



Sub Sample1()
    Dim msg As String
    msg = msg & Cells(1, 1) & Cells(1, 2) & vbCrLf
    msg = msg & Cells(2, 1) & Cells(2, 2) & vbCrLf
    msg = msg & Cells(3, 1) & Cells(3, 2) & vbCrLf
    msg = msg & Cells(4, 1) & Cells(4, 2)
    MsgBox msg
End Sub



すべての文字列がくっついてしまい見にくいですね。では次のようにスペースを入れたらどうでしょう。

Sub Sample2()
    Dim msg As String
    msg = msg & Cells(1, 1) & " " & Cells(1, 2) & vbCrLf
    msg = msg & Cells(2, 1) & " " & Cells(2, 2) & vbCrLf
    msg = msg & Cells(3, 1) & " " & Cells(3, 2) & vbCrLf
    msg = msg & Cells(4, 1) & " " & Cells(4, 2)
    MsgBox msg
End Sub



多少はましですが、見にくいのに変わりはありません。こんなときは、ワープロソフトのようにタブで桁の位置を揃えるといいでしょう。タブを表す文字コードはChr(9)です。

Sub Sample3()
    Dim msg As String
    msg = msg & Cells(1, 1) & Chr(9) & Cells(1, 2) & vbCrLf
    msg = msg & Cells(2, 1) & Chr(9) & Cells(2, 2) & vbCrLf
    msg = msg & Cells(3, 1) & Chr(9) & Cells(3, 2) & vbCrLf
    msg = msg & Cells(4, 1) & Chr(9) & Cells(4, 2)
    MsgBox msg
End Sub



Chr(9)でタブコードが挿入できるというテクニックは、これ以外にも思わぬところで役立ちます。覚えておいて損はないですよ。



[目次]に戻る