Microsoft Access 掲示板

全角文字が含まれていても揃うように修正しました。

Public Function Tab2Spaces(s As String, n As Long)
    Dim lines: lines = Split(s, vbLf)
    Dim l
    For Each l In lines
        Dim a: a = Split(l, vbTab)
        Tab2Spaces = RTrim(Tab2Spaces) & vbLf
        Dim i
        For Each i In a
            Dim num As Long
            num = n - LenB(StrConv(i, vbFromUnicode))
            If num < 0 Then num = 0
            Tab2Spaces = Tab2Spaces & i & Space(num)
        Next
    Next
    Tab2Spaces = Mid(Tab2Spaces, 2)
End Function