| |
▼Jaka さん、おはようございます。
もう一日休みたい・・・、まだ、仕事したくねえ〜・・・。
>
>○問題
>上記コードを応用して、下記２つのコードを書きました。
>でも、エラーになっちゃいます。
>ねんで、なんで〜。
>ってな問題です。
>
>尚、標準モジュールに書いてるから、ってな事ではないです。
>ちゃんと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 = application.Windows(Wb.Name).Caption
.Cells(i, 3).Value = application.Windows(Wb.Name).Visible
> Next
>End With
>End Sub
とすれば、作動しますけどねえ。何か、私が意味を取り違えていますか？
|
|
