Excel VBA質問箱 IV

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

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


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

542 / 76735

←次へ　｜　前へ→


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

山内 - 21/7/5(月) 14:35 -


	引用なし

	パスワード

>１つめは　
>　
>>　　ws2.Range("A5:BD" & iLast * 6 + 4).ClearContents
>
>マクロの実行を行うとこちらの式でエラーが出ました。
>範囲をA５：BD３５と指定をしても同じようにエラーが出ます。
>何か解決策はありますでしょうか。

元のコードからselectionを省略しているだけなので原因不明です。
エラーメッセージの内容を教えてください。

>２つめに
>
>>　　　　'If (ws1.Cells(a, 4).Value = "カット" Or ws1.Cells(a, 4).Value = "カラー") _
>>　　　　And ws1.Cells(a, 14).Value = "予約可" Then
>>　　　　'よくわからないのでとりあえずコメントアウト
>>　　　　　　For j = 1 To 2
>>　　　　　　　　For i = 1 To iLast
>>　　　　　　　　　　Set rng = ws2.Cells(i * 6 - 1, j * 4 - 3 + clmnplus)
>>　　　　　　　　　　If rng.Value = "" Then
>>　　　　　　　　　　　　rng.Value = ws1.Cells(a, 6).Value
>>　　　　　　　　　　　　ws2.Cells(rng.Row + 2, rng.Column + 3).Value = ws1.Cells(a, 4).Value
>>　　　　　　　　　　　　GoTo 脱出
>>　　　　　　　　　　End If
>>　　　　　　　　Next
>>　　　　　　Next
>>　　　　'End If
>
>こちらの条件式で実行をした場合に”トリートメント”予約の方も出てきました。
>作成いただいた表はカットとカラーを抽出したいのですが、もとのCSVデータには（a,4)にトリートメントの方も含まれております。どのようにすれば指定できるのでしょうか。

カットやカラー、トリートメントがどういう条件で分けるのか不明なため条件を時間だけに絞ってほかはコメントアウトしているからです。
コウさんのコードでわかる条件は
１．カットもしくはカラーである。１２時である。予約可である。
２．カットもしくはカラーである。１２時である。要確認である。
３．カラーもしくはトリートメントである。１２時ではない。
この３つだけです。
回答者からすると「じゃぁトリートメントで１２時のときは？カットで１２時以外のときは？」となるわけです。
条件分けするとき（特に自分以外がコードを見る必要がある時）は条件を漏れなく書きましょう。

>最後に同じ時間帯の枠（例えば９;１５の枠の中）の中で、
>同じ方が繰り返し入ってきました。
>この繰り返しを止める方法はございますでしょうか。
>
>ご面倒ばかりおかけして申し訳ございません。
>ご指導のほどよろしくお願いします。

同じ人が繰り返し入る場合はつまりws1に重複したデータが複数行入っているということです。
重複したデータを削除してから実行してください。

21 hits

▼

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