如何分配单元格上的公式取决于VBA中差异表的值

我正在为总结报告编写VBA脚本我在第一个表中有多个表我有总结报告下面的计算我需要在循环做多张如何分配单元格上的公式取决于VBA中差异表的值

Sheets("Dashboard").Select 
Range("D5").Select 
Selection.Formula = "=COUNTIF(Sheet2!E:E,""Passed"")"

像上面我有多个公式适用于细胞，我不想写公式每个工作表的任何建议PLZ

来源

2017-10-06 user1763769

这里是如何循环通工作簿中的所有工作表:(避免使用Select）

Dim sh As Worksheet 
    For Each sh In ActiveWorkbook.Worksheets 
    If sh.Name <> "NameOfSheet" Then 
     sh.Range("D5").Formula = "=COUNTIF('" & sh.Name & "'!E:E,""Passed"")" 
    End If 
    Next

来源

2017-10-06 13:27:53 braX

实际上我需要在式片值添加循环 “= COUNTIF（Sheet 2中E：E！”， “合格” “）” 例如表格（“仪表板”）选择范围（“D5”）。选择 Selection.Formula =“= COUNTIF（Sheet2！E：E，”“合格”“）”表格（“仪表板”）选择范围“D5”）选择 Selection.Formula = “= COUNTIF（表Sheet 3 E：！E，”。 “合格”， “）” – user1763769

更新使用表名称为变量。 – braX

很少有任何需要使用'ActiveWorkbook'，它可以在像这样的代码产生灾难性的影响。我强烈建议将来使用'ThisWorkbook'或直接引用特定的工作簿。 – CallumDA

如何分配单元格上的公式取决于VBA中差异表的值

回答

相关问题