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

VBAで数字を符牒変換

知恵袋で下記のような質問を見かけました。

ACCESSでデータの文字変換を行いたいです。 (情報処理でいうところのテーブル変換... - Yahoo!知恵袋

以前も似たような質問を見た記憶があります。価格などを顧客から隠すために使用するのでしょうか。それなりに需要がありそうです。

VBAで数字を符牒変換タイトル

難易度: 難易度: 3

基本編

前掲の質問では下記のような仕様でした。

1234567890 を ABCDEFGHIJ に変換。

データ出力
100AJJ
250BEJ
350CEJ
256BEF
450DEJ

標準モジュール

応用編

同じ文字が続いた場合はXに置き換える。

データ出力
10000AJXXX
2550BEXJ
688FHX
115AXE

用途に応じて、宣言部の定数cHutyou, cHutyou1 を変更してください。
例えば、カタカナに変換したい場合は定数を下記のように宣言してください。

cHutyou は半角空白で区切って、0 1 2 ・・・に対応する文字を記述します。
cHutyou1 は上記から半角空白を削除したものです。


拍手する

Leave a reply






Trackbacks

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