Excelのユーザー定義関数について。

質問

ネットで調べて「アルファベットのみを半角にする」というユーザー定義関数を発見し使用していますが、
この関数にある特定の文字を変換する条件を追加することはできますでしょうか。
例えば、リンゴ　という文字がセル内にある場合、ミカン　に変換されて表示されるという条件を下記のユーザー定義関数に加える事ができますか。
もしくは、新たに別のユーザー定義関数を作るしかないのでしょうか。アドバイスよろしくお願いします。m(_ _ )m

Function ASC_A(str As String) As String
Dim i As Integer
For i = 1 To Len(str)
If Mid(str, i, 1) Like "[ａ-ｚＡ-Ｚ]" Then
Mid(str, i, 1) = StrConv(Mid(str, i, 1), vbNarrow)
End If
Next
ASC_A = str
End Function

回答No.3

kybo · ベストアンサー

Function ASC_A(str As String) As String
Dim i As Integer, A As Variant, B As Variant
For i = 1 To Len(str)
If Mid(str, i, 1) Like "[ａ-ｚＡ-Ｚ]" Then
Mid(str, i, 1) = StrConv(Mid(str, i, 1), vbNarrow)
End If
Next
'変換前のデータ
A = Array("リンゴ", "スイカ")
'変換後のデータ
B = Array("ミカン", "メロン")
For i = 0 To UBound(A)
If str Like "*" & A(i) & "*" Then
str = Replace(str, A(i), B(i))
End If
Next i
ASC_A = str
End Function

の様にしてみてください。

Array内のデータを[""]と[,]で追加してください

A = Array("リンゴ", "スイカ","あ","い")
B = Array("ミカン", "メロン","か","き")

お礼

分かりやすい回答ありがとうございましたm(_ _ )m
完璧な回答だったのでこちらをBAにさせて頂きます

回答No.2

mu2011

一例です。

Function ASC_A(str As String) As String
Dim i As Integer
For i = 1 To Len(str)
If Mid(str, i, 1) Like "[Ａ-ｚ]" Then
Mid(str, i, 1) = StrConv(Mid(str, i, 1), vbNarrow)
End If
Next
ASC_A = Replace(str, "リンゴ", "ミカン")
End Function

補足

回答ありがとうございます。
他にも何文字か足していくんですが、その場合は
＞ASC_A = Replace(str, "リンゴ", "ミカン")
この部分を足していくだけで宜しいのでしょうか。
例えば、リンゴ→ミカン以外にも、スイカ→メロンも置換する場合は
ASC_A = Replace(str, "リンゴ", "ミカン")
ASC_A = Replace(str, "スイカ", "メロン")

と足せばいいのでしょうか。

回答No.1

kybo

リンゴをミカンにするだけでいいのでしょうか。

Function ASC_A(str As String) As String
Dim i As Integer
For i = 1 To Len(str)
If Mid(str, i, 1) Like "[ａ-ｚＡ-Ｚ]" Then
Mid(str, i, 1) = StrConv(Mid(str, i, 1), vbNarrow)
End If
Next
If str Like "*リンゴ*" Then
str = Replace(str, "リンゴ", "ミカン")
End If
ASC_A = str
End Function

補足

回答ありがとうございます。
他にも何文字か足していくんですが、その場合は
＞str = Replace(str, "リンゴ", "ミカン")
この部分を足していくだけで宜しいのでしょうか。