VBA記事6.select文

 

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

Sub sample4()

Dim i As Variant

For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row

Select Case Cells(i, 1)

Case 4 To 6

Cells(i, 2) = "４から６です"

Case Is = 10

Cells(i, 2) = "10です"

Case Is >= 14

Cells(i, 2) = "15以上です"

End Select

Next

End Sub

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

上記のようなコードになります。

Ifでは 4to6などの文章は使えません。

If文で同じことを行うなら下記の書き方になります。

If とselectの使い分けとしては

Ifの中にselectを書くような使い方をしている人が多いようです。

またselectの方が可読性とメンテナンスが良いと考えている人が多く、selectの方が良く使われますが、プログラムの目的は乱暴な言い方をすれば狙い通り動けばよいので、書きやすい方、必要に応じたほうを使っていけば大丈夫です。

後述のMsgBoxはIfとセットで使われることが多いです。