| 
    
     |  | ▼マナ さん: >▼NANAMI さん:
 >
 >1)
 >
 >>intW = Weekday(DateSerial(Cells(i, 1), Cells(i, 2), Cells(i, 3)), vbMonday)
 >
 >intW は、月曜日なら1、火曜日なら2、…、日曜日なら7
 >
 >
 >したがって、
 >
 >>「Cells(intW + 1, ●)」
 >
 >月曜日なら2行目、火曜日なら3行目、…、日曜日なら8行目に
 >集計結果を出すということ。
 >
 >
 >2)
 >
 >>Cells(intW + 1, 7) = Cells(intW + 1, 7) + Cells(i, 4)
 >
 >7列目(行は曜日別)に、4列目の値(売上金額)を加算
 >
 >>Cells(intW + 1, 8) = Cells(intW + 1, 8) + 1
 >
 >8列目(行は曜日別)に、1を加算
 >
 >
 >これすべてのデータで繰り返すことで、
 >売上の合計と日数を曜日別に行を変えて出力しています。
 >
 >
 >
 
 
 問題の出題元よりもわかりやすい解説を提示いただきありがとうございました。
 大変助かりました。ありがとうございました。
 
 
 |  |