Excel VBA質問箱 IV

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

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


13694 / 76732 ←次へ | 前へ→

【68541】Re:データの集計で、対象外のシートを除く方法について
発言  ichinose  - 11/3/20(日) 9:24 -

引用なし
パスワード
   ▼Yoshi さん:
おはようございます。


>Sub データの集計()
>Dim i As Long, k As Long, LstRow As Long
>Dim Dsum As Long, ws As Worksheet
>
>For i = 4 To Sheets.Count
  If Sheets(i) is Sheets("sheet1") Then Exit for
'又は、
  If Sheets(i).name=Sheets("sheet1").name Then Exit for
> With Sheets(i)
>  LstRow = .Range("D" & Rows.Count).End(xlUp).Row
>  For k = 2 To LstRow
>   Dsum = Dsum + .Range("D" & k)
>  Next k
> End With
>  Sheets("sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1) = Sheets(i).Name
>  Sheets("sheet2").Range("B" & Rows.Count).End(xlUp).Offset(1) = Dsum
>Next i
>End Sub

0 hits

【68540】データの集計で、対象外のシートを除く方法について Yoshi 11/3/20(日) 8:38 質問
【68541】Re:データの集計で、対象外のシートを除く... ichinose 11/3/20(日) 9:24 発言
【68542】Re:データの集計で、対象外のシートを除く... Yoshi 11/3/20(日) 10:59 質問
【68543】Re:データの集計で、対象外のシートを除く... ichinose 11/3/20(日) 17:33 発言
【68544】Re:データの集計で、対象外のシートを除く... Yoshi 11/3/20(日) 21:11 お礼

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