[標準モジュール module1] -----

Dim X As Integer
Dim Y As Variant

Sub 合計平均手書き()
  X = 0: Y = 0
  For i = 1 To 6          'For〜Next の繰返しを６回行う
    X = X + Cells(i, 3)   'X = X + Range("C" & Str(i)) でも可能
  Next i                  'この & 記号は、文字を合体する意味
  Cells(8, 3) = X         '最終的に、X に合計が入る
  
  Y = X / 6               'Y は平均値
  Cells(9, 3) = Y
  
  Cells(1, 1).Activate    'Activate でセルを移動
End Sub


[標準モジュール module2] -----

Sub 合計平均の関数()
    Cells(8, 3).Value = "=Sum(R1C3:R6C3)"      '合計関数
    Cells(9, 3).Value = "=Average(R1C3:R6C3)"  '平均関数
End Sub


[標準モジュール module3] -----

Sub 合計平均を消す()
  Cells(8, 3).Value = ""
  Cells(9, 3).Value = ""
End Sub

                                                                   back top