restinpiece @ ウィキ 配列に指定した値がいるか調査
※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

'##########################################################################
    ' 配列の値がいるか調べる
    ' 第一引数 値を調査した配列名
    ' 第二引数 調査対象の値
    ' 戻り値 値が見つかればtrue 見つからなければfalse
    '##########################################################################
    Function in_array(ByVal list, ByVal value)
 
        Dim str As String
 
        For Each str In list
 
            If str = value Then
                Return True
            End If
 
        Next str
 
        Return False
 
    End Function