エクセルのＶＢＡ 条件分岐について

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

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

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

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

ご教授お願いします。


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

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

No.1 ベストアンサー 回答者： hana-hana3 回答日時： 2010/01/01 17:13

下記で良いでしょうか？

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セルへコピー』の部分を"マクロ１を実行"
"マクロ２を実行"というように、変える様な事も出来ますでしょうか？

こんな感じかな？

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 21:38