|
▼かみちゃん さん:
>>しかし、よく、開かずに起動させてしまうので、下のコードをマクロボタンに登録してマクロボタンを押すとメッセージボックスで注意を表示させることはできますか?
>
>それは、必要なブックが開かれているかをチェックしたいということですか?
>以下のような感じで開いているかどうかのチェックはできると思います。
>
>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
ありがとうございます。マクロボタンを2つ作るべきなのでしょうか?
なんとか自動記録マクロ内に組み込めれば、自動記録可動前にチェック
できるのですが。。。。
上記のコードは下の自動記録マクロには組み入れられないのでしょうか?
Sub Sheetcopy1()
'
' Sheetcopy1 Macro
' マクロ記録日 : 2006/10/22 ユーザー名 : Kyozaburo'
'
Columns("A:Y").Select
Range("A2").Activate
Selection.Copy
Windows("公表用(1).xls").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAllExceptBorders, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Range("V22").Select
Sheets("監督者用").Select
Sheets("監督者用").Name = "監督者用"
Rows("2:2").RowHeight = 5.25
Rows("7:7").RowHeight = 8.25
Rows("12:12").RowHeight = 8.25
Rows("17:17").RowHeight = 6
Windows("確認1.xls").Activate
Application.CutCopyMode = False
Range("A1:Y1").Select
End Sub
|
|