0

我有一个试图输出到文本框的名称、日期和标题列表。我希望输出的格式具有以下“列”：

姓名 | 日期 | 标题 | 索引号

由于这只是一个文本框，我必须使用制表符 [chr(9)] 来保持此表的“列”的间距。但是，由于人们有不同的长度名称，我需要能够输入不同数量的选项卡，以便每个“列”正确排列。（问题仅在名称和日期之间，其他“列”间隔正确）

我尝试了以下代码，它假设（很可能不正确）tab = 7 个空格（我尝试过其他数字）。它尝试将日期与初始日期标题标题对齐，该标题距左边缘 4 个选项卡。作为对我的符号的注释，为了简单起见，我用括号中的 [文本框] 和 [名称] 替换了文本框和名称的复杂路径。以下循环运行：

[Text Box].Text = "Name" & Chr(9) & Chr(9) & Chr(9) & Chr(9) & "Date" & Chr(9) & "Reason" & Chr(9) & "Index#" & Chr(10)

[[Begin Loop]]

[Text Box].Text = [Text Box].Text & [Name]

If Len([Name]) >= 0 And Len([Name]) < 7 Then
    [Text Box].Text = [Text Box].Text & Chr(9) & Chr(9) & Chr(9) & Chr(9)
ElseIf Len([Name])>= 7 And Len([Name]) < 14 Then
    [Text Box].Text = [Text Box].Text & Chr(9) & Chr(9) & Chr(9)
ElseIf Len([Name]) >= 14 And Len([Name]) < 21 Then
    [Text Box].Text = [Text Box].Text & Chr(9) & Chr(9)
ElseIf Len([Name]) >= 21 And Len([Name]) < 28 Then
    [Text Box].Text = [Text Box].Text & Chr(9)
End If

NOTE: I found that names that were an exact multiple of 7 were one tab too short, thus I added:

If Len([Name]) = 7 Or Len([Name]) = 14 Or Len([Name]) = 21 Then
    [Text Box].Text = [Text Box].Text & Chr(9)
End If

[[End Loop]]

文本框中的 100 多行中的大多数都正确排列，但似乎一些 len = 14 的名称（不是全部）有一个额外的选项卡。当我删除为 7 的倍数添加额外选项卡的代码时，len = 14 的某些（不是全部）名称的选项卡不够充分。

有人对此有解决方案吗？或者我可以用另一种方式表示这些数据（即不是文本框）？

4

1 回答 1

1

如果您这样做纯粹是为了视觉对齐并且不需要能够将内容复制+粘贴到 excel 或其他东西（如 CSV 等）中，那么您所做的几乎是正确的。

您将需要进行两次传递，第一次传递确定每个列的最大长度，第二次传递使用第一次传递的信息将其写出以正确对齐。

除非您使用固定宽度的字体，否则它可能会更具挑战性，因为它可能使用宽度而不是字符数来确定标签的移动方式。（对此不是 100% 确定）

更新

我尝试制作可以将工作表转换为空格对齐的字符串的东西，它可能会做你想做的事情:)

Const TABSIZE = 3

Public Function Main2(Optional ByVal SheetName As String = "Sheet1") As String
Dim Sheet As Worksheet: Set Sheet = ThisWorkbook.Worksheets(SheetName)
Dim Data As Variant
Dim Index, Row, Column As Long
Dim Max() As Integer
Data = Sheet.UsedRange.Value2
ReDim Max(LBound(Data, 2) To UBound(Data, 2))
' configure the Max() array with default values
For Index = LBound(Max) To UBound(Max)
    Max(Index) = 0
Next Index
' populate the Max() array with the maximum width
For Index = LBound(Data, 1) To UBound(Data, 1)
    For Column = LBound(Data, 2) To UBound(Data, 2)
        If Len(Data(Index, Column)) > Max(Column) Then
            Max(Column) = Len(Data(Index, Column))
        End If
    Next Column
Next Index
' add the tabsize to the max (add a gap between columns)
' note: the loop below is not required, has been rolled into the output loop
'For Index = LBound(Max) To UBound(Max)
'    Max(Index) = Max(Index) + TABSIZE
'Next Index
' output the data!
For Row = LBound(Data, 1) To UBound(Data, 1)
    For Column = LBound(Data, 2) To UBound(Data, 2)
        'Result = Result & Pad(Data(Row, Column), Max(Column))
        Result = Result & Pad(Data(Row, Column), Max(Column) + TABSIZE)
    Next Column
    Result = Result & vbCrLf
Next Row
' return it
Main2 = Result
End Function

' pad text to length with spaces
Public Function Pad(ByVal Text As String, ByVal Length As Long) As String
Pad = Text & Space(Length - Len(Text))
End Function
于 2013-04-12T00:29:06.450 回答