Base自分用のナレッジベース。Server、オープンソース系のシステムやフリーソフトに関する情報、iPhone、Androidスマホ便利情報など役立つ情報などを覚書しておくためのブログ。半角カタカナを全角カタカナに、全角英数字を半角に変換するユーザー定義関数を作成したので覚書きしておく。ExcelのVBAでもAccessのVBAでも同じように使えます。別の記事で半角カタカナを全角に、全角英数、記号を半角にするユーザー定義関数、半角カタカナのみを全角カタカナに変換するユーザー定義関数のサンプルプログラムについて記載しています。関連記事欄に各記事のリンクを貼ってありますのでそちらを参照してください。スポンサードリンクユーザー定義関数の概要このユーザー定義関数の処理の概要としては、まず引数として受け取った対象文字データを一文字ずつ取り出す。次に取り出した一文字のASCIIコードが半角カタカナ、全角英数字のASCIIコード範囲内か確認して範囲内だったらカタカナは全角、英数字は半角に変換して文字を作りなおすという感じです。ユーザー定義関数のサンプルプログラム以下に作成したユーザー定義関数のサンプルプログラムを記載します。ExcelでもAccessでも標準モジュールに記載してください。FunctionASCIIコードについては、こちらを参考にしてください。作成したユーザー定義関数の使い方の例を以下に記載します。基本的に通常の組み込み関数と同じ使い方ができます。"変換したい文字列"部分は文字列が入ったセル番地を直接指定してもOKです。VBAのプログラム中から呼び出して使用することも可能です。Excelで使用する場合と同様に標準の組み込み関数と同じように使用することができます。関連する他の記事のリンクを以下に貼っておきますので参考にしてください。したコードに感銘しました。私のホームページでも紹介させていただきました。貴サイトへのリンクを明示しています。ご了解を、お願いいたします。貴重なノウハウを公開いただき、感謝いたします。