「夫を成功」へ導く妻の秘訣 座談会

日報があります。


日付を見てその日の合計時間をI列に出したいです。

その日の定時と時間外を合わせて出したい。
4/14を見ると定時に5.5、1、1.5時間と入っています。
合計すると8時間。
4/16では定時に2、6時間で時間外に3時間となっています。
合計して11時間となります。

添付画像では分かりやすいように、罫線や色がありますが
実際にはどれもありません。

これをマクロでやりたいのでコードを教えてもらえないでしょうか。
出来れば、コードの意味も教えてもらえると助かります。

「エクセルのマクロを教えてください。」の質問画像

A 回答 (2件)

こんばんは



>マクロでやりたいのでコードを教えてもらえないでしょうか。
方法を問わないのであれば、No1様のアイデアをそのままお借りして、こんなのでは?

Sub Sample()
Dim r

Set r = Cells(2, 9).Resize(Cells(Rows.Count, 2).End(xlUp).Row)
r.FormulaLocal = "=IF(B2=B3,"""",SUMIF(B:B,B2,G:G)+SUMIF(B:B,B2,H:H))"
r.Value = r.Value
End Sub

>コードの意味も教えてもらえると助かります。
実質3行ほどのコードなので、意味も何もないですけれど・・・
 1行目で、セルの範囲を求め
 2行目で、エクセルに計算してもらい
 3行目で、結果をセルに代入しています

※ 正確には、セル範囲は-1するところでしょうけれど、万一、データが存在しない場合にエラーが発生してしまうので、悪影響はないと考えてそのままにしてあります。
    • good
    • 1
この回答へのお礼

ありがとうございました。
とても助かりました。

お礼日時:2020/07/22 07:25

I2に


=IF(B2=B3,"",SUMIF(B:B,B2,G:G)+SUMIF(B:B,B2,H:H))
で下にコピー

では何か問題があるのでしょうか。

> 出来れば、コードの意味も教えてもらえると助かります。
コードを見ても意味が分からない人にマクロは早いと思います。
    • good
    • 1
この回答へのお礼

説明不足でした。
画像のデータはマクロで別ブックからデータをコピーしています。
その流れでマクロで行いたいです。
コードがわからないから意味を聞いています。
なのでマクロコードを教えてください。

お礼日時:2020/07/18 09:28

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング