この関数を利用するためには、関数「Remove_Item_From_Array_By_Index」を参照する必要があります。
'--- 要素名を指定して配列から要素を削除する ---
'--- 同一要素名が複数ある場合は最初の要素が削除される ---
'--- Remove_Item_From_Array_By_Indexの参照が必要 ---
Private Function Remove_Item_From_Array_By_Name(ByRef TargetArray As Variant, ByVal Name As Variant)
Dim i As Long
For i = LBound(TargetArray) To UBound(TargetArray)
If TargetArray(i) = Name Then
TargetArray = Remove_Item_From_Array_By_Index(TargetArray, i)
Exit For
End If
Next i
Remove_Item_From_Array_By_Name = TargetArray
End Function
↧