|
▼ino さん:
>質問です。
>以前VBAを使ってフォルダ内の各シートから値を集計するツールを作成したのですが、改良を加えることになり、以前は固定のシート名から値を集計していたのをユーザーが任意で変更可能にし、そのシート名から値を集計するにはどうしたらよいのでしょうか?
>お願いします。
シート名の命名条件等ある様でしたら、
Likeで引っ掛けられると思います。
例えば、
シート名が(SHTで始まるシートのみ処理の場合)
For Each Sht In ActiveWorkbook.Sheets
If Sht.Name Like "SHT*" Then
処理内容
End If
Next
Book内のシート全てに対しての処理であれば、
For Each Sht In ActiveWorkbook.Sheets
処理内容
Next
決められた形式のシートのみの場合(A1が実行と記入されているシートのみ処理の場合)
For Each Sht In ActiveWorkbook.Sheets
If Sht.Cells(1,1).Value = "実行" Then
処理内容
End If
Next
処理させる為のシートの条件が揃えば、シート名決めうちでなくても処理できると思います。
|
|