エクセル２００３の表示について

質問

お世話になります。
エクセル２００３で次のようなことを行いたいと思っています。
Ａ１に「番号」、Ｂ１に「品名」とし、Ａ２以降にデータを入力していきます（B列は文字列）。
Ａ２に半角数字で「0123456789」と入力すると「01234-5678-9」と表示され、「5678」の位置の数字が（赤色）で表示され、それ以外の位置の数字は（黒色）で表示される。Ａ３以降も１０桁の数字を入力し同様の表示を行い、Ａ１１までデータを入力する。というものです。
「01234-5678-9」と入力した後、マクロを実行させると言う方法で対応しているのですが、もっといい方法があるはずだと思いますので、ご教示をよろしくお願いいたします。
不足、不明な点があればお知らせください。

回答No.1

m_and_dmp · ベストアンサー

A2～A11に10ケタの数をハイフンなしで入力し、入力が終わったら、つぎのマクロを実行します。
マクロにショートカットキーを割り当てておくと実行が楽です。
参考にしてください。

Sub Sample()
Dim LTRS As String
CC = 1
For RR = 2 To 12
LTRS = Cells(RR, CC).Value
If LTRS = "" Then Exit For
LTRS = Application.Text(LTRS, "00000-0000-0")
Cells(RR, CC) = LTRS
Cells(RR, CC).Characters(Start:=7, Length:=4).Font.ColorIndex = 3
Next RR
End Sub

お礼

ご回答ありがとうございました。
質問は簡略した形での投稿でしたが、ご回答いただいた内容を参考にして対応することができました。
Ｐ．Ｓ
回答に対するお礼が遅れましたことをお詫び申し上げます。