| |
ここに書いちゃったらまずいかな？
でも、問題だし。
○問題
ブックの非表示、表示操作を個人用マクロブックにマクロ記録しました。
（PERSONAL.xlsが無くてもコードを記載したブックを開く前に別のブックが開いてあれば可）
Sub Macro1()
ActiveWindow.Visible = False
Windows("Book1").Visible = True
End Sub
上記コードを応用して、下記２つのコードを書きました。
でも、エラーになっちゃいます。
ねんで、なんで〜。
ってな問題です。
尚、標準モジュールに書いてるから、ってな事ではないです。
ちゃんとThisworkBookモジュールに書いたとして。
１、
Private Sub Workbook_Open()
Dim i As Long, Wb As Workbook
With ThisWorkbook.Sheets("Sheet1")
For Each Wb In Workbooks
i = i + 1
.Cells(i, 1).Value = Workbooks(i).Name
.Cells(i, 2).Value = Windows(Wb.Name).Caption
.Cells(i, 3).Value = Windows(Wb.Name).Visible
Next
End With
End Sub
２、
Private Sub Workbook_Open()
Dim i As Long
With ThisWorkbook.Sheets("Sheet1")
For i = 1 To Workbooks.Count
.Cells(i, 1).Value = Workbooks(i).Name
.Cells(i, 2).Value = Windows(i).Caption
.Cells(i, 3).Value = Windows(i).Visible
Next
End With
End Sub
|
|
