[[20130102094753]]　『ゼロをつけたいです』（nobuhiko）　ページの最後に飛ぶ

『ゼロをつけたいです』（nobuhiko）

 明けましておめでとうございます。
 いつも勉強させて頂いています。

 VBA初心者ですが宜しくお願いします。

 0をつけて全ての数値を１０桁にしたいのですが、
 どのすればよいのかわからずにいます。

 A列に　1桁から、１０桁まで　バラバラに並んでいます。
 １１桁以上は、ありません。

 例えば、１２３４ですと　００００００１２３４
 と　したいです。

 宜しくお願いします。

 例
 Sub test()
    Dim x As String
    With Range("a1", Range("a" & Rows.Count).End(xlUp))
        x = .Address
        .Value = .Parent.Evaluate("if(" & x & "<>"""",if(isnumber(" _
        & x & "),""'""&text(" & x & ",""0000000000"")," & x & "),"""")")
    End With
End Sub
(seiya)

 空白セルがあると 0000000000 になってしまうけど、なければ。

 Sub Sample()
    With Range("A1", Range("A" & Rows.Count).End(xlUp))
        .NumberFormatLocal = "@"
        .Value = Application.Text(.Cells, "0000000000")
    End With
 End Sub

 追記）もし、表示だけでいいのなら、ＶＢＡを使わずともＡ列を選択して
 　　　表示書式　ユーザー定義で　0000000000 とするだけでいいよね。

 (ぶらっと)

 seiyaさん、ぶらっとさん
 有難うございました。
 内容を把握するのに時間がかかりましたが、出来ました。
 ありがとうございました。
 (nobuhiko)

コメント返信：

[ 一覧(最新更新順) ]

[[20130102094753]] 『ゼロをつけたいです』（nobuhiko） ページの最後に飛ぶ

[[20130102094753]]　『ゼロをつけたいです』（nobuhiko）　ページの最後に飛ぶ