関数かVBAで拗音促音ァィゥェォッャュョヮを変換

拗音や促音の半角で1/2の高さのァィゥェォッャュョヮを半角カナに変換したいのです。
エクセル2000です。
一個ずつ置換えする以外に何かよい方法はないでしょうか？
お知恵をお貸しください。

No.2 ベストアンサー 回答者： nicotinism 回答日時： 2011/09/07 00:33

こんな風？標準モジュールにて

Public Function myConv(ByVal S As String) As String
　　Const Moji = "ァィゥェォャュョッ" '167,168,169,170,171,172,173,174,175
　　'アイウエオヤユヨツ '177,178,179,180,181,212,213,214,194
　　Dim i As Integer, C As String
　　myConv = S
　　For i = 1 To Len(S)
　　　　C = Mid(S, i, 1)
　　　　Select Case Asc(C)
　　　　　　Case 167 To 171
　　　　　　　　Mid(myConv, i) = Chr(Asc(C) + 10)
　　　　　　Case 172 To 174
　　　　　　　　Mid(myConv, i) = Chr(Asc(C) + 40)
　　　　　　Case 175
　　　　　　　　Mid(myConv, i) = "ツ"
　　　　End Select
'　　　　If InStr(Moji, C) > 0 Then
'　　　　　　Mid(myConv, i) = StrConv(Chr(Asc(C) + 1), vbNarrow)
'　　　　End If
　　Next i
End Function

ワークシートでは、=myconv(セル番地)
※「ワ」は不明です。当方2010
Const ・・・に続くカタカナは『小文字』の拗音促音です
その下のコメント行のは『半角大文字』です。数値は文字コード

この回答へのお礼

なるほど、文字コードに規則性があるのですね！
とれも参考になりました。
これで思うことができるようです。
助かりました。
有難うございます。

お礼日時：2011/09/07 11:02

No.3 回答者： kagakusuki 回答日時： 2011/09/07 01:58

　仮に、元の文字列がＳｈｅｅｔ1のA1セルに入力されると、変換後の文字列がＳｈｅｅｔ1のB1セルに表示される様にするものとして、Ｓｈｅｅｔ2のA1セルに

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(Sheet1!A1,"ァ","ア"),"ィ","イ"),"ゥ","ウ"),"ェ","エ"),"ォ","オ"),"ャ","ヤ"),"ュ","ユ"),"ョ","ヨ")

と入力しておき、Ｓｈｅｅｔ1のB1セルには

=SUBSTITUTE(Sheet1!A1,"ッ","ツ")

と入力

※半角の「ヮ」は無い様です。

この回答へのお礼

有難うございます。
勉強になりました。

お礼日時：2011/09/07 11:03

No.1 回答者： maverik1226 回答日時： 2011/09/06 21:05

こんばんわ

こんなんで、どうでしょうか？

Sub Test()

'★A1セルに入力してある文字を、B1セルに変換して出力します
With Sheets(1)

'全角ひらがな→半角カナの場合
.Range("B1").Value = StrConv(StrConv(.Range("A1").Value, vbKatakana), vbNarrow)

'全角カナ→半角カナの場合
.Range("B1").Value = StrConv(.Range("A1").Value, vbNarrow)
End With

End Sub

この回答へのお礼

このサイトは半角カナが表示できないので誤解を生んだかと思います。
全角ひらがな→半角カナでも全角カナ→半角カナでもありません。
現在半角カナになっている拗音、（例：キャ・キュ・キョ の小さなャュョなど）とか促音（バットの小さな゛ッなど）を、半角のヤユヨやツに変換したいのです。
よろしくお願いします。

お礼日時：2011/09/06 23:11