Excel VBA質問箱 IV

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

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


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

10872 / 76734

←次へ　｜　前へ→


	【71407】Re:表示されているシートの数

takuma - 12/2/29(水) 19:35 -


	引用なし

	パスワード

▼kanabun さん：
早速のご回答ありがとうございます。
お教え頂いたVBAを実行すると全ワークシート数が表示されなかったので下記のように変更しました。
　Sub test2()
　　Dim ws As Worksheet
　　Dim n&
　　With ActiveWorkbook
　　　　For Each ws In .Worksheets
　　　　　　n = n - (ws.Visible)
　　　 Next
　　　　MsgBox "表示ワークシートは " & n & " 枚あります" & Chr(13) & Chr(10) _
　　　　　　 & "全ワークシート" & .Worksheets.Count & "枚中"
　　End With
　End Sub

しかし、全シート表示している場合は正しく表示されますが、非表示シートがある場合は表示ワークシート数が正しく表示されません。
全ワークシート数が10の状態で、
　1.表示シート数が10の場合・・・表示シート数は 10枚あります
　2.表示シート数が 1の場合・・・表示シート数は-17枚あります
　3.表示シート数が 2の場合・・・表示シート数は-14枚あります
　4.表示シート数が 3の場合・・・表示シート数は-11枚あります
　5.表示シート数が 4の場合・・・表示シート数は -8枚あります
　6.表示シート数が 5の場合・・・表示シート数は -5枚あります
　7.表示シート数が 6の場合・・・表示シート数は -2枚あります
　8.表示シート数が 7の場合・・・表示シート数は　1枚あります
　9.表示シート数が 8の場合・・・表示シート数は　4枚あります
10.表示シート数が 9の場合・・・表示シート数は　7枚あります
と表示されてしまいます。
WINDOWS7でEXCELl2007を使用していますが、OS・EXCELのバージョンが影響しているのでしょうか。
お手数ですが、引き続き御教授願います。

6 hits

▼

【71405】表示されているシートの数 takuma 12/2/29(水) 18:27