エクセルのセルの書式設定について教えてください。

質問

エクセルで作った表で住所録を作っているのですが、セルの書式設定で分からない点がありますので教えてください。

１・セルに対して住所を打ち込みたいのですが、数字の部分だけ自動的に半角にすることは可能ですか？
　例・１５丁目→15丁目

２・セルに対して電話番号を打ち込みたいのですが、9桁の番号に対して自動的にハイフンを付けることはできますか？
　例・0123456789→012-345-6789
（この際、頭文字が0の場合でも省略されないで表示されるようにしたいのです）

どなたかご存じの方がいらっしゃいましたら教えてください。

回答No.3

BLUEPIXY · ベストアンサー

1)
=ASC(セル)
で全角数字を半角数字にできますが、
英文字カナも半角になってしまうので、それが困る場合は、
ユーザー定義関数で
Public Function ZN2H(str As String)
str = Application.WorksheetFunction.Substitute(str, "０", "0")
str = Application.WorksheetFunction.Substitute(str, "１", "1")
str = Application.WorksheetFunction.Substitute(str, "２", "2")
str = Application.WorksheetFunction.Substitute(str, "３", "3")
str = Application.WorksheetFunction.Substitute(str, "４", "4")
str = Application.WorksheetFunction.Substitute(str, "５", "5")
str = Application.WorksheetFunction.Substitute(str, "６", "6")
str = Application.WorksheetFunction.Substitute(str, "７", "7")
str = Application.WorksheetFunction.Substitute(str, "８", "8")
str = Application.WorksheetFunction.Substitute(str, "９", "9")
Z2H = str
End Function
などとして、
=ZN2H(セル）
とします。

２．セルの書式設定で、000-0000-0000
とします。
市外局番によってハイフンの位置を変えるには、簡単にはできませんが、対応表さえあれば、マクロでユーザ定義関数を作成することはできると思います。

お礼

教えていただいたとおりにやってみたらできました！！わかりやすい説明をありがとうございました。

回答No.2

hirumin

［A1］＝"１５丁目"
であれば、
＝ASC(A1)
で「15丁目」にすることができます。
しかし、入力した物を自動的にとなると、マクロの分野になります。

電話番号については、セルの書式でユーザー定義、種類で
「000-000-0000」このようにそのまま書いて下さい。
10桁？9桁？任意で調整して下さい。

お礼

教えていただいたとおりにやってみたらできました！！わかりやすい説明をありがとうございました。

回答No.1

TK01

１． 関数で、 =ASC(対象セル) を使ってみてください。

２． セルの書式設定で、ユーザー定義にして、「000-0000-0000」と打ち込んで見てください。

どうでしょう？

お礼

教えていただいたとおりにやってみたらできました！！わかりやすい説明をありがとうございました。