特定の名前のシートを数えるマクロを教えてください。

質問

マクロ超初心者です。
特定の名前のシート（例「条件*」というシート名）をカウントしてそれを変数（例「Ｎ」）にしたいです。
どなたかご存知の方教えてください。

回答No.3

suz83238 · ベストアンサー

>For　Next　ステートメントの中でｎを指定したいのですが、上記を　For　Next　ステートメントの前に貼り付けたらできませんでした。

質問の意味がよく分からないんだけど、他のVBAの中で使うということですかね？

それなら
for ～

n = 0
For Each sh In ActiveWorkbook.Sheets
If sh.Name Like "*条件*" Then n = n + 1
Next
MsgBox n

next ～

てしてみて。

お礼

有難うございました。
上記方法で解決しました。

回答No.2

okormazd

ANo.1で正解だと思いますが。

貼り付けるとき、
Sub nu()
End Sub
も貼り付けていませんか。
これらを消してください。

Sub ・・・
と
End Sub
の間に
sub　・・・
や
end sub
が入ってはいけません。

回答No.1

suz83238

シート名に"条件"というのがあればいいわけですよね？
それならこんな感じ。
Sub nu()
Dim sh As Worksheet
Dim n As Integer
n = 0
For Each sh In ActiveWorkbook.Sheets
If sh.Name Like "*条件*" Then n = n + 1
Next
MsgBox n
End Sub

補足

ご回答有難うございました。
基本的な事が分からないので、教えてください。
For　Next　ステートメントの中でｎを指定したいのですが、上記を　For　Next　ステートメントの前に貼り付けたらできませんでした。