| |
▼白 さん：
>*-------------【処理】-----------------*
>・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列の最下行までくりかえす ということですか？
|
|
kanabun
- 13/7/9(火) 17:28 -
