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 回答