Excel VBA「修飾子が不正」変数でエラーがでます

Question

いつもお世話になっております。

Excel VBAでセルの文字列を取得して、ifで判定処理を行う処理をしたいのですが、
if分の変数の部分で「修飾子が不正」のエラーが出てしまいます。
自分で調べてみたのですが原因がわからず投稿させていただきました。
よろしくお願い致します。

エラー部分は、If (hoge.StartsWith(“hogehoge")) And check2 = "" Then
のhoge部分です。

     '変数の宣言
     Dim checkcell As String
     Dim count1 As Long
     Dim hoge As String
     Dim check2 As String
     Dim i As Long

     'K列商品コードのパターン
     Set myRange = Range("K1:K1000")
     count1 = WorksheetFunction.CountA(myRange) '入力済みのセルをカウント1000件

     '取得したセルの文だけ回す
     For i = 2 To count1 'csvの件数を取得して(1000件)

          'K列の商品コードチェック K2から判定 Cell(11.2）からスタート…
          hoge = Cells(i, 11).Value
          check2 = Cells(i, 12).Value

          ‘↓ここでコンパイルエラー
          If (hoge.StartsWith(“hogehoge")) And check2 = "" Then

               Range(i, 23).Value = "Lot番号を入力してください。"

          End If

     Next 'for

End Sub

Comments

[maisumakun]

「check」という変数が宣言されていないようですが、それを直しても発生しますでしょうか。

[lime]

大変失礼いたしました、checkではく、hoge部分になります。訂正いたしました。

Answer 1

見たところ check という変数が定義されていないようです。hoge でしょうか。
また VBA の If には () はつけません。あと VBA で VB.NET（別言語）の StartsWith 相当の操作を行う関数は InStr で、これを使用して文字列内の位置を 1（先頭）と比較します。

If InStr(hoge, "hogehoge") = 1 AND check2 = "" Then
    ' 何らかの操作を行う
End If

Comments

[lime]

回答ありがとうございます。
回答いただきましたInStr関数でエラーが起きずに上手く動きました。大変、勉強になりました。ありがとうございます

[lime]

回答ありがとうございます。
回答いただきましたInStr関数でエラーが起きずに上手く動きました。
勉強になりました。

[ttyp03]

InStrではStartsWithの代用にはならないと思いますが。
StartsWith→文字列が指定文字列で始まっているか
InStr→文字列中に指定文字列があるか

[chitoku]

回答が「文字列が指定文字列で始まる場合」ではなく「文字列が指定文字列を含む場合」になっていたため修正しました。

[lime]

なるほど、回答の修正ありがとうございます！

Answer 2

Excelのバージョンがわかりませんが、手元の2010ではStartsWithは使えませんでした。
またStartsWithの引数に全角のダブルクォーテーションが使われています（“）
代替策としてはこんな感じでしょうか。

If (Left(hoge, Len("hogehoge")) = "hogehoge") And check2 = "" Then

Answer 3

修正前のコードに回答してしまいました。

---

checkがどこにも宣言されていませんが。
checkcellの間違いでは?

Comments

[lime]

申し訳ございません。checkではなく、hoge部分になります。
ソースを訂正致しました。

Answer 4

転記ミスでなければ、hogehogeのリテラルの初めの方が全角ダブルクォーテーションになっているようです。
半角に修正して再度エラーとなるかご確認ください。