クエリ-でリンクをした時

質問

Aデ－タとBデ－タ　の品名で　リンクしたとき　　Aデ-タに表示

　　Aデ－タ　　　　　　　　　　　　　Bデ－タ　　　　　　　　　　　　　クエリ結果
　　品名　　　　個数　　　　　　　　品名　　　　送付先　　　　　　　品名　　　　　　　　送付先
　　みかん　　　　5　　　　　　　　　みかん　　　姫路　　　　　　　　みかん　　　　　　　姫路
　　オリ－ブ　　　10　　　　　　　　オリ一ブ　　　神戸　　　　　　　オリ－ブ　
　　りんご　　　　　20　　　　　　　　りん　ご　　　大阪　　　　　　　りんご
とデ-タが入力されている時
　　オリ－ブ　と　りんご　の品名が　Bデ－タでは少し違うため、クエリ-結果では　送付先は空白
　　に成りますね。　フィルド条件に　どのような　条件命令を記入すれば良いのか、指導願います。
　　又　エクセルのLOOKUP で組んだときの曖昧検索の関数を指導願います。
　　VLOOKUP(　a1,c1:n50,0)のとき　0をどのように記入したら、良いでしょうか

回答No.4

nora1962 · ベストアンサー

とりあえず、作ってみました。
Function func_1(s)
Dim regex As Object

Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "[^a-zA-Zａ-ｚＡ-Ｚ0-9０-９ぁ-んァ-ヶ一-龠]"
regex.Global = True
regex.IgnoreCase = True

t = regex.Replace(s, "")
func_1 = StrConv(StrConv(StrConv(t, vbUpperCase), vbWide), vbHiragana)

End Function
この関数に文字列を渡すとすべて全角にし、カタカナ（半角、全角とも）を全角ひらがなに変換します。
また、アルファベット、数字、仮名、漢字以外の文字は削除します。

この関数を使って変換したデータ同士で比較すればかなりの曖昧比較になると思います。

お礼

忙しいところ、有難う御座います、明日職場で早速試したいと思います

補足

すいません　素人で　デ－タ変換初めて　使用するのですが　　テ-ブル作成してそのクエリのSQLのデ-タ定義にコピしたら良いのですか?

回答No.3

nora1962

「DBは　エクセルと　CSVを　リレ－ション　して」をするソフトが何なのかで違って来ます。
回答しましたがACCESSを使うならかなり簡単だと思います。
もし、EXCELだけでやろうとするなら、それなりに手間ひまかかりますし、実行時の負荷がかかります。

回答No.2

nora1962

「いろいろな一字違いが　空白とか小文字とか数千のデ-タ」
「みなす文字」が多い時は変換テーブルを用いる方法もあります。
ACCEESSならもともと、英字は大文字・小文字、1バイト文字と2バイト文字を同一にみなします。
かたかなとひらがなも清音であれば同様です。
（"あ" = "ア" が trueになります）

後、残るとすれば、濁音・半濁音、空白削除、長音記号とハイフン、句読点やカンマ・ピリオドの無視といったところではないでしょうか。

もっとも使用しているDBがACCESSでなければ話ガかなり変わってきますが。

補足

DBは　エクセルと　CSVを　リレ－ション　して必要な分だけ　CSVに取り込もうと
しています。可能ですか?

回答No.1

nora1962

「オリ－ブ」と「オリ一ブ」
・長音記号と２バイトのハイフンは同じとみなす（どちらかに変換して比較する）
「りんご」と「りん　ご」
・文字列中の空白を削除して比較する

ぐらいの規則性だったら、ユーザー定義関数かreplace関数を多段階に使うことで解決できます。
replace(replace(replace(項目," ",""),"　",""),"－","一")

補足

早速有難う御座います。言葉たらずなので補足します。　二つ位なら　置換によってデ-タを変換するのですが、いろいろな一字違いが　空白とか小文字とか数千のデ-タがありますので、困っていますので、大まかにデ-タが　有っていれば
選択クエリで　結合デ-タを作成したいのです。宜しくご指導ねがいます