Excel VBA質問箱 IV

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

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


74046 / 76732 ←次へ | 前へ→

【7157】2表から項目一致なら合計し違ったら追加
質問  ちーりん  - 03/8/24(日) 16:11 -

引用なし
パスワード
   初心者なのですが、聞く人もいず困っています。よろしくお願いします。

1シートにその日の作業No.と作業時間を作業日報として入力しています。
これを日々累計していきたいのですが、下記のようなマクロでは作業時間が累計されません。
ちなみに日々のシートではh列以降は個人の作業時間でg列はその合計です。(累計の方にCOPYしてないから?)

For i = 6 To 25
Set matchcell = ws1.Range("b6:b" & lastrow).Find(ws2.Range("b" & i), _
lookat:=xlWhole, MatchCase:=True)
    
    If matchcell Is Nothing Then
     ws2.Range("b" & i & ":g" & i).Copy _
     ws1.Range("b65536").End(xlUp).Offset(1, 0)
         
    Else
    
    k = matchcell.Row
     ws2.Range("g" & i).Copy
     ws1.Range("g" & k).PasteSpecial _
     Paste:=xlPasteValues, _
     operation:=xlPasteSpecialOperationAdd
     
    End If
  
   Next i

0 hits

【7157】2表から項目一致なら合計し違ったら追加 ちーりん 03/8/24(日) 16:11 質問
【7158】Re:2表から項目一致なら合計し違ったら追加 INA 03/8/24(日) 20:04 発言
【7160】Re:2表から項目一致なら合計し違ったら追加 ちーりん 03/8/24(日) 20:35 発言
【7163】Re:2表から項目一致なら合計し違ったら追加 INA 03/8/25(月) 9:08 発言
【7209】Re:2表から項目一致なら合計し違ったら追加 ちーりん 03/8/26(火) 17:38 お礼

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