Excel VBA質問箱 IV

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

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


40348 / 76732 ←次へ | 前へ→

【41483】Re:別のシートに合計を当てはめたいのです・・・
回答  かみちゃん E-MAIL  - 06/8/11(金) 21:06 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>各日付ごとの時間の合計を、
>下記のようなA列に日付を書いた同一ブックの"シート2"のB列に入力していきたい

私も、似たような日別集計を以下のようなコードでしています。

Sub Macro1()
 Dim LastCell As Range
 Dim c As Range
 '日別集計用の変数31要素
 Dim vntData(31) As Long
 
 Sheets("Sheet1").Activate
 Set LastCell = Cells(Cells.Rows.Count, 1).End(xlUp)
 For Each c In Range("A1", LastCell)
  '24時をまたがる場合の経過時間の集計
  If c.Offset(, 1).Value >= c.Offset(, 2).Value Then
   vntData(Val(c.Value) - 1) = vntData(Val(c.Value) - 1) + DateDiff("n", c.Offset(, 1).Value, TimeSerial(24, 0, 0))
   vntData(Val(c.Value) - 1) = vntData(Val(c.Value) - 1) + DateDiff("n", TimeSerial(0, 0, 0), c.Offset(, 2).Value)
  Else
   vntData(Val(c.Value) - 1) = vntData(Val(c.Value) - 1) + DateDiff("n", c.Offset(, 1).Value, c.Offset(, 2).Value)
  End If
 Next
 Sheets("Sheet2").Range("B1").Resize(UBound(vntData)).Value = Application.Transpose(vntData)
 MsgBox "集計完了"
End Sub
2 hits

【41472】別のシートに合計を当てはめたいのです・・・ みなみ 06/8/11(金) 13:56 質問
【41476】Re:別のシートに合計を当てはめたいので... 飛ばない豚 06/8/11(金) 15:05 回答
【41482】ありがとうございます。できればVBAで書... みなみ 06/8/11(金) 20:23 質問
【41483】Re:別のシートに合計を当てはめたいのです... かみちゃん 06/8/11(金) 21:06 回答
【41487】Re:別のシートに合計を当てはめたいのです... みなみ 06/8/12(土) 1:35 お礼
【41485】Re:別のシートに合計を当てはめたいのです... Kein 06/8/12(土) 0:46 回答
【41490】Re:別のシートに合計を当てはめたいのです... みなみ 06/8/12(土) 2:34 お礼

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