1

ワークブックを開いたときにマクロを自動的に実行しようとしています。privatesubThisWorkbook タブでコマンドを使用していました。

ただし、Excel ファイルを閉じて再度開くと、マクロが別のシートでも実行され、循環参照エラーが発生するようです。1 枚のシート (「カバー シート」) でのみ実行されるようにするにはどうすればよいですか。マクロを実際のシート モジュールに配置すると機能しますか?

Private Sub Workbook_Open()    
With Sheets("Cover Sheet")
With Range("B21")
        .Formula = "=COUNTIFS('Design Risk Scoring Sheet'!$AN$12:$AN$" & Sheets("Design Risk Scoring Sheet").Cells(Rows.count, "AN").End(xlUp).Row & ",""<""&B20, 'Design Risk Scoring Sheet'!$B$12:$B$" & Sheets("Design Risk Scoring Sheet").Cells(Rows.count, "AN").End(xlUp).Row & ", """" )"
        .AutoFill Destination:=Range("B21:AF21"), Type:=xlFillDefault
End With

With Range("B22")
        .Formula = "=COUNTIFS('Design Risk Scoring Sheet'!$BF$12:$BF$" & Sheets("Design Risk Scoring Sheet").Cells(Rows.count, "AN").End(xlUp).Row & ",""<""&B20, 'Design Risk Scoring Sheet'!$B$12:$B$" & Sheets("Design Risk Scoring Sheet").Cells(Rows.count, "AN").End(xlUp).Row & ", """" )"
        .AutoFill Destination:=Range("B22:AF22"), Type:=xlFillDefault
End With
End With
4

1 に答える 1