|
こんにちは。かみちゃん です。
>開いておけば、楽に自動マクロで可動するんですね!!
というより、シートを操作するには、開いておくことが基本です。
これは、マクロに限った話ではありません。
一般操作でも、開いておいて、コピー貼り付けしないといけないのに、開いている
形跡がない、だから[#43656]でPさんが疑問を抱かれたのではないでしょうか?
>しかし、よく、開かずに起動させてしまうので、下のコードをマクロボタンに登録してマクロボタンを押すとメッセージボックスで注意を表示させることはできますか?
それは、必要なブックが開かれているかをチェックしたいということですか?
以下のような感じで開いているかどうかのチェックはできると思います。
Sub Sample()
If CHKBook("Book1.xls") Then
MsgBox "Book1.xls は開かれています"
Else
MsgBox "Book1.xls は開かれていません"
End If
End Sub
Function CHKBook(strWorkbookName As String) As Boolean
Dim wb As Workbook
CHKBook = False
For Each wb In Workbooks
If wb.Name = strWorkbookName Then
CHKBook = True
Exit For
End If
Next
End Function
|
|