MS Access Tips/Sample and VBA and Blog customize etc...

文字列中の1桁の数字のみ全角にする

「欠課12遅刻2欠席23」のような文字列があるとします。これを「欠課12遅刻2欠席23」
のように変換したい。
というような質問の回答に用意した関数です。 文字列内に含まれている数値で、一桁のみ全角に変換するという関数です。 年月で文字幅を揃えるために
2009年3月20日
2008年12月4日
などとしたいときにも使えそうです。 文字列を処理するときのロジックの参考に、また、IsNumeric関数、Midステートメントの使用例にもなると思います。

難易度:

標準モジュールに下記の関数を作成します。

クエリでの使用例、フィールドに、

式1: Num1ColWide([フィールド名])

テキストボックスでの使用例、コントロールソースに、

=Num1ColWide([フィールド名])

Access以外のExcel、Word等のOfficeアプリでも使用出来ます。

追記<2009/03/21 10:03>:
コードに間違いがありましたので、修正しました。

拍手する

Leave a reply






Trackbacks

trackback URL
http://hatenachips.blog34.fc2.com/tb.php/13-08265dab
該当の記事は見つかりませんでした。