VBAのNEXTに対するforがありませんの対応に困ってます
自分なりに For 分のコードを考えたのですが
どうもうまくいきません教えてください
以下がコードになります
Sub 商品登録()
Dim q As String
Dim x As Integer
For x = 4 To 7
q = MsgBox("登録OK?", vbYesNo + vbQuestion)
If q = vbYes Then
Sheets("リスト").Range("B" & x) = Sheets("登録").Range("B3")
Sheets("リスト").Range("C" & x) = Sheets("登録").Range("B4")
Sheets("リスト").Range("D" & x) = Sheets("登録").Range("B5")
Sheets("リスト").Range("A" & x) = Date
Sheets("登録").Range("B3:B5").ClearContents
MsgBox "登録完了しました"
Next
Else: MsgBox ("登録中止")
End If
End Sub
No.4ベストアンサー
- 回答日時:
こんばんは。
多分ですが、下記の様な事をやりたいのかな?と思いました。
Sub 商品登録()
Dim x As Long
If MsgBox("登録OK?", vbYesNo + vbQuestion) = vbYes Then
For x = 4 To 7
Sheets("リスト").Range("B" & x) = Sheets("登録").Range("B3")
Sheets("リスト").Range("C" & x) = Sheets("登録").Range("B4")
Sheets("リスト").Range("D" & x) = Sheets("登録").Range("B5")
Sheets("リスト").Range("A" & x) = Date
Next
Sheets("登録").Range("B3:B5").ClearContents
MsgBox "登録完了しました"
Else
MsgBox ("登録中止")
End If
No.3
- 回答日時:
こんばんは
直接の原因は、For ~ Next と IF ~ End IF が相互に跨がってしまっているのが原因です。
一方が他方に包含される関係になっていれば、正しく解釈されます。
実際の処理内容をどうなさりたいのか不明ですけれど、こんなことでしょうか?
Sub 商品登録()
Dim q As String
Dim x As Integer
q = MsgBox("登録OK?", vbYesNo + vbQuestion)
If q = vbYes Then
For x = 4 To 7
Sheets("リスト").Range("B" & x) = Sheets("登録").Range("B3")
Sheets("リスト").Range("C" & x) = Sheets("登録").Range("B4")
Sheets("リスト").Range("D" & x) = Sheets("登録").Range("B5")
Sheets("リスト").Range("A" & x) = Date
Sheets("登録").Range("B3:B5").ClearContents
MsgBox "登録完了しました"
Next
Else: MsgBox ("登録中止")
End If
End Sub
No.1
- 回答日時:
'例えばこうすると動きますか?
Sub 商品登録()
Dim q As String
Dim x As Integer
For x = 4 To 7
q = MsgBox("登録OK?", vbYesNo + vbQuestion)
If q = vbYes Then
Sheets("リスト").Range("B" & x) = Sheets("登録").Range("B3")
Sheets("リスト").Range("C" & x) = Sheets("登録").Range("B4")
Sheets("リスト").Range("D" & x) = Sheets("登録").Range("B5")
Sheets("リスト").Range("A" & x) = Date
Sheets("登録").Range("B3:B5").ClearContents
MsgBox "登録完了しました"
Else
MsgBox ("登録中止")
End If
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Visual Basic(VBA) シート名でファイル検索する 2 2021/11/30 17:05
- Visual Basic(VBA) VBAでのVlookupの扱い方 3 2021/11/23 01:25
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) EXCLE VBA シートクリックしたら該当シートコピー 1 2021/11/11 16:37
- Visual Basic(VBA) EXCEL VBA シート貼り付け 3 2021/11/15 12:33
- Visual Basic(VBA) シート名をフォルダ名に変更 1 2021/12/01 15:59
- Visual Basic(VBA) 空のシートに関数を入れたい 2 2021/12/03 15:08
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) サブフォルダ含むすべてのフォルダの Excel 検索 4 2021/12/13 09:33
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
三菱ufjニコスカードのVIZAを使...
-
NHKオンデマンドの加入方法は?
-
VBAのNEXTに対するforがありま...
-
ODBCのデータソース登録内容の確認
-
ASUS 登録
-
ネットで特急電車を乗り継いで...
-
知恵袋登録したくて認証コード...
-
教えて!gooを新規登録する時に...
-
あなたの電話帳、登録件数が多...
-
中国のファイル共有サイト115.c...
-
派遣会社に
-
ウィルスバスター2007の登...
-
マッチングアプリにいる女性に...
-
マイラインについて
-
googleマイマップからコンテン...
-
この教えてgoo!のプロフィール...
-
fc2登録について
-
regsvr32.exe による DLLの登...
-
自販機でモバイルPASMOが使えない
-
CDDBにデータが登録されるまで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
三菱ufjニコスカードのVIZAを使...
-
マッチングアプリにいる女性に...
-
regsvr32.exe による DLLの登...
-
fc2登録について
-
この教えてgoo!のプロフィール...
-
特定商工業者?(法定台帳登録...
-
自販機でモバイルPASMOが使えない
-
誰も電話帳にSNSプロフィールっ...
-
知恵袋登録したくて認証コード...
-
ユーチューブのお気に入りが消...
-
Benesseのマナビジョンで、氏名...
-
ジャニーズショップの同行者登...
-
中国のファイル共有サイト115.c...
-
九州電力の電気代・使用量をHP...
-
番号の登録しない人っていますか?
-
電話番号を変えたら、Yahoo!知...
-
すべてのチェックボックスがoff...
-
シェルスターレックスカード NI...
-
ベガプロモーションというライ...
-
私が精神病のことをどこから知...
おすすめ情報