时间戳

首页 > 解决方案 > 如何在 VBA 中将自动生成的单选按钮设置为 true？

excel - 如何在 VBA 中将自动生成的单选按钮设置为 true？

问题描述

我正在创建一个 Excel 工作表，其中根据特定参数的值自动生成单选按钮。请参考此内容以获得清晰的理解：

一组单选按钮被复制n了多次。其中n是引用参数的行数。

应根据条件检查此自动生成矩阵中的每个单选按钮，并且应在与条件匹配的一组中将十二个单选按钮之一设置为 True。这里的主要复杂之处在于，每组单选按钮都会根据要求复制到所需的行，因此单选按钮会生成 n*12 次，我不知道如何对自动生成的每个单选按钮进行编程。

我需要知道，我可以使用哪个功能来满足我的要求。

我使用以下代码创建了矩阵：

    Dim n, m, i, j, x, k, a As Integer
n = (Sheets("ALLO").Range("E4").Value) * 2       
x = Sheets("ALLO").Range("E3").Value
m = (Sheets("ALLO").Range("E5").Value) + 1
a = m

For i = 2 To n Step 2                               
Sheets("Dummy_Result").Range("A2:M2").Copy Destination:=Sheets("Results").Range("A" & i)
Next i

For j = 3 To n Step 2
Sheets("Dummy_Result").Range("A3:M3").Copy Destination:=Sheets("Results").Range("A" & j)
Next j

For k = n + 1 To m Step 1
Sheets("Dummy_Result").Range("A3:M3").Copy Destination:=Sheets("Results").Range("A" & k)
Next k

End Sub

我更新的程序，用于根据“m”的值自动生成范围内的按钮。生成的按钮数量应与“m”的值成正比。当我使用动态范围而不是固定范围时，此程序不起作用（如 Mr.JosephC 所建议）

Sub Test()
    Dim n, m, i, j, x, k, a As Integer
    n = (Sheets("ALLO").Range("E4").Value) * 2       'No of Tack stations
    x = Sheets("ALLO").Range("E3").Value
    m = (Sheets("ALLO").Range("E5").Value) + 1
    a = m

    For i = 2 To n Step 2                               'Correct
    Sheets("Dummy_Result").Range("A2").Copy Destination:=Sheets("Results_1").Range("A" & i)
    Call AddOptionButtons(Sheets("Results_1").Range("B & m: M & m"))
    Next i

    For j = 3 To n Step 2
    Sheets("Dummy_Result").Range("A3").Copy Destination:=Sheets("Results_1").Range("A" & j)
Call AddOptionButtons(Sheets("Results_1").Range("B & m: M & m"))

    Next j

    For k = n + 1 To m Step 1
    Sheets("Dummy_Result").Range("A3").Copy Destination:=Sheets("Results_1").Range("A" & k)
Call AddOptionButtons(Sheets("Results_1").Range("B & m: M & m"))
    Next k


End Sub

Private Sub AddOptionButtons(ByRef TargetRange As Range)

    Dim oCell As Range
    For Each oCell In TargetRange
        oCell.RowHeight = 20
        oCell.ColumnWidth = 6
        Dim oOptionButton As OLEObject
        Set oOptionButton = TargetRange.Worksheet.OLEObjects.Add(ClassType:="Forms.OptionButton.1", Left:=oCell.Left + 1, Top:=oCell.Top + 1, Width:=15, Height:=18)
        oOptionButton.Name = "ob" & oCell.row & "_" & oCell.Column 
        'oOptionButton.Object.Caption = "Button"             oOptionButton.Object.GroupName = "grp" & oCell.Top
    Next
End Sub**strong text**

请在此处参考 Dummy 结果

标签： excelvba

解决方案

这只是让你开始的东西。假设您有 6 个表单控件选项按钮，如下所示：

在此处输入图像描述

然后，如果您将它们传递到一个数组中，buttons1您可以通过它们的索引循环它们并True根据另一个具有条件的数组将它们的值分配给condition1：

Public Sub TestMe()

    Dim condition1 As Variant
    condition1 = Array(False, True, False, False, False, False)

    Dim buttons1 As Variant
    buttons1 = Array("Option Button 2", "Option Button 3", "Option Button 4", _
                    "Option Button 5", "Option Button 6", "Option Button 7")

    Dim cnt As Long
    For cnt = LBound(buttons1) To UBound(buttons1)
        With Worksheets(1).Shapes(buttons1(cnt)).OLEFormat
            If condition1(cnt) Then .Object.Value = True
        End With
    Next cnt

End Sub

因此，在运行代码之后，只要condition1数组中的第二个单元是True，Option Button 3就会选择 。

推荐阅读