Question

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

在2月中看起来像这样十二月____________二月

这是我的代码：

'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

标签之间的VBA UserForm空间算法

0 个答案: