![見出し画像](https://assets.st-note.com/production/uploads/images/136702503/rectangle_large_type_2_2f9e0319033bf95fdc4118e1f17bc90d.png?width=1200)
【Day9】文系オタクのエンジニア道~配列②復習編~
こんにちは
安田です
前回は配列について学習しました
参考書を見ると配列はいくつかの分野に分かれて書かれていました
おそらく僕の予想ですが
配列は結構キーポイントになると思いました
そのため、今回は配列の復習を兼ねてコードを書いてみました
Sub hairetu()
Dim a(3) As Integer
Dim n As Integer
n = 0
a(0) = 1 'a(0)~a(3)に値を代入
a(1) = 2
a(2) = 3
a(3) = 4
MsgBox a(n) 'a(0)の値をメッセージボックスに表示
End Sub
![](https://assets.st-note.com/img/1712637697465-olXN08QFiv.png?width=1200)
はじめは何故「1」が表示されるのかな
と思っていました
n = 0
ここで書いたコードが意味を成していることに気づきました
a(0) = 1
つまりnの値によって表示される数値が変わるということでした
ちなみにnの値を設定した配列以上にすると
エラーになりました
Sub hairetu()
Dim a(3) As Integer
Dim n As Integer
n = 4 '存在しない配列
a(0) = 1
a(1) = 2
a(2) = 3
a(3) = 4
MsgBox a(n)
End Sub
![](https://assets.st-note.com/img/1712637979430-vEz8EEF02U.png?width=1200)
次に続けてメッセージボックスに数値を出すコードを書いてみました
Sub hairetu2()
Dim a(3) As Integer
Dim i As Integer
i = 0
a(0) = 0
a(1) = 1
a(2) = 2
a(3) = 3
MsgBox a(i)
i = i + 1
MsgBox a(i)
i = i + 1
MsgBox a(i)
i = i + 1
MsgBox a(i)
End Sub
![](https://assets.st-note.com/img/1712638438716-NPOstO1y7Q.png?width=1200)
![](https://assets.st-note.com/img/1712638630698-41zmZMP20z.png?width=1200)
いままで何でだろうと疑問にも思わなかったところでしたが
復習をしたことで気付ける箇所がありました
これからは振り返りもいれつつ
学習を進めていこうと思います
「VBAマスターに俺はなる」
最後まで読んでいただき
ありがとうございます
安田
マガジンにまとめてありますので
よかったらそちらも御覧ください
この記事が気に入ったらサポートをしてみませんか?