Q&A
１．7行目というのは「Cells(intW + 1, 7) = Cells(intW + 1, 7) + Cells(i, 4)」のことですか？「Cells(intW + 1, 8) = Cells(intW + 1, 8) + 1」のことですか？
２．「テストで実際に値が現れる」とは何のことですか？
VBA
1Sub 練習問題12() 2 Dim i As Long 3 Dim intW As Integer 4 Range("G2:I8").ClearContents 5 For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row 6 intW = Weekday(DateSerial(Cells(i, 1), Cells(i, 2), Cells(i, 3)), vbMonday) 7 Cells(intW + 1, 7) = Cells(intW + 1, 7) + Cells(i, 4) 8 Cells(intW + 1, 8) = Cells(intW + 1, 8) + 1 9 Next 10 For i = 1 To 7 11 Cells(i + 1, 9) = Cells(i + 1, 7) / Cells(i + 1, 8) 12 Next 13End Sub
上記のコードの7行目「Cells(intW + 1, 7) = Cells(intW + 1, 7) + Cells(i, 4)」の動きの理解が出来ずに行き詰っています。
ステップインを実行していくと、数値が現れるセルは(8, 7)なのですが、intW + 1の指定でなぜ8になるのかという事を教えていただきたいです。（引数vbMondayを何かしらの形で利用しているというのは想像できるのですが、、、）
宜しくお願いします。
参照ﾍﾟｰｼﾞ
【問題の内容】
曜日別の売上合計・日数・平均売上を計算し、G2～I8に入れて下さい。
質問のコードは問題の答えでしょうか？ であれば、問題文もあわせて提示してください。
また、「Cells(i, 1), Cells(i, 2), Cells(i, 3)」に入力されているものが何かも追記願います。
ごもっともなご指摘ありがとうございます。
修正の方を行っておきました。
よろしくお願い致します！
回答1件
0
ベストアンサー
intW + 1の指定でなぜ8になるのか
intWが7なのでしょう。
月曜日を1日目として7日目なので、指定日付が日曜日ということです。
投稿2020/04/18 06:08
総合スコア84538
ご回答ありがとうございます。
「月曜日を1日目として」＝vbMonday というのは分かるのですが、
7日目というのはコードのどの部分を参照しているのでしょうか？
日曜日が月曜日から7日目という意味です。
『2012/1/1が日曜日である』という暦に乗っ取った絶対の前提で考えればいいという事になるのでしょうか？
残った疑問は何なのでしょう？それが分からないからか、↑何度か読み直しても、分かりません。
失礼致しました。
『月曜日を1日目として』→vpMondayで指定している。という所までは最初から理解できていたのですが、『7日目』という所がコードのどの部分をどう解釈すればそうなるのかという所を教えていただきたいというのが、今回の質問の本筋でした！
> intW + 1の指定でなぜ8
とお書きなので、intWが7ということで、7日目と言うことですよね？
で、7日目は日曜日なので、指定日付の
DateSerial(Cells(i, 1), Cells(i, 2), Cells(i, 3))
が日曜日なのだろうと言うことです。
はい、ここに当てられる数値が7であるという事自体は分かっていました。
また、vpMondayが月曜からカウントして日曜が7になるという所も理解していました。
この『指定日付が日曜日である』というのは何処から取り出している情報なのか？という事を知りたかったのです。
7なんだから、日曜日ですよね。
実際の指定日付は何年何月何日ですか？
DateSerial(Cells(i, 1), Cells(i, 2), Cells(i, 3))で当てられた暦の曜日が日曜日であり、vpMondayで指定された『月曜日がカウント1である』という所から日曜までカウントして、「7」という数字が導かれる。と今のところ解釈してるのですが如何でしょうか？
はい。そうですよ。
ありがとうございます！
問題を解きながら調べつつ知識をつけていってるので、突拍子もない所で躓いていたのかもしれません????
最後まで根気強くお付き合いいただきありがとうございました。
心から感謝させていただきます！
あなたの回答
tips
プレビュー
