需要使用loop / for将VBA中的多个值放入单元格

Question

参考一个普遍的问题，现在已转向更高级的问题（Insert an advanced formula into a cell）;

我使用Me.TerminalID1（通过14）.List创建了一个列表，在我的UserForm中填充了14个下拉列表，其中drowndown命名为cboTerminalID1到14。

我想使用循环函数从cboTerminalID1到14添加内容以填充Excel，C4到C17中的单元格。

我已尝试过这段代码;但显然不起作用;

    For TIDtoCell = 4 To 17 Step 1
    Sheets("Rapport SNN").[C & TIDtoCell & ].FormulaLocal = "=cboTerminalID" & TIDtoCell & ""
    Next TIDtoCell

这个想法应该是;

表格（＆＃34; Rapport SNN＆＃34;）。[C4] .FormulaLocal = cboTerminalID4

有什么想法吗？因此无望成为一名新手...

Answer 1

假设组合框包含您希望写入工作表的公式：

For TIDtoCell = 4 To 17
    Sheets("Rapport SNN").Cells(TIDtoCell, 3).FormulaLocal = "=" & Me.Controls("cboTerminalID" & TIDtoCell - 3)
Next

注意：这也假设存储在组合框中的公式不包括初始等号。

注意：这假设此代码将放入userform代码模块。

如果这些假设中的任何一个不正确，我很乐意改变答案。请告诉我。

<强>更新

根据新信息，组合框中的值不是公式，这就是解决方案：

For TIDtoCell = 4 To 17
    Sheets("Rapport SNN").Cells(TIDtoCell, 3) = Me.Controls("cboTerminalID" & TIDtoCell - 3).Value
Next

Answer 2

getEfficiency