| 投稿日 | ： 2005/10/20(Thu) 11:02 |
| 投稿者 | ： ダンボ |
| ＵＲＬ | ： |
| タイトル | ： [解決]Targetが特定のレンジ内か判定する関数 |
> 無ければ作るまでですが、何だかVBAまたはExcel関数にありそうな気もします。
実質2行で作れてしまったし、センスも良い(ヲイヲイ)ので紹介します。
Targetの1部だけが含まれていてもFalseとなる仕様ですね。
Public Function InRange(Target As Range, Area As Range) As Boolean
Dim UArea As Range
Set UArea = Union(Area, Target)
InRange = (UArea.Count = Area.Count)
End Function
Debug.Print InRange(Range("B6"), Range("A1:B6"))
Debug.Print InRange(Range("C1"), Range("A1:B6"))
Debug.Print InRange(Range("A1:C1"), Range("A1:B6"))