Hello,

I need declaration variable like this:

dim example as ???
example = 155
msgbox example
------------------------------------
And I need this result: 000155
------------------------------------
example = example + 1000
------------------------------------
And I need this result: 001155
------------------------------------

in range I cen use Selection.NumberFormat = "000000", but how its work when
I want use this in variable.

Thanks Tom

Will your number scheme (including leading zeroes) always be 6 digits
long? What is the smallest and largest scheme of numbers that you can
possible have?


Rollin


---
Message posted from http://www.ExcelForum.com/

msgbox Format(example,"000000")

--
Regards,
Tom Ogilvy

"TJF" wrote in message
...
Hello,

I need declaration variable like this:

dim example as ???
example = 155
msgbox example
------------------------------------
And I need this result: 000155
------------------------------------
example = example + 1000
------------------------------------
And I need this result: 001155
------------------------------------

in range I cen use Selection.NumberFormat = "000000", but how its work
when
I want use this in variable.

Thanks Tom

5 digits is enough for me. I need it for list of items.
example: PS-03-00001

So i need something like:

MyNumber = 1
result = "PS-03-" & MyNumber
msgbox result (or Range("A1") = result)
-------------------------------------
PS-03-00001
-------------------------------------

Thanks

"Rollin_Again" pí¹e v diskusním
pøíspìvku ...
Will your number scheme (including leading zeroes) always be 6 digits
long? What is the smallest and largest scheme of numbers that you can
possible have?


Rollin


---
Message posted from http://www.ExcelForum.com/

Here is one idea.

Sub Demo()
Dim n, Result
n = 1
Result = Format$(n, """PS-03-""00000")
MsgBox Result
End Sub


If it's used in a loop over many cells, perhaps make the format a constant.

Sub Demo2()
Dim n, Result
Const Fmt As String = """PS-03-""00000"
n = 123

Result = Format$(n, Fmt)
MsgBox Result
End Sub

HTH
--
Dana DeLouis
Using Windows XP & Office XP
= = = = = = = = = = = = = = = = =


"TJF" wrote in message
...
5 digits is enough for me. I need it for list of items.
example: PS-03-00001

So i need something like:

MyNumber = 1
result = "PS-03-" & MyNumber
msgbox result (or Range("A1") = result)
-------------------------------------
PS-03-00001
-------------------------------------

Thanks

"Rollin_Again" pí¹e v diskusním
pøíspìvku ...
Will your number scheme (including leading zeroes) always be 6 digits
long? What is the smallest and largest scheme of numbers that you can
possible have?


Rollin


---
Message posted from http://www.ExcelForum.com/

Hi Tom

Long ! Use Long for integer numbers and Double for numbers that may or may
not contain decimals.

Dim L As Long
L = 155
MsgBox Format(L,"000000")
L = L + 1000
MsgBox Format(L,"000000")

--
HTH. Best wishes Harald
Followup to newsgroup only please

"TJF" skrev i melding
...
Hello,

I need declaration variable like this:

dim example as ???
example = 155
msgbox example
------------------------------------
And I need this result: 000155
------------------------------------
example = example + 1000
------------------------------------
And I need this result: 001155
------------------------------------

in range I cen use Selection.NumberFormat = "000000", but how its work
when
I want use this in variable.

Thanks Tom