以下の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日の意味
-
フォーキャストって何ですか?
-
見積書兼発注書の書き方
-
受発注の意味を教えて下さい。
-
POって何の意味ですか?
-
コリンズの登録期間に関すること
-
エクセル ①上下にタイトル行を...
-
コンビニのアルバイトです。発...
-
単価単位、発注単位、発注入数...
-
Excelの式を教えてください
-
発注残とは何ですか?
-
エクセルデータから必要な項目...
-
【至急】どなたか英訳お願い致...
-
「お打ち合わせの件につきまし...
-
【キチ○イ?】折り返し電話をさ...
-
アプリ開発系の仕事をしていま...
-
SPAとマーチャンダイジングの違...
-
金本位制が崩壊したのは、金が...
-
以下のFor Nextで「Nextに対す...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ご発注ありがとうございます...
-
中3日の意味
-
フォーキャストって何ですか?
-
見積書兼発注書の書き方
-
エクセル ①上下にタイトル行を...
-
被服の営業をしています。取引...
-
もうすぐ、職場で担当の割引セ...
-
単価単位、発注単位、発注入数...
-
スーパーやドラストでの食品な...
-
皆さん 物置はどこで購入 設置...
-
ゲームアプリで不具合が発生し...
-
大手企業のヒラと中小企業の主...
-
Access 実行時エラー’3079’が解...
-
セブンイレブンの発注で ソフト...
-
発注書をもらったのちのキャンセル
-
発注残とは何ですか?
-
IP発注
-
土木設計で、段切りの設計について
-
「お打ち合わせの件につきまし...
-
私の勤め先とその同業他社のや...
おすすめ情報