Re4：50歳から始めるラズベリーパイ-4

Re4：50歳から始めるラズベリーパイ

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

amazon kindle版を出版しました。

---

　3.3　余りを計算する
変数x、yに値を入力して、
変数xをyで割って余りをzに入れて表示する。
というプログラミングをします。

セルA1を"x"、B1にxの値
セルA2を"y"、B2にyの値
セルA3を"z"、B3にzの値

Option VBAsupport 1 'VBAと互換性

Sub Main

Dim x as Integer 'xを整数型として宣言
Dim y as Integer 'yを整数型として宣言
Dim z as Integer 'zを整数型として宣言

Range("A1").Value="x" 'Range("A1")にx表示
Range("A2").Value="y"
Range("A3").Value="z"

x=Range("B1").Value 'xにRange("B1")の値を代入
y=Range("B2").Value 'yにRange("B2")の値を代入
z=x mod y 'xをyで割った余りをzに代入
Range("B3").Value=z 'Cells(2,1)にyの値を代入

End Sub

表示結果はこのようになります。
あらかじめB1に15、B2に4を代入しておくと、B3は3となります。