Выровняйте вправо две части строки

Question

Я хотел бы детализировать ввод данных в следующем формате (столбцы 2 и 3 выровнены по правому краю).

Flange Inside Diameter                     B         987.000  mm
Flange Outside Diameter                    A        1500.000  mm
Flange Thickness                           t        240.0000  mm
Thickness of Hub at Small End             g0         40.0000  mm
Thickness of Hub at Large End             g1         80.0000  mm
Length of Hub                              h         60.0000  mm

Я думаю, что одним из подходов может быть функция RSET:

Dim P_Des As Double Dim MyString1

MyString1 = Space(40) RSet MyString1 = "B0"
Debug.Print "Flange Inside Diameter" & MyString1 & " mm"

Answer 1

Открытая функция AlignString (ByVal String1 как строка, ByVal String2 как строка, ByVal String3 как строка, необязательная строка 4 как строка = "mm", _ Необязательный bSpace1 As Byte = 40, Необязательный bSpace2 As Byte = 4, Необязательный bSpace3 As Byte = 16) As String

Dim sStringvar1 As String
Dim sStringvar2 As String
Dim sStringvar3 As String

sStringvar1 = Space(bSpace1)
sStringvar2 = Space(bSpace2)
sStringvar3 = Space(bSpace3)

LSet sStringvar1 = String1
RSet sStringvar2 = String2
RSet sStringvar3 = String3
AlignString = " " & sStringvar1 & sStringvar2 & sStringvar3 & "  " & String4

Функция завершения

Answer 2

Попробуйте это:

Right(Space(40) & "Your Text", 40)

Позже вы можете ОТПРАВИТЬ пробелы в случае необходимости.

Надеюсь, это поможет.