| |
▼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
処理させる為のｼｰﾄの条件が揃えば、ｼｰﾄ名決めうちでなくても処理できると思います。
|
|
kazu
- 04/11/29(月) 13:18 -
