| |
▼セイチ さん：
こんにちは
>これをCaseで作りたく、下のように作ってみたのですが、思うように動きません。
>Caseには、複数のセルに関する条件は設定できないのでしょうか？
>設定できるにしても、やり方が違っているのでしょうか？
やった事は無いですが、Select 節は１つのデータを複数の条件で評価をする
ものですから、出来ないと思います。
従って、りんさんが既に書かれている方法や関数を作ったりする方法
になると思います。
個人的には関数を作る方がメンテしやすくなるので好きです。
一例ですが、こんな感じ。
Sub t()
Dim r As Range
Set r = Application.Union(Range("B5"), Range("C5"), Range("D5"))
MsgBox CheckData(r)
Set r = Nothing
End Sub
Private Function CheckData(pData As Range) As Boolean
Dim ret As Boolean
'「Ｂ５は入力あり」かつ「Ｃ５は入力なし」かつ「Ｄ５は入力あり」のとき「「成功！」
If (Not IsEmpty(pData(1, 1)) And IsEmpty(pData(1, 2))) And Not IsEmpty(pData(1, 3)) Then
ret = True
Else
ret = False
End If
CheckData = ret
End Function
|
|
neptune
- 07/12/5(水) 20:42 -
