EXCELVBA 文字の判別
excelVBAで困っていることがあります。
あるセルに入っているデータの先頭の文字より半角数字5桁の数字を取得する処理を作っています。
先頭5文字をmid関数で取得すれば、簡単だと思っていたのですが、
データを見てみたところ、以下のようなデータがあることがわかりました。
(例)20-500(半角-),20―500(ダッシュ),20500(全角)
20 500(半角スペース),20 500(全角スペース),205(桁落ち),2050あ(全角文字付き)
5桁の数字が取得できると思われる箇所は
半角5桁で取得しなければいけません。
また、正しいデータは半角数字5桁だよ、
ということをユーザに知らせるため、半角数字5桁のデータ以外は
それぞれ半角-は赤、ダッシュは青等セルの色を変更する必要があって困っています。
ご教授ください。よろしくお願いいたします。
お礼
みんなありがとう