| |
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〜最下行まで同じ処理を繰り返す。
------------------
|
|
白
- 13/7/9(火) 13:39 -
