'Declaration
Public Function Intersects( _
ByVal As Integer, _
ByVal column As Integer, _
ByVal As Integer, _
ByVal columnCount As Integer _
) As Boolean
'使用法
Dim instance As CellRange
Dim row As Integer
Dim column As Integer
Dim rowCount As Integer
Dim columnCount As Integer
Dim value As Boolean
value = instance.Intersects(row, column, rowCount, columnCount)