How to convert any types format into Text with 5 digits in selection?

[qzqzjcjp]

How to convert any types format into Text with 5 digits in selection?

For instance, the content I select is "234", and I want it to convert to "00234". Just like the function "TEXT" in excel. How can I realize it promptly in VBA?

Thanks!!!

[mikerickson]

VBA's Format function works the same as TEXT.

[qzqzjcjp]

but I try

Please Login or Register  to view this content.

it doesn't work.

[jindon]

Perhaps

Please Login or Register  to view this content.

[cemregunay]

http://i.hizliresim.com/X2pkBD.jpg

TextBox2 = Format(TextBox1, "00000")

[jindon]

deleted......

[cemregunay]

Perhaps

Range("A1").Select
Selection.NumberFormat = "00000"

[qzqzjcjp]

@jindon what has happened??

[qzqzjcjp]

Thank you guys!
@jindon your code is what I exactly want! But how does it work? Why use "@" and why put a $ after Fomat??

However, another problem shows up, it doesn't work when I choose a range.

Please Login or Register  to view this content.

[cemregunay]

Hello
selection.JPG

Select worksheet-> selection change event and write the code, there

With Selection
.NumberFormat = "@"
.Value = Format$(Selection, "00000")
End With

Regards,

[qzqzjcjp]

It still doesn't work. The error is always: Run-time error '13' Type mismatch. I modified the code a little bit and it works!!!

Please Login or Register  to view this content.

But another problem comes up, If I select the whole column or whole cells, it costs too much time to run.

[jindon]

Change

Please Login or Register  to view this content.

to

Please Login or Register  to view this content.

[qzqzjcjp]

Thanks!!! Everyone!!