VBAマクロの記述を教えてください m(__)m 娘から聞かれたのですが主婦の私にはわかりません

質問

VBAマクロの宿題です。どうもエクセルのことのようですが、それ以上は私にはわからず困っています。

　　 A　 　B　　 C　　 D　　 E　
１　 ○　 ×　 ○　 ×　 ○
２　　５　　５
３　１２　１２
４　　８　　８
５　１５　１５
６　３１　３１
７　　４　　４
８　　３　　３
９　８７　８７
10 　１８ 　１８
11　１８３　８７

以上がエクセルのシートだと見てください。

準備：A1セルからE1セルに○あるいは×を入力する。
　　　A2セルからE10のセルに適当な２桁の数値を入力する。

問題：１行目が○なら11行目に２行目から10行目までの
　　　合計を計算・表示する。
　　　１行目が×なら11行目に２行目から10行目までの
　　　最大値を表示する。

ヒント：文字のIF文
　　　　　プログラム上で文字を扱う場合、ダブル・クォーテー
　　　　　ションで文字をはさむ。
　　　　　IF　Cells（　、　）＝"○" Then

　　　　プログラムの流れ
|　 　　　For
|　　　　　　　IF
|　　　　　　　　　For
|　　　　　　　　　Next
|　　　　　　　Else
|　　　　　　　　　For
|　　　　　　　　　Next
|　　　　　　　END IF
|　　　　　Next

以上です。もう何が何やらちんぷんかんぷんです。どなたか助けてください。

回答No.1

j_nishiz · ベストアンサー

丸投げは禁止です。
最近はプログラミングの宿題もあるんですね。へぇ～。。
解説しますが、
For
列単位に、一行目が○かどうか聞き、
IF そうであれば、
For１０行目まで繰り返して
　　　　　　足し算します。
NEXT
IF そうでなければ、
For１０行目まで繰り返して
　　　　　　比較し、それまでの最大値を残します。
NEXT
NEXT　次の列へ

以下は回答ですので、こちらは娘さんに見せちゃ駄目。
Dim i, j As Integer
Dim Anser As Long
For i = 1 To 5
Anser = 0
If Cells(1, i) = "○" Then
For j = 2 To 10
Anser = Anser + Val(Cells(j, i))
Next j
Cells(11, i) = Anser
Else
For j = 2 To 10
If Val(Cells(j, i)) > Anser Then
Anser = Val(Cells(j, i))
End If
Next j
Cells(11, i) = Anser
End If
Next i

補足

j_nishiz様
丸投げ禁止は分かっているつもりだったんですが…（汗

ありがとうございます。

For
列単位に、一行目が○かどうか聞き、
IF そうであれば、
For１０行目まで繰り返して
　　　　　　足し算します。
NEXT
IF そうでなければ、
For１０行目まで繰り返して
　　　　　　比較し、それまでの最大値を残します。
NEXT
NEXT　次の列へ
以上の部分を説明してあげればいいんでしょうけど、私にはこれでもちんぷんかんぷんです。答を娘に見せるつもりはありませんが、以上の考え方を伝えるだけでも良いのでしょうか？あまり言いたくはなかったんですが、母子家庭なもので私しか大人がいないのです。
インターネットで調べたといってもよいでしょうかね？
でも、親切にご解答くださって本当にありがとうございます。