マクロについて教えて頂きたいです。 別のブックが開いているかどうかチェックして、開いていればA1セルに1を入力!開いて無ければA1セルに2を入力したいです。 詳しい方、よろしくお願いします

Excel | Visual Basic35閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

ThanksImg質問者からのお礼コメント

ブック名が変動しても可能と言うことで大変ありがたいです。助かりました!

お礼日時:7/29 14:32

その他の回答(1件)

0

Workbook型変数に開いていないブックを指定するとエラーになるのを利用して、 Sub Sample() Dim wb As Workbook On Error Resume Next Set wb = Workbooks("ほにゃららら.xlsx") If wb Is Nothing Then Range("A1") = 2 Else Range("A1") = 1 End If End Sub とかどうでしょうか。