以下のFor Nextで「Nextに対するForがありません」とコンパイルエラーが出ます。どこが悪いのか教えてください。
Sub 品番検索()
'
' Macro1 Macro
'
Application.Goto Reference:="Macro1"
'
Dim hinban As String
Dim y, n
y = 16
hinban = InputBox("品番を入力してください。", "品番入力", "ABC-123")
For n = 2 To 200
A0 = Worksheets("履歴RW").Cells(2, n)
A1 = Worksheets("履歴RW").Cells(2, n + 1)
A2 = Worksheets("履歴RW").Cells(2, n + 2)
A3 = Worksheets("履歴RW").Cells(2, n + 3)
A4 = Worksheets("履歴RW").Cells(2, n + 4)
A5 = Worksheets("履歴RW").Cells(2, n + 5)
A6 = Worksheets("履歴RW").Cells(2, n + 6)
A7 = Worksheets("履歴RW").Cells(2, n + 7)
A8 = Worksheets("履歴RW").Cells(2, n + 8)
A9 = Worksheets("履歴RW").Cells(2, n + 9)
If hinban = A0 Then
Worksheets("発注FM").Cells(y, 2) = A0
Worksheets("発注FM").Cells(y, 3) = A1
Worksheets("発注FM").Cells(y, 4) = A2
Worksheets("発注FM").Cells(y, 5) = A3
Worksheets("発注FM").Cells(y, 6) = A4
Worksheets("発注FM").Cells(y, 7) = A5
Worksheets("発注FM").Cells(y, 8) = A6
Worksheets("発注FM").Cells(y, 9) = A7
Worksheets("発注FM").Cells(y, 10) = A8
Worksheets("発注FM").Cells(y, 11) = A9
y = y + 1
Else
Next
End Sub
No.3
- 回答日時:
まさしく、構造化を意識してないがための落とし穴ですね~。
回答ありがとうございまいした。
昔BASICを少し経験した者ですが今のプログラムはJAVAなども含めて行番号へのGOTO文がないのでなかなか理解できません。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) なぜExit Subがあるのかわかりません 4 2023/02/19 12:34
- Visual Basic(VBA) VBA 別ブックからの転記の高速化について VBA 別ブックからの転記の高速化についてご教授下さい。 19 2022/07/26 13:07
- Visual Basic(VBA) 他のシートからコピーする下記マクロで貼付け位置をWorksheets(1).Range("A3")の 8 2023/01/30 18:48
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Visual Basic(VBA) VBAで最新のデータを別シートに転記する方法をお教えください。 3 2022/04/07 19:20
- Excel(エクセル) マクロ(データ取得と転記)について教えてください 3 2022/12/24 12:18
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Visual Basic(VBA) VBAコードが作動せず、どこに問題があるのか教えて下さい。 3 2023/06/13 13:20
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Visual Basic(VBA) vbaを早くしたい 5 2022/09/09 10:58
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「ご発注ありがとうございます...
-
中3日の意味
-
フォーキャストって何ですか?
-
見積書兼発注書の書き方
-
私の勤め先とその同業他社のや...
-
Excelの式を教えてください
-
単価単位、発注単位、発注入数...
-
セブンイレブン追加発注につい...
-
「お打ち合わせの件につきまし...
-
発注量の計算について 発注量=1...
-
土木設計で、段切りの設計について
-
セブンイレブンの発注で ソフト...
-
善管注意義務について
-
悪い意味で借金をしてまで人に...
-
IP発注
-
Access 実行時エラー’3079’が解...
-
コンビニのアルバイトです。発...
-
未加工品流出→対策
-
セブンイレブンの缶コーヒー
-
「発注書が"浮いてる」の"浮い...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ご発注ありがとうございます...
-
中3日の意味
-
フォーキャストって何ですか?
-
見積書兼発注書の書き方
-
エクセル ①上下にタイトル行を...
-
単価単位、発注単位、発注入数...
-
消耗品管理
-
Access 実行時エラー’3079’が解...
-
発注残とは何ですか?
-
土木設計で、段切りの設計について
-
「お打ち合わせの件につきまし...
-
発注量の計算について 発注量=1...
-
Excelで別シートへ自動入力
-
コリンズの登録期間に関すること
-
大手企業のヒラと中小企業の主...
-
POって何の意味ですか?
-
エクセルを使った、在庫管理と...
-
コンビニのアルバイトです。発...
-
セブンイレブンの発注で ソフト...
-
セブンイレブン追加発注につい...
おすすめ情報