Excel VBA質問箱 IV

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

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


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

615 / 76807

←次へ　｜　前へ→


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

VBA超初心者コウ

- 21/7/3(土) 19:00 -


	引用なし

	パスワード

山内　様

お世話になっております。
拙い説明の中でとても丁寧にご指導くださいましてありがとうございます。
初心者にも大変わかりやすい内容で助かります。
ご察しの通りws1.Cells(1,1)には担当者の名前が入ります。
しかし、担当ごとに条件はございません。

また、厚かましくて恐縮ではございますが、いくつか質問をさせてください。

１つめは　
　
>　　ws2.Range("A5:BD" & iLast * 6 + 4).ClearContents

マクロの実行を行うとこちらの式でエラーが出ました。
範囲をA５：BD３５と指定をしても同じようにエラーが出ます。
何か解決策はありますでしょうか。

２つめに

>　　　　'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)にトリートメントの方も含まれております。どのようにすれば指定できるのでしょうか。

最後に同じ時間帯の枠（例えば９;１５の枠の中）の中で、
同じ方が繰り返し入ってきました。
この繰り返しを止める方法はございますでしょうか。

ご面倒ばかりおかけして申し訳ございません。
ご指導のほどよろしくお願いします。

2 hits

▼

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