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]指定サイズのファイルを作成する

ネットワークの通信速度などを調査する場合にサイズの大きなファイルを作成する必要があります。 この記事では「fsutil」コマンドを使用したダミーファイルの作成方 …

アクセス(Access)を購入せずに無料のランタイムだけで使う方法

Accessは、マイクロソフトが提供しているリレーショナルデータベースソフトです。 データベースにデータを蓄積することで、条件に一致するデータを抽出することやデ …

microsoft
[Windows]WSUSサーバの構築手順 5/6

Windows 2008 R2サーバにWSUSサーバを構築する WSUS(Windows Server Update Service)の設定 [スタート]-[す …

VBAからSQL Serverに接続する方法(Microsoft OLE DB Provider for SQL Server)

VBAから業務システムなどに使用しているデータベースに接続し、データを抽出することができます。 定期的に作成する資料などは、VBAでデータ取得処理を自動化し、ボ …

microsoft
[Windows]WSUSサーバの構築手順 6/6

Windows 2008 R2サーバにWSUSサーバを構築する クライアントPCがWSUSサーバから更新プログラムをダウンロードするにはグループポリシーを設定す …

microsoft
Windows10パソコンを使ってKY-01Lの電話帳・連絡先を登録する方法

NTTドコモのカードケータイ KY-01Lの電話帳・連絡先の取り込みは、BluetoothやSIMカードを使った方法が説明書に記載されています。 Bluetoo …

microsoft
Outlookでメール送信中になったまま送受信が終了しない場合

開封確認のメールが正常に送信されず、送信中のまま送受信が終了しない場合があります。 原因となる開封確認メールは送信トレイに存在しないため、削除することができませ …

microsoft
[Windows]リモートデスクトップのシングルサインオン

ドメイン参加PCでシングルサインオンする Active Directoryのドメインに所属した場合、既定の設定のままでは、資格情報が使用できないため、 リモート …

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

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

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

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