Excel VBA質問箱 IV

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

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


61310 / 76732 ←次へ | 前へ→

【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
1 hits

【19987】Excelの起動状況 コウ 04/11/22(月) 14:56 質問
【19988】Re:Excelの起動状況 ぴかる 04/11/22(月) 15:48 回答
【19989】Re:Excelの起動状況 コウ 04/11/22(月) 16:20 質問
【19991】Re:Excelの起動状況 ぴかる 04/11/22(月) 16:41 回答
【19992】Re:Excelの起動状況 コウ 04/11/22(月) 16:53 お礼
【20027】Re:Excelの起動状況 コウ 04/11/24(水) 15:55 質問
【20028】Re:Excelの起動状況 ichinose 04/11/24(水) 19:15 発言
【20038】Re:Excelの起動状況 コウ 04/11/25(木) 10:13 質問
【20039】Re:Excelの起動状況 つん 04/11/25(木) 11:05 発言
【20040】Re:Excelの起動状況 ぴかる 04/11/25(木) 11:10 発言
【20042】Re:Excelの起動状況 つん 04/11/25(木) 14:05 発言
【20043】Re:Excelの起動状況 yuu1 04/11/25(木) 15:09 回答
【20044】Re:Excelの起動状況 コウ 04/11/25(木) 15:49 お礼

61310 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free