こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセルのVBA 条件分岐について

エクセルのVBAで、条件分岐プログラムを考えております。
セルA1に入力された数値が、

2.0以下は"B1セルの値をC1セルへコピー

数値が
5.0以上の場合は"B2セルの値をC1セルへコピー

それ以外の場合は”対象外”と表示させたいのですが

ご教授お願いします。


又、条件分岐後の部分『C1セルへコピー』の部分を"マクロ1を実行"
"マクロ2を実行"というように、変える様な事も出来ますでしょうか?

以上よろしくお願いします。

投稿日時 - 2010-01-01 16:36:13

QNo.5560738

困ってます

質問者が選んだベストアンサー

下記で良いでしょうか?

Sub sample1()
Dim tmp As Double

tmp = Val(Range("A1"))
If tmp <= 2 Then
Range("C1") = Range("B1")
ElseIf tmp >= 5 Then
Range("C1") = Range("B2")
Else
MsgBox "対象外"
End If
End Sub

>又、条件分岐後の部分『C1セルへコピー』の部分を"マクロ1を実行"
"マクロ2を実行"というように、変える様な事も出来ますでしょうか?

こんな感じかな?

Sub sample2()
Dim tmp As Double

tmp = Val(Range("A1"))
If tmp <= 2 Then
Call Macro1
ElseIf tmp >= 5 Then
Call Macro2
Else
MsgBox "対象外"
End If
End Sub

投稿日時 - 2010-01-01 17:13:04

お礼

期待どうり、動作してくれました。

マクロを組み合わせて行く事で、フローチャートを組み合わせた、
多段階のプログラムを組んでみようと思います。

たいへん参考になりました!

ありがとうございました。

投稿日時 - 2010-01-01 21:38:59

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問