CalcTotal

１列の合計の表示

Private Sub CalcTotal(
　　RowEnd As Integer - 行の先頭
　　DataRowTop As Integer - 行の終了
　　Col As Integer - 列
)

RowEnd

行の先頭

DataRowTop

行の終了

Col

列

１列の合計の必要な列を計算し、値をセットする。