vbaのdifferntシートの値に応じてセルに式を割り当てる方法

概要レポート用のVBAスクリプトを作成しようとしています複数のシートがあります最初のシートに要約レポート以下の計算が必要です私は、セルに適用するには、複数の式を持っていると私はここで、各シートのための任意の提案プラザvbaのdifferntシートの値に応じてセルに式を割り当てる方法

出典

2017-10-06 user1763769

を数式を書きたくない上記のように複数のシート

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

のためにループで行うには、どのようにループスルーですワークブック内のすべてのワークシート:(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

実際Iは、式シート値にループを追加する必要があり、 "= COUNTIF（シート2 E：Eは、" "" 合格 "）" 例えば選択範囲範囲（ "D5"）を選択 Selection.Formula = "= COUNTIF（シート2！E：E" "合格" "）"シート（ "ダッシュボード"）選択範囲"D5"）を選択します。 Selection.Formula = "= COUNTIF（Sheet3！E：E、"合格 ""） " – user1763769

シート名を変数として使用するように更新されました。 – braX

'ActiveWorkbook'を使用する必要はほとんどなく、このようなコードに悲惨な影響を与える可能性があります。私は、将来的に、または特定のワークブックを直接参照して、 'ThisWorkbook'を使うことを強く勧めます。 – CallumDA

vbaのdifferntシートの値に応じてセルに式を割り当てる方法

答えて

関連する問題