AccessのVBAで、濁点抜きの頭文字を取得する。（平仮名）～パソコンの小技・備忘録

AccessのVBAで、濁点抜きの頭文字を取得する。（平仮名）

指定したテキストから、濁点抜きの頭文字（平仮名）を取得する方法です。

索引を作成するための頭文字を取得する際などに便利です。

'頭文字を返す関数として作成しています。 Public Function 平仮名から濁点を除去(ByVal S_Kana As String) As String 　　'変換用の変数を定義　　Dim tempKana As String 　　'引数が無い場合は、処理を中止　　If S_Kana = "" Then 　　　　平仮名から濁点を除去 = "" 　　　　Exit_Function 　　End If 　　'一度半角にしてから、1文字取得し、全角に戻す。　　tempKana = Left(S_Kana, 1) 　　tempKana = StrConv(StrConv(tempKana, vbKatakana), vbNarrow) 　　tempKana = Left(tempKana, 1) 　　平仮名から濁点を除去 = StrConv(StrConv(tempKana, vbWide), vbHiragana) End Function

上記の関数を用いることで、濁点を除いた頭文字を取得することができます。

トップページに戻る

パソコンの小技・備忘録トップページ(http://pckowaza.web.fc2.com/)を表示

※更新履歴などを掲載していますので、お気に入りはぜひトップページでお願いします！

パソコンの小技・備忘録

AccessのVBAで、濁点抜きの頭文字を取得する。（平仮名）

トップページに戻る

サイト内検索

小技カテゴリー

カウンタ

メール送信