Excel VBA質問箱 IV

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

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


24832 / 76732 ←次へ | 前へ→

【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
1 hits

【57245】変数の中の文字を検索 初心者です 08/8/2(土) 18:30 質問
【57247】Re:変数の中の文字を検索 かみちゃん 08/8/2(土) 18:56 発言
【57251】Re:変数の中の文字を検索 初心者です 08/8/2(土) 20:00 お礼
【57252】Re:変数の中の文字を検索 kanabun 08/8/2(土) 20:03 発言
【57253】Re:変数の中の文字を検索 初心者です 08/8/2(土) 20:14 お礼

24832 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free