練習問題7（メッセージボックスの練習）メモ
- 文字と文字の結合の場合は、&（アンパサンド）を使ってつなげる
- CntはCount
Sub Practice7()
Dim i As Long
Dim lngTotal As Long
Dim lngCnt As Long
lngTotal = 0
lngCnt = 0
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 4) = Cells(i, 2) * Cells(i, 3)
lngTotal = lngTotal + Cells(i, 4)
lngCnt = lngCnt + 1
Next
MsgBox "合計：" & lngTotal & vbLf & _
"平均：" & lngTotal / lngCnt, _
vbOKOnly, "結果"
End Sub
