Msgbox tab spacing düzenlemesi yapabileceğiniz bir cetvel (klavuz) çizgisine sahip değildir. vbTab ile tab spacing ekleyebilirsiniz ancak metinlerinizin uzunlukları farklı olduğundan ve klavuz çizgisi kontrolü olmadığından istediğiniz gibi düzenli görüntüleme elde edemezsiniz.

Bunun yerine aşağıdaki örnek koddaki gibi sütun ve bu sütunların genişliklerinin tanımlaması ile mesajınızın gerekli bölümlerini bu sütunlara işleyebilir,

Sub MsgBoxSpacing()

Dim msgValue As String

    Const Clwdt1 As Long = 35

    Const Clwdt2 As Long = 35

    Const Clwdt3 As Long = 35

    

    msgValue = AppendSpace("Son Gün", Clwdt1) & vbTab & AppendSpace("Plaka", Clwdt2) & _

        vbTab & AppendSpace("Araç Tipi", Clwdt3)

    msgValue = msgValue & vbNewLine & AppendSpace("01.01.1990", Clwdt1) & vbTab & _

        AppendSpace("34 ABC 34", Clwdt2) & vbTab & AppendSpace("Dorse", Clwdt3)

    msgValue = msgValue & vbNewLine & AppendSpace("02.01.1990", Clwdt1) & vbTab & _

        AppendSpace("35 XYZ 35", Clwdt2) & vbTab & AppendSpace("Dorse", Clwdt3)

    

    MsgBox msgValue, vbOKOnly

    

End Sub

Bu fonksiyon ile bu sütunlar arası düzenli boşlukları yerleştirebilirsiniz.

Private Function AppendSpace(textValue As String, textLength As Long) As String



Dim tmp_str As String

    If Len(textValue) > textLength Then

        tmpstr = Left(textValue, textLength)

    Else

        tmpstr = textValue & Space(textLength - Len(textValue))

    End If

    

    Debug.Print Len(tmpstr)



    AppendSpace = tmpstr

    

    tmpstr = vbNullString

End Function

Bu kodu kendi çalışmanıza uyarlayabilirsiniz ne yazık ki zaman sıkıntısı nedeni ile ben üzerinde çalışamıyorum şu an.