Excelのセルの書式設定

質問

エクセルに関する質問です。お世話になります。
悩んでいるのが、９桁の数字を入力したとき途中にハイフンを入れたいのですが、これはユーザ定義（000-000000）という形でできました。ただ、９桁の数字以外を入力したときにはハイフンを入れないようにしたいのですが、どうにも解決できず質問させていただきました。ユーザ定義のみで可能なのか、それともマクロ等を使うのかも検討できない未熟者ですが、アドバイスいただけたら幸いです。よろしくお願いいたします。

回答No.1

imogasi

もし操作による書式設定で良い回答が出ない場合は
下記VBAを実行して下さい。
（１）ただデータ入力以前に実行しては効果なく、データを入力し終わってから実行してください。データを変えたらもう一度実行すること。
（２）書式を設定したいセル範囲を指定してから実行すること。
（コード）
Sub test02()
Dim cl As Range
For Each cl In Selection
If Len(cl) < 9 Then
cl.NumberFormat = "00000000"
Else
cl.NumberFormat = "000-000000"
End If
Next
End Sub
書式を設定したいセル範囲を範囲指定する。
ツール－マクロ－ＶＢＥでVBE画面になる。
その画面のメニューの挿入－標準モジュールをクリックし
出てきた画面で一番大きな空白のフレーム内に、上記コードをコピペする。
そしてカーソルをコードのどこでも良いからクリックしてメニューの実行をクリック。

お礼

早朝よりのご回答ありがとうございます。マクロ操作は初めてですが、さっそく試したいと思います。