FC2ブログ

カタカナ⇔ひらがな相互変換

2017–10–15 (Sun) 12:56
Function hiragana(文字列 As Variant)
Dim mojiretsu As String
mojiretsu = 文字列
hiragana = StrConv(mojiretsu, vbHiragana)
End Function

Function katakana(文字列 As Variant)
Dim mojiretsu As String
mojiretsu = 文字列
katakana = StrConv(mojiretsu, vbKatakana)
End Function

a.png
スポンサーサイト



« 括弧内・括弧前・括弧後を取得 | HOME |  ハイフン前・ハイフン後の文字列を抽出する »

コメント

コメントの投稿

 
管理者にだけ表示

 | HOME | 

プロフィール

はる

Author:はる
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク