Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


61230 / 76738 ←次へ | 前へ→

【20131】Re:集計するシート名変更
発言  kazu  - 04/11/29(月) 13:18 -

引用なし
パスワード
   ▼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

処理させる為のシートの条件が揃えば、シート名決めうちでなくても処理できると思います。

0 hits

【20127】集計するシート名変更 ino 04/11/29(月) 11:55 質問
【20128】Re:集計するシート名変更 IROC 04/11/29(月) 12:58 回答
【20143】Re:集計するシート名変更 ino 04/11/29(月) 16:38 お礼
【20131】Re:集計するシート名変更 kazu 04/11/29(月) 13:18 発言
【20144】Re:集計するシート名変更 ino 04/11/29(月) 16:39 お礼

61230 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free