文字列に特定の文字の有無を調べたい。
ある文字列に特定の文字が入っているか否かを調べたいのです。
AccessでVBAを使用して有無を調べたいんです。
具体的には下記の通りです。
カナ氏名が入力されているフィールドを検索して文字列を抽出したいんです。
"抽出"をカナにすると"チュウシュツ"ですよね。
所が私が使用しているテーブルのカナ氏名が入力されているフィールドには
"抽出"は"チユウシユツ"と入力されているんです。
"チュウシュツ"と入力しても"抽出"は表示されず、"チユウシユツ"と入力しなければ
"抽出"は表示されません。
従って"チュウシュツ"とキーボード入力してから先頭から2文字目と5文字目の
"ュ"を"ユ"に再度変換しなければならないんです。
何か簡単な関数やプロシージャがないでしょうか？
何分初心者なんで下記の様な凄く長いプロシージャしか思い浮かびません。
宜しくお願いいたします。
（例）
Public Function Kana_change()
Dim kana As String
'左から2桁目が小文字の時の変換
If Mid(kana, 2, 1) = "ァ" Then
kana = Right(kana, 1) & "ア" & Mid(kana, 3, 13)
Else
kana = kana
End If
If Mid(kana, 2, 1) = "ィ" Then
kana = Right(kana, 1) & "イ" & Mid(kana, 3, 13)
Else
kana = kana
End If
If Mid(kana, 2, 1) = "ゥ" Then
kana = Right(kana, 1) & "ウ" & Mid(kana, 3, 13)
Else
kana = kana
End If
If Mid(kana, 2, 1) = "ェ" Then
kana = Right(kana, 1) & "エ" & Mid(kana, 3, 13)
Else
kana = kana
End If
If Mid(kana, 2, 1) = "ォ" Then
kana = Right(kana, 1) & "オ" & Mid(kana, 3, 13)
Else
kana = kana
End If
If Mid(kana, 2, 1) = "ャ" Then
kana = Right(kana, 1) & "ヤ" & Mid(kana, 3, 13)
Else
kana = kana
End If
If Mid(kana, 2, 1) = "ュ" Then
kana = Right(kana, 1) & "ユ" & Mid(kana, 3, 13)
Else
kana = kana
End If
If Mid(kana, 2, 1) = "ョ" Then
kana = Right(kana, 1) & "ヨ" & Mid(kana, 3, 13)
Else
kana = kana
End If
If Mid(kana, 2, 1) = "ッ" Then
kana = Right(kana, 1) & "ツ" & Mid(kana, 3, 13)
Else
kana = kana
End If
End Sub
End Function
お礼
ありがとうございます。