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

2019/08/17 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

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

Message コメントをキャンセル

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

Windows 2008 R2サーバにWSUSサーバを構築する WSUS（Windows Server Update Service）のインストール [スタート …

: VBAからOracleのストアドプロシージャを実行する方法

VBAからOracleのストアドプロシージャを実行する方法について記載します。 VBAからOracleに接続する方法は以前の記事を参考にしてください。ストアド …

: エクセルファイルを無料のビューア(Excel Mobile)で開く【Excel Viewerの代替手段】

Microsoft Officeがインストールされていないパソコンでエクセルを開くために、マイクロソフトが提供していたMicrosoft Excel Viewe …

: [Windows]共有フォルダのアクセス権を設定する

アクセス権の種類共有フォルダのアクセス権は[共有アクセス許可]と[NTFSアクセス許可]の2つの許可エントリのセットによって決定します。 [共有アクセス許可] …

: [Windows]IISセッションタイムアウト設定

IISのセッションタイムアウトを設定する機会がありましたので、設定手順について記載します。 IIS7にセッションタイムアウトを設定する IISではASP.NET …

: Excelのセル幅に合わせて縦横比を維持したまま画像サイズを自動調整する方法

VBAで画像を挿入することができますが、単純にセル幅に合わせて画像サイズを変更すると、縦長や横長の画像として挿入されます。縦横比を維持したまま、画像を挿入する …

: [Windows]Windows 7 リモートデスクトップの有効化

Windows 7にリモートデスクトップ接続する「コントロールパネル」ー「システムとセキュリティ」をクリック「システム」をクリック「リモート …

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

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

: Microsoft365(Office2019)にVisioをインストールする方法

Office2019以降のインストール形式は、クイック実行形式に統一され、従来のインストーラーを使ったMSI形式のインストールはできなくなっています。また、ク …

: [Windows]IISセッション管理(状態サーバ)

IISのセッションをアウトプロセスで管理する方法 IISのセッションはインプロセスが既定設定となっておりワーカープロセスが再起動されるたびにセッション情報が破棄 …

PREV: Excel VBAでOracleのデータを参照するマスター検索機能を作成する
NEXT: Oracleで文字列を全角大文字に変換する(ひらがな・カタカナの小文字(捨て仮名)対応)

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

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

ユーザ定義関数

Message コメントをキャンセル

関連記事

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

VBAからOracleのストアドプロシージャを実行する方法

エクセルファイルを無料のビューア(Excel Mobile)で開く【Excel Viewerの代替手段】

[Windows]共有フォルダのアクセス権を設定する

[Windows]IISセッションタイムアウト設定

Excelのセル幅に合わせて縦横比を維持したまま画像サイズを自動調整する方法

[Windows]Windows 7 リモートデスクトップの有効化

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

Microsoft365(Office2019)にVisioをインストールする方法

[Windows]IISセッション管理(状態サーバ)

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

ユーザ定義関数

Google AdSense PC

Google AdSense PC

Message コメントをキャンセル

関連記事