2つのセルの値を足し算など加減乗除してラベル名に表示させるVBA

エクセル検索

HOME	UserForm	印刷	画面	ファイル	図形
日付・時刻	データ	セル	色	関数	VBA関数

ユーザーフォームに配置したラベルの文字をプロパティのキャプションで指定するのではなく、セルの値を取得して表示させたいことありませんか？

そしてさらに、2つのセルの値を足した合計値をラベル表示させられたら、もって便利ですよね。

単純な足し算・引き算・掛け算・割り算ならば、難しいことは全くないので基本となる加減乗除した値をラベルのキャプションに書き換えるVBAコードをご紹介します。

ラベル名＝セル番地　加減乗除　セル番地

ラベル名をセルの値の合計値で書き換えたいならば、単純に「セル番地」「加減乗除」「セル番地」で完成です。

ここでは、ユーザーフォームに配置したラベルをクリックすると計算したセルの値がラベルに表示されるようにします。

普段のエクセル関数と全く同じなのでとても簡単ですよ。

足し算

VBAコード

Private Sub Label1_Click()
Label1.Caption = Range(“A1”) + Range(“A2”)
End Sub

解説

ラベル1がクリックされたら
ラベル1のラベル名をセルA1とセルA2を足し算した値にする
マクロ記録終了

引き算

VBAコード

Private Sub Label1_Click()
Label1.Caption = Range(“A1”) – Range(“A2”)
End Sub

掛け算

VBAコード

Private Sub Label1_Click()
Label1.Caption = Range(“A1”) * Range(“A2”)
End Sub

割り算

VBAコード

Private Sub Label1_Click()
Label1.Caption = Range(“A1”) / Range(“A2”)
End Sub

波乗りアヒル

とこのように解説の必要がなくてもVBAに取り組もうという方ならば大丈夫ですよね。

紅葉スポット

よかったらシェアしてね！

URLをコピーしました！

2つのセルの値を足し算など加減乗除してラベル名に表示させるVBA

ラベル名＝セル番地　加減乗除　セル番地

足し算

引き算

掛け算

割り算

関連記事

もし～だったらの条件分岐エクセル関数IFをVBAで代用する方法

エクセルVBAで条件に一致する複数セルを見つけて背景色の変更方法

エクセルINT関数をVBAで小数点以下切り捨てを繰り返し処理方法

ユーザーフォームのテキストボックスが空欄の時にVBAメッセージを出す方法

チェックボックスでチェック有と無しそれぞれの処理を変える方法