vba - 标签算法之间的VBA UserForm空间

Question

我在用户表单代码中有一个算法，我用它来动态地将月份名称添加到 VBA 用户表单中。我想将月份添加 3 次作为 3 个不同类别的标题。我的问题是，在我创建的算法中，前两个月之间的空间是一个，而第二个月和第三个月之间的空间是两倍。月份值在单元格 A4 到 A7 的工作表 8 中。

uFebruary 十二月 ___January ______February 看起来像这样

这是我的代码：

'months in commission, workdays and workhours
Dim m As Integer 'm = month
Dim T As Integer 'T=TOP
Dim L As Integer 'L= loop

T = 50
For m = 1 To 3
    For L = 1 To 9
        DATA = ThisWorkbook.Worksheets(8).Range("A" & m + 3).Value
        Set dLbl = UserForm1.Controls.Add("Forms.Label.1", "dLbl", True)
        With dLbl
            .Top = 70
            If L < 4 Then
                .Left = 700 - (T * m)
            ElseIf L > 6 Then
                .Left = 190 - (T * m)
            Else
                .Left = 450 - (T * m)
            End If

            .Height = 50
            .Caption = DATA
            .Font.Bold = True
            .Font.Size = 11
            .Width = 45
            .TextAlign = fmTextAlignRight
        End With
    Next L
Next m

标签： vbaexcel