比較演算子 <> について

質問

Excel 2007 VBAを使用しています。
↓のコードを実行するとif文のところで不具合があります。
商品シートのC列には、状況が保存されています。
"受取済み"、"注文中"以外の行データをリストさせます。
商品シートのC列には、"受取済み"、"注文中"以外の行データが存在するのですが、まったく検出してくれません。
セルの書式は標準になっています。
対処方法を教えてくれませんか?

Dim i As Long
Dim inSheet As Worksheet

Set inSheet = Worksheets("商品")

For i = 1 To 10
If CStr(inSheet.Cells(i, "C").Value) <> "受取済み" And _
CStr(inSheet.Cells(i, "C").Value) <> "注文中" then
.
.
End if
Next i

回答No.1

notnot · ベストアンサー

書かれている範囲では、おかしいところは無いです。
ここに書かれていない部分がおかしいと思われます。

For i = 1 To 10
If CStr(inSheet.Cells(i, "C").Value) <> "受取済み" And _
CStr(inSheet.Cells(i, "C").Value) <> "注文中" then
inSheet.Cells(i, "A")=1
Else
inSheet.Cells(i, "A")=0
End if
Next i

にしてみましたが、ちゃんとA列に1と0が入りました。