Excel VBA 質問スレ Part55

[181 デフォルトの名無しさん 2018/08/04(土) 19:58:42.71 ID:FI6ie7QF]

>>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