需要使用循环/ for将多个值从VBA放到单元格中

引用现在已经转向更高级的先前问题（ 将高级公式插入到单元格中 ）;

我创build了一个使用Me.TerminalID1（通过14）.List列表来填充14 UserForm中的下拉列表，其中达到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 

这个想法是应该的;

表（“Rapport SNN”）。[C4] .FormulaLocal = cboTerminalID4

有任何想法吗 ？ 所以绝望是一个新手…

Answer 1

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

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

注意：这也假定存储在combobox中的公式不包括初始等号。

注意：这里假设这个代码将被放置到用户表单代码模块中。

如果任何这些假设是不正确的，我很乐意改变答案。 请让我知道

UPDATE

基于combobox中的值不是公式的新信息，这是解决scheme：

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

Answer 2

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