Microsoft Access 掲示板

Microsoft Access 掲示板

Excelのセル内にTABを入れる / 8

9 コメント
views
4 フォロー
8
hatena 2022/07/29 (金) 16:19:12 >> 5

フォントは等幅フォントにしてください。
半角文字が前提です。全角文字が含まれるとずれます。
第2引数で指定した数字より長い単語があるとずれまず。

通報 ...
  • 9
    hatena 2022/07/29 (金) 20:59:08 修正 >> 8

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

    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

    画像1