Excelについて質問させていただきます。

質問

Excelについて質問させていただきます。

セルに書式設定のユーザー定義で、0000000に設定されていたとします。
1を入力した場合は、0000001と表示されますが、これを隣のセルなどに、文字列で0000001としてコピーすることはVBA、関数で可能でしょうか？

よろしくお願いします。

回答No.2

keithin · ベストアンサー

関数で
=TEXT(A1,"0000000")

マクロで
range("B1").numberformat = "@"
range("B1") = range("A1").text

回答No.3

kmetu

隣のセルの書式を文字列にしておいてください。

VBA　(0000001と表示されているセルを選択して実行)

Sub test()
ActiveCell.Offset(0, 1).Value = Format((ActiveCell.Value), ActiveCell.NumberFormat)
End Sub

回答No.1

Cupper

関数を使う場合は、FORMAT関数と TEXT関数で書式を指定しましょう。
（完全に複製することはできない事もあります）

VBAは勉強中なので、できるのでしょうが方法を知りません。