[[20150525160515]]　『特定の文字列が含まれるかどうか』（シフォン）　ページの最後に飛ぶ

『特定の文字列が含まれるかどうか』（シフォン）

Hという文字列が含まれるかどうか　というコードを記述したいのですが、　If InStr～　の部分で「型が一致しません。」とエラーが出てしまいます。何故でしょうか。お助けください。

Sub Macro1()

    Dim c As Range
    Set c = Range("G8:G70000")
    If InStr(c.Value, "H") > 0 Then
    End If
End Sub

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 問題が二つありそうです。
　 ・複数セルを指定しての InStr は使用できません。
 　・If の中の処理が無いので結果がわかりません。

 このように変更してどうでしょうか。

 Sub Macro1()
    Dim c As Range
    Set c = Range("G8:G70000").Find("H", LookAt:=xlPart)
    If c Is Nothing Then
        MsgBox "Hを含むセルはありません。"
    Else
        MsgBox "Hを含むセルがありました。"
    End If
 End Sub

（Mook） 2015/05/25(月) 16:23

コメント返信：

[ 一覧(最新更新順) ]

[[20150525160515]] 『特定の文字列が含まれるかどうか』（シフォン） ページの最後に飛ぶ

[[20150525160515]]　『特定の文字列が含まれるかどうか』（シフォン）　ページの最後に飛ぶ