我有一个 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 个单选按钮/元素。
可以这样做还是我错过了更简单的方法?