|
▼kazu さん:
>▼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さん、色々なアドバイスありがとうございました。
おかげで解決できました。
|
|