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
関連記事
-
-
[Windows]Windows Server 2008 R2 IISインストール手順
Windows Server 2008 R2にIISをインストールする 環境 OS:Windows Server 2008 R2 IIS:ver7.5 インスト …
-
-
WEB会議・WEB面接を快適にするおすすめ機器の紹介
新型コロナウイルスの流行拡大に伴い、WEB会議・WEB面接を導入する企業が増えてきました。 この記事では、これからWEB会議・WEB面接を導入する予定の企業や実 …
-
-
エクセルで円と銭の通貨単位を表示する
Excelで入力した数値に円と銭の単位を表示する方法を記載します。 2種類の表示方法がありますので、用途に応じて使い分けてください。 セルの書式設定で表示 セル …
-
-
[Oracle]VBAからSELECT文を実行しデータを取得する方法
VBAからOracleデータベースでSELECT文を実行してデータを取得するライブラリを作成しましたので記載します。 Oracle接続にはOracle Clie …
-
-
【パソコン不要】HDDのデータをSSDに丸ごとコピーして交換する方法
近頃はSSDの記憶容量の増加、価格の値下がりが続き、HDDとの容量・価格差も縮まり購入しやすい状況となっています。HDDからSSDに交換することで読込・書込速度 …
-
-
Excel VBAでOracleのデータを参照するマスター検索機能を作成する
エクセルのVBAでOracleに保存されているマスタを検索する機能を作成する機会がありましたので、サンプルプログラムを記載します。 Oracleへの接続設定 V …
-
-
Windows標準機能を使ってフォルダの作成を自動化する方法
バッチファイルとタスクスケジューラでフォルダの作成を自動化する方法を記載します。 この記事の例では、毎月1日になると指定した場所に年月のフォルダを作成します。 …
-
-
[Windows]「このリモートコンピューターのIDを識別できません。接続しますか?」の対応方法
警告の原因と対応方法 リモートデスクトップ接続をしたときに表示されるこのメッセージ 「このリモートコンピューターのIDを識別できません。接続しますか?」 「はい …
-
-
既存パソコンを有効活用した、Windows 10への移行方法を考える
企業や個人用など数多くのパソコンで稼働しているOS、Windows 7のサポート期間が2020年1月14日に終了します。 サポート期間終了に向けてWindows …
-
-
Excelファイルの更新をメールで通知する方法【業務自動化】
ファイルを複数人で共有している時など、更新時にメンバーへ連絡することがルール化されている場合があります。 毎回、口頭や手動でメールで連絡していると、連絡漏れや連 …