算術演算子： Excel

Excelの算術演算子には下記の7種があります。

+ ：足し算（和）
- ：引き算（差）
* ：掛け算（積）
/ ：割り算（商）
^ ：べき乗
\ ：整数商
Mod ：剰余

優先順位：「^」←「*、/」←「\」←「Mod」←「+、-」

Excel実行画面

・テキストボックスに数値を入力し、「＝」ボタンをクリックすると、計算結果を表示します。
算術演算子サンプルソフト

Excel VBA実行コード

Option Explicit

Private Sub CommandButton1_Click()
On Error GoTo ErrExit
    TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
    Exit Sub
ErrExit:
    MsgBox "足し算（和）計算中にエラーが発生しました。" & vbNewLine & Err.Description
End Sub

Private Sub CommandButton2_Click()
On Error GoTo ErrExit
    TextBox4.Text = Val(TextBox5.Text) - Val(TextBox6.Text)
    Exit Sub
ErrExit:
    MsgBox "引き算（差）計算中にエラーが発生しました。" & vbNewLine & Err.Description
End Sub

Private Sub CommandButton3_Click()
On Error GoTo ErrExit
    TextBox7.Text = Val(TextBox8.Text) * Val(TextBox9.Text)
    Exit Sub
ErrExit:
    MsgBox "掛け算（積）計算中にエラーが発生しました。" & vbNewLine & Err.Description
End Sub

Private Sub CommandButton4_Click()
On Error GoTo ErrExit
    TextBox10.Text = Val(TextBox11.Text) / Val(TextBox12.Text)
    Exit Sub
ErrExit:
    MsgBox "割り算（商）計算中にエラーが発生しました。" & vbNewLine & Err.Description
End Sub

Private Sub CommandButton5_Click()
On Error GoTo ErrExit
    TextBox14.Text = Val(TextBox13.Text) ^ Val(TextBox15.Text)
    Exit Sub
ErrExit:
    MsgBox "べき乗計算中にエラーが発生しました。" & vbNewLine & Err.Description
End Sub

Private Sub CommandButton6_Click()
On Error GoTo ErrExit
    TextBox17.Text = Val(TextBox16.Text) \ Val(TextBox18.Text)
    Exit Sub
ErrExit:
    MsgBox "整数商計算中にエラーが発生しました。" & vbNewLine & Err.Description
End Sub

Private Sub CommandButton7_Click()
On Error GoTo ErrExit
    TextBox19.Text = Val(TextBox20.Text) Mod Val(TextBox21.Text)
    Exit Sub
ErrExit:
    MsgBox "剰余計算中にエラーが発生しました。" & vbNewLine & Err.Description
End Sub

Homeに戻る > Excel 基本Tipsへ

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します

算術演算子 ： Excel

Excelの算術演算子には下記の7種があります。

Excel実行画面

Excel VBA実行コード

算術演算子： Excel