Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

619 / 76807

←次へ　｜　前へ→


	【81854】Re:次の列に続けて同じ処理を繰り返す方法

山内 - 21/6/30(水) 17:22 -


	引用なし

	パスワード

最初にA:Bに12時、C:Dに13時とおっしゃっていましたが
コードを見る限りA:Dが12時前半、E:Hが12時後半といった感じなのでしょうか？

ws1.Cells(a, 12) = "1200"の"1200"というのは12:00ということでしょうか？

a = 2 to 80で最高79個予約が入っている状態だと推測できるんですが
ElseIf ws2.Cells(29, 1) <> "" Then
　ws2.Cells(35, 1) = ""
　ws2.Cells(37, 1) = ""
End If
=""で空白にしてる部分全般に言えることなのですがなぜ空白にするのでしょうか
予約の上限なのでしょうか？
上限になったらExit Forなどでループから抜けるべきではないでしょうか

E:H列に書き込んでいく条件が
If ws1.Cells(a, 4) = "カット" And ws1.Cells(a, 12) = "1200" And ws1.Cells(a, 14) = "予約可" Then
とA:D列に書き込んでいく条件と全く同じなので二重予約になると思います。
正しい動作になのでしょうか？
間違った動作ならExit Forで抜けたところから再開するよう
For b = a to 80
など工夫が必要かもしれません。

Range("E29", "H34") = ""
などワークシートの指定がない箇所が複数あります。
こちらからはどのシートなのかわからないので指摘のしようがありません。

完成図が想像でしかわからないのでレイアウトを示してくれるともう少しはっきりとした回答ができるかもしれません。

4 hits

▼

【81841】次の列に続けて同じ処理を繰り返す方法 VBA初心者コウ 21/6/22(火) 19:19