Excel VBA用户表单通过更改名称值循环到组合框

时间:2018-06-04 19:40:55

标签: excel vba loops combobox userform

我在Excel用户表单中有四个包含这些值引用的组合框:

Me.cbDesc1.Value
Me.cbDesc2.Value
Me.cbDesc3.Value
Me.cbDesc4.Value

我想要做的是遍历这些组合框值,以便用变量更改数字1-4,类似这样......

For j = 1 to 4
    cell_j_in_sheet = "Me.cbDesc" & j & ".Value"
Next j

我在单元格中看到的是字符串(例如)“Me.cbDesc1.Value”,而不是组合框中选择的实际值。如何指示VBA评估Me.cbDescj.Value并在每次迭代时输出cbDescj的当前内容?

如果有更好的方法,请提供建议。

1 个答案:

答案 0 :(得分:2)

您可以使用表单Controls属性:

For j = 1 to 4
    cell_j_in_sheet = Me.Controls("cbDesc" & j).Value
Next j