18/08/04 19:58:42.71 FI6ie7QF.net
>>177
こういう処理は関数化した方がよい
Sub test()
Dim test_string As Variant
test_string = Array("one", "two", "three")
If あるかな(test_string, "one") Then
MsgBox "one" & "はありまーす"
End If
End Sub
Function あるかな(a, b)
If InStr(Join(a, "&"), b) Then
あるかな = True
Else
あるかな = False
End If
End Function