|
▼白 さん:
>*-------------【処理】-----------------*
>・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
-------
まず[U6]セルをみて、
値が入っていれば、「B」シートのB列に同じ値があるか、検索
その結果、同じ値がなければ、以下の処理▼を行う
処理▼:
その行のA列,すなわち[A6]の値を「B」シートのAK列で、検索
検索値が存在したら [U6]セルを(青)で塗りつぶす
検索値が存在しないときは [U6]を(赤)で塗りつぶす
[U6]に値が入っていないときは、すぐ 処理▼ を実行する
-------
ということですね?
そうすると、処理▼ のとき [A6]に「値が入っていないとき」は
どうしましょ?
そういうことは絶対ないと言えますか?
>次はU7の値を取得して同処理を実行、
>Ux〜最下行まで同じ処理を繰り返す。
>------------------
これですが、[U7]に値が入っていないときは、[U6]が最下行ということで、
[U6]の処理をして終了してしまっていいのですか?
それとも A列の最下行までくりかえす ということですか?
|
|