エクセルＶＢＡで

質問

いつもお世話になります。

濁点・半濁点の文字を普通？の文字として認識させることは出来ますでしょうか？

例
Ａ1　じ
Ａ2　し

IF　Ａ1＝Ａ2　then
～

と使いたいのですが、「じ」＝「し」としたいということです。
宜しくお願いします。

回答No.1

todo36 · ベストアンサー

Function MyStrConv(ByVal s As String) As String
MyStrConv = Left(StrConv(StrConv(s, vbKatakana), vbNarrow), 1)
End Function

If(MyStrConv(Range("A1")) = MyStrConv(Range("A2")) Then

補足

早速の回答有難うございます。
これどうやって使うんですか？（ＴＴ）

Sub test()
Function MyStrConv(ByVal s As String) As String
MyStrConv = Left(StrConv(StrConv(s, vbKatakana), vbNarrow), 1)
End Function

If (MyStrConv(Range("A1"))) = (MyStrConv(Range("A2"))) Then
MsgBox "ok"
Else
MsgBox "ng"
End If
End Sub
で、試したんですけど、できません。(><)
補足お願いします。

回答No.2

mousengoke

No.1 todo36さんの

Function MyStrConv(ByVal s As String) As String
　MyStrConv = Left(StrConv(StrConv(s, vbKatakana), vbNarrow), 1)
End Function

はこれで1つの関数だからsubで囲む必要はないんです。
自分の呼び出したい関数またはサブルーチンから呼び出してください。

Sub test()
　If (MyStrConv(Range("A1"))) = (MyStrConv(Range("A2"))) Then
　　MsgBox "ok"
　Else
　　MsgBox "ng"
　End If
End Sub

という感じでしょうか?

お礼

mousengokeさん、補足有難うございます。
上手くいきました。(＾＾)/

トウシロウはこれやから困りますね・・・とほほ