Excel VBA質問箱 IV

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

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


45037 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   おはようございます。
シートを相手先コード別に作成して集計するのですね!!
よく読んでませんでした。
配列を使う方法で前回の投稿を変更しました。

'===========================
Sub main()
  Dim sht As Worksheet
  Dim tarray As Variant
  Dim wsht As Worksheet
  Dim idx As Long
  Dim wcnt As Long
  Const セル範囲 = "d18:d30"
  On Error Resume Next
  wcnt = Worksheets.Count
  For idx = 1 To wcnt
    Set sht = Worksheets(idx)
    tarray = Split(sht.Name, "-")
    If UBound(tarray) > 0 And tarray(0) <> "" Then
     Err.Clear
     Set wsht = Worksheets(tarray(0) & "合計")
     If Err.Number <> 0 Then
       Set wsht = Worksheets.Add(after:=Worksheets(Worksheets.Count))
       wsht.Name = tarray(0) & "合計"
       wsht.Range(セル範囲).Value = 0
       End If
     wsht.Range(セル範囲).Value = Evaluate("'" & wsht.Name & "'!" & セル範囲 & "+'" & _
                             sht.Name & "'!" & セル範囲)
     End If
    Next
  Set sht = Nothing
  Set wsht = Nothing
  On Error GoTo 0
End Sub

1 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 発言

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