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

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

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

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

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

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

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

足し算

引き算

掛け算

割り算

関連記事

条件分岐というと難しいですが、もし～だったら、そうでなかったらってよくありませんか？

そしてエクセル関数でも使うIF関数をエクセルVBAでも高頻度で使うので、基本からご紹介します。

条件によって処理を振り分けるIFステートメント

基本的な考え方は「IF関数」と全く一緒なので、書き方だけをマスターすればいろいろなVBAコードに応用できます。

ここでは「和暦西暦変換対応カレンダー」を作った時に、黒色文字で日付を表しますが土日祝日だったら赤色文字にするとい例を簡単に記載しています。

１つの条件を満たした時だけ処理を実行する

下の図のセルD12の値は「0」になっています。セルD13の値のように「0」以外の数字もあります。

D列の値はカレンダーの関係上祝日は月によって替わるので、基本は「0」にしておいて祝日の時だけ文字列表示しています。

考え方としては、『もしセルD5の値が「0」だったら、文字色を黒色にする』という、1つの条件を満たした時だけ処理を実行するVBAコードを使っています。

この場合、IFステートメントを使いこのような式になります。

IF　条件式　Then
処理
End If

実例の式をVBAコードで書くとこのようになります。

これで、条件に合った時だけ処理をして、合わない時は何もしないということができるようになります。

1つの条件を満たした時の処理と満たさなかった時で処理を振り分ける

次に、IF関数と同じように「もし～だったら、○○、そうでなかったら××」をVBAコードで書いていきます。

下の図は住所録を抜粋した画像で、「更新済」と「未更新」を振り分けています。

画像にはありませんが、セルP2に基準日が入力されています。

この基準日以降に手続きをしていれば更新「済」、そうでなければ「未更新」と処理を振り分けています。

この場合、IFステートメントを使いこのような式になります。

IF　条件式　Then
処理1
Else
処理2
End If

先ほどと違うのは、Elseの後に満たさなかった時の処理が加わっています。

関連記事

エクセル関数を使って小数点以下を切り捨てする作業をVBAを使って複数行一括処理したいと思ったことありませんか？

Application.RoundDownと繰り返し処理を合わせて使えば、VBAコードたった3行で簡単にできる方法をご紹介します。

Application.RoundDown

エクセル関数で小数点以下切り捨てをするのはRoundDown関数を使えば簡単にできますが、せっかくエクセルVBAを使っているのだから無駄な数式を書いておくのって気が引けますよね。

1か所だけ切り捨て

そこで、ユーザーフォームに配置したコマンドボタンを押すことで、指定した複数のセルの値が小数点以下になっていたら整数にするVBAコードです。

一番最後の,0を小数点第1位までにするならば,1とすれば完成で、小数点第2位ならば,2です。

複数セルを一括繰り返し処理して切り捨て

正直1か所だけならばVBAを使う必要もなくセルに直接エクセル関数を書けばいいのですが、何か所もあるのでVBAで簡単に処理したいと考えるので、繰り返し処理のFor～Nextを一緒に使う事で解決します。

関連記事

エクセルでメッセージボックスを利用して「〇〇しますか？」と問うた時に、「はい」「いいえ」を選択できますが、固定した文章ではなくセルの値によって質問内容が変更したいと思ったことありませんか？

実は簡単で文章の部分をセル番地に指定することで、自由にメッセージボックスの文章を変えることができる方法をご紹介します。

msg = MsgBox（セル番地＆文字）

エクセルVBAのメッセージ機能は、単純に「OK」返答する”MsgBox”と、「はい」「いいえ」などで選択肢がある”msg=MsgBox”があります。

ここでは、セルの値を文字を組み合わせて「はい」「いいえ」の選択肢を選ぶことで次の動作を誘導するVBAコードをご紹介します。

関連記事