|
▼白 さん:
>二つの異なるデータベースの情報が正しく入力されているか
>色付けにてチェックするマクロ
日本語の疑似コード、分るところだけ、コード化すると
以下のようになります。
>*-------------【処理】-----------------*
>・Aシート:U6の値を取得
Dim a
a = Sheets("A").Range("U6").Value
>[U6値がある場合]
If Not IsEmpty(a) Then
> Bシート:(B列)を検索、
> ・・HIT 色無し1. end
> ・・MISS ↓へ
> Aシート:A6の値を取得し、Bシート:AK列を検索、
> ・・・HIT 色有り2. end
> ・・・MISS 色有り3. end
>
Else
> [U6空白の場合]
> Aシート:A6の値を取得し、Bシート:AK列を検索、
> ・・HIT 色有り2. end
> ・・MISS 色無し1. end
>
End If
>上記処理のA,U6〜最下行まで同じ処理を繰り返す。
------------------
If [U6値がある場合] Then
のときの処理
Else ' [U6空白の場合]
のときの処理
End If
この
If Else
それぞれのときの------処理内容
を、もう少しコード化しやすく、文章化すれば、
コードは自ずから 現れてきそうな気配です。
もうちょっとですので、がんばって、文章化してください。
|
|