文字列が一致しているかを判定していますがヒットしません

Question

前提・実現したいこと

特定の列で判定文字と一致したらその数を数えようとしていますが、
１件もヒットしません。
ソースのi,jは変数です。
セル(j - 1, 7)から上方向にセル(i, 7)まで「ABC」と完全一致している数を
数えようとしています。
検索範囲はVartype関数で確認すると戻り値が８なので全て文字列となっています。

●追記
変数i,jはこのソースより上で定義しており値もこの処理に入る前に
期待した値が取れていることは確認できています。
（Debug.Print i
Debug.Print j で確認）

該当のソースコード

    Dim sheet As Worksheet
    Dim r As Long
    Dim c As Long

    'カウント変数
    c =0

    Set sheet = Worksheets("Sheet1")
    r = sheet.Cells(j - 1, 7).End(xlUp).Row
    
    Do While (i <= r)
        If sheet.Cells(r, 7).Value = "ABC" Then
        
        	c = c + 1
            
        End If
        r = r - 1
    Loop
    
    Debug.Print c 

試したこと

テストデータ１０件でセルの値を確認しようとしています。

Answer 1

手元で再現してみたので、回答内容を全面刷新しました。

まず、r = sheet.Cells(j - 1, 7).End(xlUp).Rowが適切に想定した数字を拾ってきているかの確認をしましょう。
このコードでスタートするべき行番号を設定しているものと思いますが、
rの数字がおかしいうちは次のDo Whileループに全く入っていきません。

さらに、ループ処理の中のi <= rは
iの値を示したコード内でわからなかったのですが、
条件次第ではrが0以下になってエラーになりかねないことを
確認したほうが良いです。

F8キーでステップ実行しつつ、
イミディエイトウィンドウで気になる変数を「? r」とかすれば表示してくれるので、
想定通りの動きになるか変数の中身を点検しながらステップ実行してください。

Comments

[skjdujr9djhf]

rが適切な値が取れていると思っていましたが、想定した値が取れていませんでした。
以下のコードで１行ずつ実行すると想定通りの動きとなりました。

Sub abc()

Dim sheet As Worksheet
Dim r As Long
Dim c As Long

'カウント変数
c = 0

i = 1
j = 11

Set sheet = Worksheets("Sheet1")
r = Range("G" & j - 1).Row

Do While (i <= r)
If sheet.Cells(r, 7).Value = "ABC" Then

c = c + 1
Debug.Print r

End If
r = r - 1
Loop

Debug.Print c

End Sub

Answer 2

比較処理に関しては特別問題になるようなところはないと思います。
変数iとjの状態がわからないので、おそらくここに問題があるのでは。
ループに入る前にiとjが想定どおりの値になっているか確認してみてください。

Answer 3

jとiの初期値が設定されていません。
適当に下記のように設定しました。
j = 100
i = 1

その上で、

G1セル　１
G2セル　ABC
G3セル　２
G4セル　ABC
G5セル　３

と入力し、実行したところ期待通りになっていました。

F8キーでステップ実行できますので
１行つづ確認していけば自身で原因はかわると思います。

Answer 4

値の比較は基本的に文字列どうしでやるのが無難です。

なので、自分ならまず比較を「Cstr(sheet.Cells(r, 7).Value) = "ABC"」
とします。
※今回はABCが文字列ですが、１等の数値を当てようとした時に、
文字列 vs 数値だとHitしないので。

あと、Hitしそうでしないパターンの調整ですかね。
Trimで前後スペースを除去したり、
StrConvで大文字小文字、全角半角を調整したり、
String_Compare(Str1, Str2, vbTextCompare)で判定してみたり。

Comments

[ExcelVBAer]

例えば if r = 10 Then Stop 等と、確実にあるべき位置で止めて、
Debug.Print sheet.Cells(r, 7).Value で値を確認してみては？

[skjdujr9djhf]

Cstr(sheet.Cells(r, 7).Value) = "ABC"で文字列同士の比較にしてみましたが、ヒットしませんでした。

また以下のコードとテストデータを作成して値を確認していますが、結果が得られません。
エラー1004「アプリケーション定義またはオブジェクト定義のエラーです。」が表示されます。
Sub abc()

Dim sheet As Worksheet

'変数宣言
Dim r As Long
Dim c As Long
Dim i As Long
Dim j As Long

'カウント変数
c = 0

'変数初期値
i = 1
j = 11

Set sheet = Worksheets("Sheet1")
r = sheet.Cells(j - 1, 7).End(xlUp).Row

Do While (i <= r)
If r = 7 Then
Stop

End If
r = r - 1
Loop

Debug.Print sheet.Cells(r, 7).Value

End Sub

調べるとCells()を使ったときの第1パラメータの変数iが0だと出る
http://www.koikikukan.com/archives/2013/11/20-015555.php

や対象のシートがアクティブでない時にエラーが発生するとのことです。
他に考えられる原因はあるでしょうか。

[ExcelVBAer]

1. Worksheets("Sheet1")は、ActiveWorkBook.Worksheets("Sheet1")と自動解釈されるので、
対象のブックをアクティブにするか、
対象のブックから呼び出すか(WorkBooks("ブック名").Worksheets("シート名"))
とする方が無難ですね。Sheet1とかよくある名前なので特に。。。

If文は、下記のようにも記述できますので、ご参考まで。
If r = 7 Then Stop

で、Stopしなかったのであれば、
７行目が処理されなかったということで、
r = sheet.Cells(j - 1, 7).End(xlUp).Row 時点の r が怪しいですねぇ。

デバッグの方法として、以下を使うとやりやすいのでご参考まで。
・ブレークポイント
・F8 でステップ実行
・ローカルウィンドウ
・イミディエイトウィンドウ

Answer 5

Cells(i,j)で取得できるRangeオブジェクトにはValue、Value2、Textといったプロパティで値が保持されるようです。

Valueプロパティの値と"ABC"の比較で検索できないのはValue2プロパティに値が保持されているからかもしれません。

Comments

[skjdujr9djhf]

Debug.Print sheet.Cells(r, 7).Value2

Value2プロパティで値を確認してみましたが、Valueの時と結果は変わりませんでした。

Answer 6

Debug.Print で、sheet.Cells(r, 7).Valueを確認して、"ABC"なのに、HITしないということなのでしょうか？

あとは、iの値がわからないですが、そもそもループに入ってないとかありませんか？

追記
ｉ、ｊは期待した値とのことなので・・・

 Do While (i <= r)
        Debug.print sheet.Cells(r, 7).Value
        If sheet.Cells(r, 7).Value = "ABC" Then

で、期待した値か表示されるか確認してみてはどうでしょう。

Comments

[skjdujr9djhf]

上記で確認するとデバック結果には「１」と表示されます。
テストデータ１０行ですが、全て１が返ってきます。
やはりsheet.Cells(r, 7).Valueで値が取れていないようです。

[momon-ga]

ステップ実行で変数の中身確認しましょう。
テストデータが入ってるシート名も合っているか確認です。