【VBA を用いてセルの値を変数へ代入する方法】Sub sheet1へ合計を書き込み() Dim i As Integer, total As Integer Dim a(10) As Integer total = 0 For i = 1 To 10 Step 1 a(i) = Sheets(1).Cells(i, 2).Value total = total + a(i) Next i Sheets(1).Cells(11, 1).Value = "合計" Sheets(1).Cells(11, 2).Value = total End Sub VBA を用いてセルの値を変数へ代入する場合には、RangeプロパティまたはCellsプロパティで該当セルを指定し、そのValueプロパティを用いて、該当する変数へ値を代入します。 こでは『Cellsプロパティで該当セルを指定し、そのValueプロパティに設定されている
