vba - 需要使用循环/for 将多个值从 VBA 放入单元格

Question

引用一个现在已经转向更高级的问题(Insert an advanced formula into a cell)；

我使用 Me.TerminalID1(到 14)创建了一个列表。List 在我的用户窗体中填充 14 个下拉列表，其中到达下拉列表被命名为 cboTerminalID1 到 14。

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

我试过这段代码；但这显然行不通；

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

这个想法是应该的；

Sheets("Rapport SNN").[C4].FormulaLocal =cboTerminalID4

有任何想法吗 ？新手太没希望了。。。

Answer 1

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

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

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

注意:这假定此代码将被放入用户表单代码模块中。

如果这些假设中的任何一个不正确，我很乐意更改答案。让我知道。

更新

基于组合框中的值不是公式的新信息，这是解决方案:

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