Добавление элементов управления во фрейм в пользовательской форме Excel с помощью VBA

Моя вариация на тему выше. Это macros-vba только для набора кнопок excel-macro 4x4. Создайте пользовательскую visual-basic-applications форму и добавьте ее в свой ms-excel код. Те же концепции можно vba-macros использовать с вашими ярлыками excel (или посмотрите предыдущий ms-excel ответ):

Private cmdLots(20) As MSForms.CommandButton

Private Sub UserForm_Initialize()
For i = 1 To 4
For j = 1 To 4
    k = i + (4 * j)
    Set cmdLots(k) = UserForm2.Controls.Add("Forms.CommandButton.1", "cmd1")
    With cmdLots(k)
        .Top = i * 25
        .Left = (j * 80) - 50
        .BackColor = RGB(50 * i, 50 * j, 0)
        .Caption = "i= " & i & "  j= " & j
    End With
Next j
Next i
End Sub

vba

excel

userform

2022-10-21T21:10:20+00:00
Вопросы с похожей тематикой, как у вопроса:

Добавление элементов управления во фрейм в пользовательской форме Excel с помощью VBA