第2回「ブック、シート、セルの扱い」
aisle26
アイルブログ
・For文
Dim i As Integer
For i = 1 To 5
MsgBox "カウント: " & i
Next i
・Do While文
Dim i As Integer
i = 1
Do While i <= 5
MsgBox "Do While: " & i
i = i + 1
Loop
・If文
Dim x As Integer
x = 5
If x > 3 Then
MsgBox "3より大きい"
Else
MsgBox "3以下"
End If
・Select Case
Dim fruit As String
fruit = "りんご"
Select Case fruit
Case "りんご"
MsgBox "これはりんごです"
Case "みかん"
MsgBox "これはみかんです"
Case Else
MsgBox "不明な果物です"
End Select
・比較演算子
| 演算子 | 意味 | 例 |
|---|---|---|
| = | 等しい | a = b |
| <> | 等しくない | a <> b |
| < | ~より小さい | a < b |
| > | ~より大きい | a > b |
| <= | 以下 | a <= b |
| >= | 以上 | a >= b |
・論理演算子
| 演算子 | 意味 | 例 |
|---|---|---|
| And | 両方がTrueならTrue | If a > 0 And b > 0 Then |
| Or | どちらかがTrueならTrue | If a > 0 Or b > 0 Then |
| Not | ~ではない | If Not a = 0 Then |