前提・実現したいこと
現在あるシートから値が空文字になるまで処理をするといった内容を書いています。
発生している問題・エラーメッセージ
Debug.printの最初の値が2ではなく最終行の10が表示されてしまいます。
該当のソースコード
vba
1Function Code_Get(item_code, LIST_SHEET) 2 Dim temp As Integer: temp = 2 3 Dim check_code 4 Dim summary_code 5 6 Do Until LIST_SHEET.Cells(temp, 1).Value = "" 7 8 Debug.Print (temp) 9 check_code = LIST_SHEET.Cells(temp, 2).Value 10 If check_code = item_code Then 11 summary_code = list_range.Offset(temp, 3).Value 12 Code_Get = summary_code 13 End If 14 temp = temp + 1 15 Loop 16 summary_code = "" 17 Code_Get = summary_code 18End Function
補足情報(FW/ツールのバージョンなど)
office2010
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。