|
kanabunさん
レスありがとうございます。
文章化ですか…コードにするには言葉足らずという感じですかね?申し訳ないです、がんばります。
処理部分を修正しました、意図が違う、まだ足りない等ありましたら再度修正致します。
どうぞよろしくお願いします。
*-------------【処理】-----------------*
・Aシート:Uxの値を取得 ※最初のセルはU6
Dim a
a = Sheets("A").Range("U6").Value
[U6値がある場合]
If Not IsEmpty(a) Then
取得した値をBシートのB列にて検索、
・・検索した値が存在する 何もせずend
・・検索した値が存在しない 下の処理へ
AシートでA6の値を新たに取得し、BシートのAK列にて検索、
・・・検索した値が存在する Uxセルに色付(青)end
・・・検索した値が存在しない Uxセルに色付(赤)end
Else
[U6空白(値が無い)の場合]
AシートでA6の値を取得し、BシートのAK列にて検索、
・・検索した値が存在する Uxセルに色付(青)end
・・検索した値が存在しない 何もせずend
End If
次はU7の値を取得して同処理を実行、
Ux〜最下行まで同じ処理を繰り返す。
------------------
|
|