Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61316 / 76738

←次へ　｜　前へ→


	【20043】Re:Excelの起動状況

yuu1 - 04/11/25(木) 15:09 -


	引用なし

	パスワード

>ちなみに、このコードで発生します
>>　　　　If Windows(wb.Name).Visible = True Then

エラーの原因はCaptionを変えたにもかかわらずWindows(wb.Name)としてる
ためです。(wb.NameはCaptionではない)
対処としてはFor Each のループをWindowsでまわせばいいと思います。
WindowsのVisibleを判定するのにWorkbooksでまわす必要性がありません。
コードはいかのような感じでしょうか。

　Dim ww As Window
　For Each ww In Windows
　　If ww.Visible = True Then
　　　lBookNumber = lBookNumber + 1
　　End If
　Next

4 hits

▼

【19987】Excelの起動状況 コウ 04/11/22(月) 14:56