OpenOfficeでVBAプログラミング入門-8

OpenOfficeでVBAプログラミング入門

amazon kindle版を出版しました。

---

 　3.1　if文を使ってみよう
　成績を表示するプログラムで60点以上は合格，60点未満は不合格と表示するプログラムを作ってみます。

セルA1に点数を入力して、B1に合格、不合格を表示します。
80点のとき

50点のとき

Option VBAsupport 1 'VBAと互換性

Sub Main

　　Dim x as Integer

　　　 x=Range("A1").Value

　　IF x>=60 THEN

　　　Range("B1").Value="合格"

　　ENDIF

　　IF x<60 THEN

　　　Range("B1").Value="不合格"

　　ENDIF

End Sub

---

IF文の条件式は次のようになります。

条件式	意味
x=y	xとyが等しい
x<>y	xとyが等しくない
x>y	yよりxが大きい
x>=y	xがy以上
x<y	yよりxが小さい
x<=y	xがy以下

---

また、IF　THEN　ELSEを用いるともっと簡単になります

Option VBAsupport 1 'VBAと互換性
Sub Main
　Dim x as Integer

　　x=Range("A1").Value
　　　IF x>=60 THEN '60以上のとき

　　　　Range("B1").Value="合格"

　　　ELSE          '60以上でないとき（60未満）

　　　　Range("B1").Value="不合格"

　　　ENDIF

End Sub