Not the most efficient, but does the job...
PHP Code:
=TEXT(INT(B1)&IF(B1<>INT(B1),RIGHT(ROUND((B1-INT(B1)),2),2),""),"00000000000000")
Hi all,
Not VBA related at this stage but I will be hoping to convert it into VBA in the long run.
I need to convert a number, which will be of indeterminate length, into a text string of fixed length. The length is 14 characters long.
To fill the length, I need to add leading zeros to the start of the number. So far I have come up with this:
Data Cell B1 Value in Data Cell 12345,67 Result Cell C1 Formula in Result Cell =REPT(0,14-LEN(TEXT(B1,"0.00")))&TEXT(B1,"0.00")
The problem is the result I get include the decimal place (fairly obviously):
00000123456.70
But I can't figure out how to get it without the decimal place:
00000012345670
I can't use LEFT and MID functions because the "." moves around and in fact in case where there is no decimal place, isn't even there.
I have tried formatting the numbers to be two decimal places but while it looks right on the screen: 1234 when formatted to 2 decimal places looks like 1234.00, but converts to 1234, and 1234.5, when formatted to two decimal places looks like 1234.50, but the Text function returns 1234.5.
Thanks!
Not the most efficient, but does the job...
PHP Code:
=TEXT(INT(B1)&IF(B1<>INT(B1),RIGHT(ROUND((B1-INT(B1)),2),2),""),"00000000000000")
Neil
Hi!
Thanks for that.
It doesn't quite work but this might be because my request was not clear.
When the number has full decimal places, it works fine, so 13663.13 becomes 00000001366313 as expected.
However 10152.00 just becomes 00000000010152 - i.e. the ".00" is ignored.
It should be 00000001015200
Likewise when having an exact 10th in the decimal, I lose all the decimals:
56462.1 becomes 00000000056462.
It should be 00000005646240.
I think you are overcomplicating this unnecessarily.
Just multiply your original number by 100, and zero pad that.
TIPS FOR FINDING EXCEL SOLUTIONS
1. Use the built-in Help that comes with Excel/Access
2. Use the Search functionality on this board
3. A lot of VBA code can be acquired by using the Macro Recorder.
"Give a man a fish, feed him for a day. Teach a man to fish, feed him for life!"
If I've understood, it's much simpler than I realised. Try this:
=TEXT(B1*100,"00000000000000")
Neil
How about = RIGHT("00000000000000" & SUBSTITUTE(A1,".",""), 14) which handles any location of the decimal point.
Mike,
If the entry is truly a numeric entry (maybe with formatting to show decimals):
Then your code wouldn't work in this case:I need to convert a number, which will be of indeterminate length,
Now, if 10152.00 was entered as Text, then it would work...However 10152.00 just becomes 00000000010152 - i.e. the ".00" is ignored.
It should be 00000001015200
Last edited by Joe4; Oct 18th, 2019 at 12:35 PM.
TIPS FOR FINDING EXCEL SOLUTIONS
1. Use the built-in Help that comes with Excel/Access
2. Use the Search functionality on this board
3. A lot of VBA code can be acquired by using the Macro Recorder.
"Give a man a fish, feed him for a day. Teach a man to fish, feed him for life!"
Like this thread? Share it with others