Fractions to numbers?

[roasthawg]

I have some numbers that I've imported from the internet. Some of them contain fractions (i.e. 7 1/2) where the 1/2 is a single fraction character. Is there a function I can use to automatically turn these fraction characters into numbers when they're imported to excel via web query? Thanks for your help!

[NBVC]

Can't guarantee it.. but if you post an actual sample sheet with these, we can check for you.

[Rick_Stanich]

I set a cell to "Number" format with 3 decimal places, then entered a random fraction of, 7 63/78. upon exiting the cell it automatically converted to decimal format, 7.808.

HTH

[roasthawg]

I uploaded a sample spreadsheet containing the fractions I'm talking about and attached it to this post... thanks.

[NBVC]

A formula like this might work:

=SUBSTITUTE(SUBSTITUTE(A3," ½",".5")," ¼",".25")+0

this is a nested Substitute() formula, that replace " " ½" with a ".5" and " ¼" with a ".25" note the space before the fraction...

you can nest several of these function to replace other common fractions..

The +0 outside the entire function converts the text number to an actual number

[Rick_Stanich]

Side note, am I missing something here? Why couldn't you format the cells to numbers with a decimal place setting?
That would take any value entered and convert to whole or decimal.
If set to two decimal places:
"1" = 1.00
"1 1/4" = 1.25
"25/64" = 0.39 (0.390625)
etc.

[Rick_Stanich]

Never mind!

sub BrainCellsActive
Loop
    BrainCells.Activate
    Think
Loop Forever
End sub

[bhofsetz]

Rick,

You forgot an error handler in your code.
What would happen if BrainCells.Activate could not execute?

Would we be stuck in debug mode not ever reaching the Think command?

[roasthawg]

Yeah, that should work. My problem was I can't type in the 1/2 in fractional character form but I figured out I can just cut and paste it... thanks a lot!

[NBVC]

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save

[Rick_Stanich]

sub BrainCellsActive
OnError Goto Bar
Loop
    BrainCells.Activate
    Think
Loop Forever
Bar:
With Bar.Drink
If Bar.Drunk <> True Then
Loop ForHours
Else
BrainCells.DeActivate
End If
End with
End sub

That help?