|
こんにちは。かみちゃん です。
>youbi="月水金"となってる変数から
>youbiに"水"が有るのかを探したいのですが
>
>If Application.WorksheetFunction.Find("水",youbi, 1) Then
>
>で記述すると
>ある時はいいのですが「youbi」の中に"水"がない時エラーで動きません
以下のような感じにするといいかと思います。
Sub Sample1()
Dim F As Long
Dim youbi As String
youbi = "月水金"
F = 0
On Error Resume Next
F = Application.WorksheetFunction.Find("水", youbi, 1)
On Error GoTo 0
If F > 0 Then
MsgBox "見つかりました"
Else
MsgBox "見つかりませんでした"
End If
End Sub
なお、InStr関数を使うという方法もあります。
Sub Sample2()
Dim F As Long
Dim youbi As String
youbi = "月水金"
F = InStr(youbi, "水")
If F > 0 Then
MsgBox "見つかりました"
Else
MsgBox "見つかりませんでした"
End If
End Sub
|
|