「Excel VBA」for文で配列の値を取得するサンプル

書式
配列名「インデックス番号」
使用例

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
Sub getArrElement()
'配列
Dim cft(3) As Integer
Dim result As Integer
cft(0) = 11
cft(1) = 22
cft(2) = 33
cft(3) = 44
'forループ
For i = 0 To 3
result = result + cft(i)
Next i
'計算結果
Range("A1") = result
End Sub
Sub getArrElement() '配列 Dim cft(3) As Integer Dim result As Integer cft(0) = 11 cft(1) = 22 cft(2) = 33 cft(3) = 44 'forループ For i = 0 To 3 result = result + cft(i) Next i '計算結果 Range("A1") = result End Sub
Sub getArrElement()
 
 '配列
  Dim cft(3) As Integer
  Dim result As Integer
  cft(0) = 11
  cft(1) = 22
  cft(2) = 33
  cft(3) = 44
  
  'forループ
  For i = 0 To 3
    result = result + cft(i)
  Next i
  
  '計算結果
  Range("A1") = result

End Sub

結果 110

Excel VBA

Posted by arkgame