Ｐａｇｅ 827 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼条件判断 yoppy 03/3/5(水) 15:15 ┗Re:条件判断 つん 03/3/5(水) 15:36 ┗Re:条件判断 yoppy 03/3/5(水) 15:48 ─────────────────────────────────────── ■題名 ： 条件判断 ■名前 ： yoppy ■日付 ： 03/3/5(水) 15:15 -------------------------------------------------------------------------
| Range("A1")には月が入ります。 Iｆ...Then...Elseを使って冬（12月〜２月）だけ判別したいのですが、 If Range("A1") ＝ "12" Then If Range("A1") ＝ "1" Then If Range("A1") ＝ "2" Then とするしか方法はないのでしょうか。 判別後の処理が多いのでまとめて判別したいのですが。 どなたかよろしくお願いします。 |
| yoppy さん、こんにちは >Range("A1")には月が入ります。 >Iｆ...Then...Elseを使って冬（12月〜２月）だけ判別したいのですが、 >If Range("A1") ＝ "12" Then >If Range("A1") ＝ "1" Then >If Range("A1") ＝ "2" Then >とするしか方法はないのでしょうか。 >判別後の処理が多いのでまとめて判別したいのですが。 >どなたかよろしくお願いします。 Sub test() Dim vntData As Variant vntData = Range("A1").Value If (vntData = "1") Or (vntData = "2") Or _ (vntData = "12") Then MsgBox "冬" Else MsgBox "冬以外" End If End Sub こんでどうですか？ |
| つん さん 早速試してみました。ばっちりですー。 ありがとうございました。 |