配列内に指定した要素が存在するかどうか調べます。
要素が存在すればTrue、そうでなければFalseを返します。
'--- 配列内に要素が存在するか調べる ---
Private Function Is_Exist_In_Array(ByVal Item As Variant, ByRef TargetArray As Variant)
Dim i As Long
For i = LBound(TargetArray) To UBound(TargetArray)
If TargetArray(i) = Item Then
Is_Exist_In_Array = True
Exit Function
End If
Next i
Is_Exist_In_Array = False
End Function
↧