算術演算子 : Excel(エクセル)

Excelの算術演算子には下記の7種があります。 優先順位 : 「^」←「*、/」←「\」←「Mod」←「+、-」

Excel Tipsメニューに戻る

スポンサーリンク






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

Excel Tipsメニューに戻る

スポンサーリンク






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


Copyright (c) Excel-Excel ! All rights reserved