シート番号追加VBA

質問

watabe007さま
大変お世話になりました

前にシートのセルにページ番号を追加するVBAをこちらで教えて頂きまして、本当に有難うございます

前回に下記の内容を教えて頂き、大変有難く使わせていただいております

Sub pageA()
　　Dim i As Long

　　For i = 1 To Worksheets.Count　
　　　　If Worksheets(i).Name = "Sheet3" Then
　　　　　　Worksheets(i).Range("G2") = "'" & i & "/" & Worksheets.Count
　　　　ElseIf Worksheets(i).Name = "Sheet4" Then
　　　　　　Worksheets(i).Range("G3") = "'" & i & "/" & Worksheets.Count
　　　　Else
　　　　　　Worksheets(i).Range("G1") = "'" & i & "/" & Worksheets.Count
　　　　End If
　　Next
End Sub

それで、今回はどのシート名にも属さないシートはページカウントとしてカウントしない、という方法がありましたらお教え頂きたいのですが、方法はありますでしょうか？

お忙しいかと思いますが、アドバイス頂けますますと嬉しいです

回答No.1

watabe007 · ベストアンサー

beeeeyan さん、こんにちは
>今回はどのシート名にも属さないシートはページカウントとしてカウントしない
どのシート名にも属さないシートのセルにページ番号を追加しない
総ページ数にも加えない
なら
Sub pageB()
　　Dim i As Long, 特定シート数 As Long, j As Long

　　For i = 1 To Worksheets.Count
　　　　If Worksheets(i).Name = "Sheet3" Then
　　　　　　特定シート数 = 特定シート数 + 1
　　　　ElseIf Worksheets(i).Name = "Sheet4" Then
　　　　　　特定シート数 = 特定シート数 + 1
　　　　End If
　　Next
　　For i = 1 To Worksheets.Count
　　　　If Worksheets(i).Name = "Sheet3" Then
　　　　　　j = j + 1
　　　　　　Worksheets(i).Range("G2") = "'" & j & "/" & 特定シート数
　　　　ElseIf Worksheets(i).Name = "Sheet4" Then
　　　　　　j = j + 1
　　　　　　Worksheets(i).Range("G3") = "'" & j & "/" & 特定シート数
　　　　End If
　　Next
End Sub

お礼

頼ってばかりですみません！ほんとに有難うございます！！

そして質問させて頂いた内容とはまた違った質問なのですが、何にも属さないシートを何が何行、何列書かれるか分からないが、そのシートの1行目の最終行を求めて、その隣の空白にページ番号を入れる方法などありますでしょうか？

分かりづらい説明で申し訳ありません
名前が分かっているシートは教えて頂いたlike関数で指定して、それ以外の全く関係ない別紙などのネーミングのシートでどれくらいセルを使うかわからないけども、ページが一行目の記入されてるセルが途切れた隣の空白にページを入れたい、と言われた為、色々自分でも試したのですがコードエラーなど色々出て分かりませんでした…

お時間あるときにまたお願い出来ましたら、宜しくお願い致します