[[20120424095210]]　『文字間に半角スペースを入れる方法』（にっし）　ページの最後に飛ぶ

『文字間に半角スペースを入れる方法』（にっし）

郵便番号の間に半角スペースを入れる方法を探しています。

郵便番号

012000 ⇒　0 1 2 0 0 0 0
こんな方法ありませんか？

 入力したセルでの表示でスペースを入れたいの？
 それとも入力したセルとは別のセルでの表示でもいいの？
 (春日野馨)

表示形式のユーザー定義で
0_00_00_00_00_00_00_0

ただし、この場合は表示形式で数値を７桁表示にしているだけですから、
他のセルで参照するときには注意が必要です。
012000　は実際の中身は　12000　。　
（みやほりん）

 UDFはどうでしょうか？
　
[[20060803163351]]　『文字間にスペースを入れたい』（ヒロ）　
　
(ROUGE)

 こんな感じにするといいかな？

 =StrInBtwn(A1)

 Function StrInBtwn(txt As String) As String
With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "(.)(?!$)"
    StrInBtwn = .Replace(txt, "$1 ")
End With
End Function
(seiya)

 郵便番号限定の数式なら、こんなことでいいのでは？

 =TEXT(A1,"0 0 0 0 0 0 0;;")
　
（純丸）(o^-')b

コメント返信：

[ 一覧(最新更新順) ]

[[20120424095210]] 『文字間に半角スペースを入れる方法』（にっし） ページの最後に飛ぶ

[[20120424095210]]　『文字間に半角スペースを入れる方法』（にっし）　ページの最後に飛ぶ