VBAの一部ステートメントのネスト

SEPosted by

IF ステートメントのネスト

if ステートメントの中にif ステートメントを入れることで、案件の中にさらに案件を付けて処理を分岐させることができます。それは ネスト<入れ子>、、

割引プロジージャの作成

Sub waribiki()
dim kingaku as Currency
kingaku = Range (“”).value
if range (“”).value=”一般”Then
if Kinggaku>= 50000 then
Msgbox=”15% 割引です”
Elseif kinggaku>= 30000 then
Msgbox=”10% 割引です”
Elseif kinggaku>= 30000 then
Msgbox=”5% 割引です”
End if
end sub

コンパイルを 実行して上書き保存し、動作の確認上 Excel に切替おきます。

メッセージボックスそれぞれのに値に関する「15% 割引です」と表示されることをご確認します。

以上

Leave a Reply

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

CAPTCHA