禁止文字をエクセルかアクセスでチェックする方法について

あるデータ一覧に、禁止文字が含まれているかをエクセルorアクセスで確認したいのですが、関数やSQLが分かりません。
どなたかお教え頂ければ大変助かります。

【やりたいこと】
「◆データ一覧」に、「◆禁止文字一覧」が含まれているかをデータチェックしたい。
以下の場合だと、「◆データ一覧の1、2レコードめ」がデータ精査結果になればOK。

------------------------------------------
◆データ一覧
1レコードめ　　あいうAお
2レコードめ　　かきくけB
3レコードめ　　さしす1C

◆禁止文字一覧
1レコードめ　　A
2レコードめ　　B
3レコードめ　　D
------------------------------------------


どうぞ、よろしくお願いいたします。

No.2 回答者： avanzato 回答日時： 2009/12/21 17:02

#1です。

「関数で」となると複雑になりそうだった為、ユーザー定義関数を使用します。
---------------------
シート「データ一覧」
（A列）
あいうAお
かきくけB
さしすCそ
---------------------
シート「禁止文字一覧」
（A列）
A
B
D
---------------------
の状態であれば、
標準モジュールを追加していただき下記のコードを貼り付けて下さい。
'以下サンプル----
Function Taboo(Tgt As String) As String
　　Dim I As Integer
　　For I = 1 To Len(Tgt)
　　　　If IsError(Application.VLookup(Mid(Tgt, I, 1), Range("禁止文字一覧!A1:A65535").Value, 1, False)) = True Then
　　　　　　Taboo = ""
　　　　Else
　　　　　　Taboo = Application.VLookup(Mid(Tgt, I, 1), Range("禁止文字一覧!A1:A65535").Value, 1, False)
　　　　　　Exit For
　　　　End If
　　Next I
End Function
'----------
次に「データ一覧」のB列に
(B列)
=TABOO(A1)
=TABOO(A2)
=TABOO(A3)
として下さい。
問題が無ければ
(B列)
A
B
""（NULL）
が表示されます。

この回答へのお礼

avanzatoさま
無事にデータ精査することができました。
本当に、ありがとうございました！！！

お礼日時：2009/12/21 23:17

No.1 回答者： avanzato 回答日時： 2009/12/21 09:27

こんにちは。

エクセルとアクセスのどちらが希望でしょうか？
どちらでも出来ますのでどちらが第一希望でしょうか？
また、精査結果はどのような形で出力された方が良いですか？
メッセージボックスやレポートなど・・・。

この回答への補足

ご連絡、ありがとうございます。
エクセル・アクセスのどちらでも構わないのですが、まずは
エクセルを第一希望とさせていただきます。
関数の検索結果に（◆データ一覧の各レコードの横に）、対象禁止文字
「AやB」を出力したいです。
------------------------------------------
◆データ一覧シート
　　　　A列　　　　　 B列
1行　　あいうAお　　　A
2行　　かきくけB　　　B
3行　　さしす1C　　　Null　
※B列に関数を入れ、結果として、セルB1には「A」が表示される。

◆禁止文字一覧シート
1行　　A
2行　　B
3行　　D
------------------------------------------

どうぞ、ご教示の程よろしくお願い致します。

補足日時：2009/12/21 16:21