ステップインでしか正しい結果が得られない

前提・実現したいこと

E列に数字を足していき、12を超えたら1に戻るというソースコードを組みました。
E列には8行目から数行目まで数字が入っている状態です。

発生している問題・エラーメッセージ

実行をすると全てが1になってしまいます。
ステップインでの操作だと12を超えない限り、1に戻る事がないです。

ステップインでエラーを探そうとしても、ステップインだと想定通りの
動き（前提・実現したいことで触れている動き）になるのでどうにも
手の施しようがない状態です。

該当のソースコード

VBA
1        For cnt = 8 To Cells(Rows.Count, 5).End(xlUp).row
2            If KJS.Worksheets("hoge").Range("E" & cnt) = "" Then
3                Exit For
4            End If
5        
6            KJS.Worksheets("hoge").Range("E" & cnt) = Range("E" & cnt) + 1
7            
8            If KJS.Worksheets("hoge").Range("E" & cnt).Value > 12 Then
9                KJS.Worksheets("hoge").Range("E" & cnt).Value = 1
10            End If
11        Next cnt

補足情報（FW/ツールのバージョンなど）

Excel365

行動規範の内容に同意します

回答1件

ベストアンサー

For cnt = 8 To Cells(Rows.Count, 5).End(xlUp).rowのCellsとRows
KJS.Worksheets("hoge").Range("E" & cnt) = Range("E" & cnt) + 1の後ろのRange
これらにはKJS.Worksheets("hoge").がついていませんけれど、どこから取得している想定なのでしょう？

ステップインしながらだと対象とするシートを切り替えてしまうことができますので、その辺が原因と思います。

CellsやRows、Rangeなどは操作する対象を明確にしておきましょう。

投稿2021/08/11 02:38