2

我有一个 9 行的表格，每行有 4 个逻辑元素。每行只能有 1 个“真实”条件（类比可能是：Row1-eyes “Blue”、“Green”、“Grey”、Brown”。Row2-hair “Blond(e)”、“Brunette”、 “Redhead”，“None”......等等。）。这些实际上是用户表单上的“单选按钮”。它们目前正常运行，但 100% 手动运行 - 我需要保留该功能。

我的问题是我还希望能够使用在其他地方确定的“标准”配置来重置它们。按钮标记为 B11 - B49

在“其他地方”中，我有以下示例代码，它创建了我想要将按钮设置为的值：

`Sub bMostCommon() 'This is the most common profile
For iRow = LBound(xLiabilities, 1) To UBound(xLiabilities, 1)
    For iCol = LBound(xLiabilities, 2) To UBound(xLiabilities, 2)
        xLiabilities(iRow, iCol) = False
    Next iCol
Next iRow

'store commomn settings
xLiabilities(1, 1) = True 
xLiabilities(2, 2) = True 
xLiabilities(2, 3) = True 
xLiabilities(1, 4) = True 
xLiabilities(1, 5) = True 
xLiabilities(1, 6) = True 
xLiabilities(1, 7) = True 
xLiabilities(1, 8) = True 
xLiabilities(2, 9) = True
end sub

初始变量的尺寸如下：

Dim xLiabilities(1 To 4, 1 To 9)
Dim iRow As Integer, iCol As Integer

这将创建一个二维数组，我想将其映射到相应的单选按钮上。

在包含单选按钮数组的用户窗体中，我有以下代码来创建按钮名称：

    For iRow = LBound(xLiabilities, 1) To UBound(xLiabilities, 1)
For iCol = LBound(xLiabilities, 2) To UBound(xLiabilities, 2)
    mRadioButton = "B" & iRow & iCol
    Debug.Print "xLiabilities(" & iRow & "," & iCol & ")" '&
    Debug.Print "Radio Button"; mRadioButton
    Next iCol
Next iRow

我相信通过研究 debug.print 结果，这会产生正确的输出，但我看不出有办法提取输出数据并使用它（例如 B23.Value = Array(2,3).Value 等等，对于所有 36 个单选按钮/元素。

可以这样做还是我错过了更简单的方法？

4

1 回答 1

1

在用户窗体上，您可以使用以下命令访问特定控件：

Me.Controls("yourControlName")
于 2012-08-31T00:03:58.453 回答