Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

24838 / 76738

←次へ　｜　前へ→


	【57247】Re:変数の中の文字を検索

かみちゃん - 08/8/2(土) 18:56 -


	引用なし

	パスワード

こんにちは。かみちゃん　です。

>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

0 hits

▼

【57245】変数の中の文字を検索 初心者です 08/8/2(土) 18:30