Microsoft Access 掲示板

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

9 コメント
views
4 フォロー
4

ご想像の通りでして、仰ることもごもっともです。
そうではありますが、どうしてもやりたいと思っていまして。

フォントはMSゴシックで、ひとまず下記のようにスペースを
埋めました。イミディエイトウインドウ上では全て字面が
合っているのですが、Excel上ではズレが生じています。

debug.print addSpace("AAA") & "BBB"

Cells(i,j).Value = addSpace("AAA") & "BBB"

debug.print Cells(i,j).Value

Function addSpace(strDept As String) As String

    addSpace = strDept & Space(40 - LenB(strDept))

End Function

通報 ...