Excel VBA質問箱 IV

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

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


45041 / 76735 ←次へ | 前へ→

【36701】Re:特定の文字列をシート名に含むシートのみ串刺し計算
発言  ichinose  - 06/4/8(土) 20:08 -

引用なし
パスワード
   皆さん、こんばんは。


>まずシート名ですが、200-001(相手先コード-取引番号)という規則をもっています。ex)200-001、200-002、200-003、201-001、300-001、300-001・・・
仮に集計するシートを「集計」というシート名だとすると

'==============================================================
Sub main()
  Const 検索 = "200" '相手先コード---200で集計
  Const セル範囲 = "$D$18:$D$30"
  Const shukei = "集計" '集計するシート名
  Worksheets(shukei).Range(セル範囲).Value = 0
  For Each sht In Worksheets
    If sht.Name Like 検索 & "-*" Then
     Worksheets(shukei).Range(セル範囲).Value = _
            Evaluate("'" & shukei & "'!" & セル範囲 & "+'" & _
            sht.Name & "'!" & セル範囲)
     End If
    Next
End Sub


配列をつかいました
確認してみて下さい

0 hits

【36692】特定の文字列をシート名に含むシートのみ串刺し計算 VBA☆ 06/4/8(土) 8:51 質問
【36693】Re:特定の文字列をシート名に含むシートの... VBA☆ 06/4/8(土) 8:57 質問
【36694】Re:特定の文字列をシート名に含むシートの... ponpon 06/4/8(土) 12:12 発言
【36695】Re:特定の文字列をシート名に含むシートの... Kein 06/4/8(土) 12:38 回答
【36698】Re:特定の文字列をシート名に含むシートの... Hirofumi 06/4/8(土) 15:16 回答
【36701】Re:特定の文字列をシート名に含むシートの... ichinose 06/4/8(土) 20:08 発言
【36702】Re:特定の文字列をシート名に含むシートの... ichinose 06/4/9(日) 8:10 発言
【36703】みなさまありがとうございます VBA☆ 06/4/9(日) 14:49 お礼
【36773】遅くなりました。 [名前なし] 06/4/13(木) 14:56 質問
【36779】Re:遅くなりました。 Kein 06/4/13(木) 16:16 回答
【36789】Re:遅くなりました。 ponpon 06/4/13(木) 21:19 発言

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