全角英数字だけを半角に変換するカスタムワークシート関数を作成しました。ワークシート関数だけで(VBAを使用せずに)同じことをしたい場合はコチラの記事を参照して下さい。類似のカスタムワークシート関数は下記のとおりです。全角文字を半角文字に変換する関数としてASC関数が存在しますが、これは全角カタカナ(全角カナ)も半角になってしまいます。このカスタム関数は全角英数字のみを変換します。動作例は下記の通りです。A1セルに全角英数字を含む「123ABCアイウ123ABCアイウ」を入力し、A2セルでカスタム関数のHALFWIDTHAN()を呼び出しています。半角英数字に変換します。全角カタカナは影響を受けません。引数に文字列以外を指定した場合、戻り値は文字列に変換されます。この関数は既定では下記の記号も半角に変換します。これらの記号を半角に変換したくない場合は、第2引数にFALSEを指定して下さい。変換する文字列を指定します。7ビット記号に対応する全角記号を半角に変換する場合はTRUE、変換しない場合はFALSEを指定します。省略した場合はTRUEが指定されます。ここで言う”7ビット記号に対応する全角記号”とは、下記の33文字を指します(先頭のスペース含む)。TRUEコード下記のコードを全てコピーし、標準モジュール等に貼り付けて下さい。下記のコード表示欄の右上に「Copy」ボタンがありますのでご使用下さい。このソフトウェアはMITライセンスの下でリリースされています。全角英数字を半角英数字に変換します。全角カタカナは影響を受けません。引数に文字列以外を指定した場合、戻り値は文字列に変換されます。変換する文字列を指定します。!"#$%&'()*+,-./:;<=>?@[\]^_`{|}~)に対応する全角記号を半角に変換する場合はTRUE、変換しない場合はFALSEを指定します。省略した場合はTRUEが指定されます。変換した文字列を返します。'引数Text中の連続した変換対象文字をBufferに結合していく。'変換対象外の文字を検出したら、Bufferを変換して戻り値に結合。License」を適用しています。本プログラムは無償で利用できますが、本プログラム内の著作権表示及びライセンス表示は削除せずに表示しておいて下さい。必須ではございませんが、本ホームページのプログラムを書籍またはホームページ等で一般公開したい方は、お問い合わせフォームよりご連絡頂けると幸いです。コメントをキャンセルメールアドレスが公開されることはありません。