Declaration?

  • Thread starter Thread starter TJF
  • Start date Start date
T

TJF

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
 
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)
 
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 said:
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)
Click to expand...
 
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")
 
Back
Top