如何在Excel的TextBox中实现文本左右两侧分别对齐？

要在单个TextBox内实现标签左对齐、内容右对齐的效果，核心是利用TextBox的自定义制表位功能，无需拆分两个控件。以下是完整的宏代码：

Sub CreateAlignedTextBox()
    Dim tb As Object
    Dim tabPosition As Single
    Dim ws As Worksheet
    
    ' 指定要添加控件的工作表
    Set ws = ActiveSheet
    
    ' 创建TextBox控件
    Set tb = ws.Shapes.AddTextbox(msoTextOrientationHorizontal, _
        Left:=100, Top:=100, Width:=300, Height:=100).TextFrame2.TextRange
    
    ' 设置TextBox基础属性
    With tb.Parent.Parent ' 指向Shape对象
        .Name = "AlignedInfoBox"
        .TextFrame2.WordWrap = msoFalse
        .TextFrame2.AutoSize = msoFalse
        .TextFrame2.VerticalAnchor = msoAnchorTop
    End With
    
    ' 计算制表位位置：控件宽度减去20（边距），设置为右对齐制表位
    tabPosition = tb.Parent.Parent.Width - 20
    tb.Parent.Tabs.Add Position:=tabPosition, Alignment:=msoTabAlignmentRight
    
    ' 添加带对齐效果的文本，用vbTab分隔标签和内容
    tb.Text = "Name:" & vbTab & "Michael" & vbCrLf & _
              "Surname:" & vbTab & "Jordan" & vbCrLf & _
              "Age:" & vbTab & "59" & vbCrLf & _
              "Team:" & vbTab & "Chicago Bulls"
End Sub

关键逻辑说明 #

• 制表位设置：通过Tabs.Add添加一个右对齐的制表位，位置设为控件宽度减去少量边距，确保内容紧贴TextBox右侧。
• 文本格式：用vbTab分隔标签和内容，标签默认左对齐，内容自动跳转到制表位位置并右对齐；用vbCrLf实现换行，每行独立对齐。
• 控件属性：关闭自动换行（WordWrap = msoFalse），避免每行内容折行影响对齐效果；固定控件尺寸，防止制表位位置失效。

调整技巧 #

如果需要适配不同宽度的TextBox，只需修改tabPosition的计算值，比如根据需求调整边距（代码中为20）；如果需要更多行，直接按"标签:" & vbTab & "内容" & vbCrLf的格式追加即可。

内容的提问来源于stack exchange，提问作者Danny Coleiro