symbols in VBA

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have a macro in which I have a formula which subsitutes symbols for numbers
but VBA turns all the symbols to "?". The formula is as follows:

=IF(I4=1,SUBSTITUTE(I4,1,"√",1),IF(I4=2,SUBSTITUTE(I4,2,"?",1),IF(I4=3,SUBSTITUTE(I4,3,"â—",1),IF(I4=0,SUBSTITUTE(I4,0,"â—‹",1)))))

How can I gat VBA to use the √ ◠and ○ symbols in the formula?
 
I have a macro in which I have a formula which subsitutes symbols for numbers
but VBA turns all the symbols to "?". The formula is as follows:

=IF(I4=1,SUBSTITUTE(I4,1,"√",1),IF(I4=2,SUBSTITUTE(I4,2,"?",1),IF(I4=3,SUBS­TITUTE(I4,3,"â—",1),IF(I4=0,SUBSTITUTE(I4,0,"â—‹",1)))))

How can I gat VBA to use the √ ◠and ○ symbols inthe formula?
Click to expand...

You could use the character code...
=IF(I4=1,SUBSTITUTE(I4,1,CHAR(0),1),IF(I4=2,SUBSTITUTE(I4,2,CHAR(63),
1),IF(I4=3,SUBSTITUTE(I4,3,CHAR(7),
1),IF(I4=0,SUBSTITUTE(I4,0,CHAR(176),1)))))
The exception is CHAR(0) for the first substitution. I'm not sure off
hand what character the sqrt symbol is. It may be that you have to
find somewhere to put the symbols (on another sheet or something) then
refer to the corresponding cell in your formula. I put the symbols
into A1, A2, A3, and A4 on the same sheet. Then wrote my formula like
this:

=IF(I4=1,SUBSTITUTE(I4,1,A11),IF(I4=2,SUBSTITUTE(I4,2,A2,1),IF(I4=3,SUBSTITUTE(I4,3,A3,1),IF(I4=0,SUBSTITUTE(I4,0,A4,1)))))

It worked and you can definately write that from VBA.

Hope this helps...
Rob
 
Hi Rob,

Thanks for your response, it worked but for the "√" symbol of course. Is
there a table of characters from which to choose that corresponds to the
CHAR( )? Or is there a way to define a font and character code in RTF?
 
Hi Rob,

Thanks for your response, it worked but for the "√" symbol of course. Is
there a table of characters from which to choose that corresponds to the
CHAR( )? Or is there a way to define a font and character code in RTF?







- Show quoted text -
Click to expand...

Actually, after trying it several times, I couldn't find a way to
bring that character up. It's not part of the 255 characters that
CHAR() refers to. I found the best way was just putting the character
into a separate cell, and refering to it as with my second solution.
Also, the characters for â—‹ and â— weren't the right ones either. As I
looked into it a little further, they aren't one of the 255.
Someone else may be able to help more, but again, the second solution
will work.
 
Thanks Rob, I got it to work with a combination of "CHAR" commands and
grabbing the symbol from another sheet as you suggested but I had to use a
"Sheet2!R1C1" format for the location of the symbol's cell, just using "A1"
for example did not work. BTW CHAR(7) and CHAR(176) did display â— and â—‹
correctly in our environment. I have noticed a few other differences in our
VBA configuration. Maybe a different version?

Anyway, thanks again.

Pierre
 
Back
Top