Skill Note

平凡なエンジニアがメモ代わりにプログラミング, インフラ, ネットワークを書き綴るブログ

VBAでひらがな・カタカナの小文字(捨て仮名)を全角に変換する

      2020/01/09

VBAで半角文字から全角文字に変換したり、ひらがなをカタカナに変換するには、「StrConv」関数に引数を指定することで意図した文字に変換することができます。ただし、「StrConv」関数では、ひらがな・カタカナの小文字(捨て仮名)を変換することができません。

この記事ではひらがな・カタカナの小文字(捨て仮名)を全角に変換するユーザ定義関数を記載します。

ユーザ定義関数

ユーザ定義関数を追加して引数に変換対象の文字列を渡します。

Option Explicit

Private Const ConvFromChar = "ぁぃぅぇぉっゃゅょゎァィゥェォッャュョァィゥェォッャュョ"
Private Const ConvToChar = "あいうえおつやゆよわアイウエオツヤユヨアイウエオツヤユヨ"

'************************************************************
'* 名称     : LowerConv
'* 機能概要 : ひらがな・カタカナの小文字(捨て仮名)を全角に変換する
'* 入力引数 : 変換対象文字列
'* 出力引数 : なし
'* 戻り値   : 変換後文字列
'* 備考     :
'************************************************************
Public Function LowerConv(args As String) As String
    Dim l, pos As Long

    LowerConv = args
    For l = 1 To Len(LowerConv)
        '小文字が含まれていないかチェック
        pos = InStr(ConvFromChar, Mid(LowerConv, l, 1))
        If pos > 0 Then
            '小文字が含まれていれば全角文字に置換
            Mid(LowerConv, l) = Mid(ConvToChar, pos, 1)
        End If
    Next l
End Function

Google AdSense PC

Google AdSense PC

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

  関連記事

microsoft
[Windows]Windows Server 2008 R2 IISインストール手順

Windows Server 2008 R2にIISをインストールする 環境 OS:Windows Server 2008 R2 IIS:ver7.5 インスト …

microsoft
WEB会議・WEB面接を快適にするおすすめ機器の紹介

新型コロナウイルスの流行拡大に伴い、WEB会議・WEB面接を導入する企業が増えてきました。 この記事では、これからWEB会議・WEB面接を導入する予定の企業や実 …

microsoft
エクセルで円と銭の通貨単位を表示する

Excelで入力した数値に円と銭の単位を表示する方法を記載します。 2種類の表示方法がありますので、用途に応じて使い分けてください。 セルの書式設定で表示 セル …

microsoft
[Oracle]VBAからSELECT文を実行しデータを取得する方法

VBAからOracleデータベースでSELECT文を実行してデータを取得するライブラリを作成しましたので記載します。 Oracle接続にはOracle Clie …

microsoft
【パソコン不要】HDDのデータをSSDに丸ごとコピーして交換する方法

近頃はSSDの記憶容量の増加、価格の値下がりが続き、HDDとの容量・価格差も縮まり購入しやすい状況となっています。HDDからSSDに交換することで読込・書込速度 …

microsoft
Excel VBAでOracleのデータを参照するマスター検索機能を作成する

エクセルのVBAでOracleに保存されているマスタを検索する機能を作成する機会がありましたので、サンプルプログラムを記載します。 Oracleへの接続設定 V …

microsoft
Windows標準機能を使ってフォルダの作成を自動化する方法

バッチファイルとタスクスケジューラでフォルダの作成を自動化する方法を記載します。 この記事の例では、毎月1日になると指定した場所に年月のフォルダを作成します。 …

microsoft
[Windows]「このリモートコンピューターのIDを識別できません。接続しますか?」の対応方法

警告の原因と対応方法 リモートデスクトップ接続をしたときに表示されるこのメッセージ 「このリモートコンピューターのIDを識別できません。接続しますか?」 「はい …

microsoft
既存パソコンを有効活用した、Windows 10への移行方法を考える

企業や個人用など数多くのパソコンで稼働しているOS、Windows 7のサポート期間が2020年1月14日に終了します。 サポート期間終了に向けてWindows …

Excelファイルの更新をメールで通知する方法【業務自動化】

ファイルを複数人で共有している時など、更新時にメンバーへ連絡することがルール化されている場合があります。 毎回、口頭や手動でメールで連絡していると、連絡漏れや連 …