momo
2022/07/29 (金) 15:53:37
9a1c9@94ff5
ご想像の通りでして、仰ることもごもっともです。
そうではありますが、どうしてもやりたいと思っていまして。
フォントは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
通報 ...