In filling analytical and other results into tables, if a relation should be
expressed (i.e. ï‚£20 ppm = €œunder the limit of detection€�), a vast majority of
people used to record directly this script. The format, however, accomodates
to a text one, which prevents the range from being taken into further
calculations or from changing the number of decimal places. The help is
principally simple, by adding the relation sign ahead of the bare numeric
format. This can be automatically accomplished by a very simple macro, as

Sub LessGreater()
'Sub adds a sign i.e. '<', before formatted content of the selected cell(s).
Dim Cell As Range
Static Chars As String
Chars = InputBox("<= < = etc.", "Add a sign before the number",
Chars)
For Each Cell In Selection
If IsNumeric(Cell) Then Cell.NumberFormat = Chars & Cell.NumberFormat
Next
End Sub

Unfortunately it seems that adding associated signs (Chr(163) and Chr(179))
from the Symbol font can be achieved neither programmatically nor manually
before Vista and UNICODE. Is it true?

Thanks for your conforming my opinion

--
Petr Bezucha

The difficulty being setting the font of the custom format characters to
"Symbol", yes?
No I don't think it's possible.
A work round might be to add a line of the ilk:
Cell.Font.Name = "Symbol"
in the code, but you'd still need users to know how to enter these
characters - perhaps with a userform instead of the InputBox?


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=143742

The difficulty being setting the font of the custom format characters to
"Symbol", yes?
No I don't think it's possible.
A work round might be to add a line of the ilk:
Cell.Font.Name = "Symbol"
in the code, but you'd still need users to know how to enter these
characters - perhaps with a userform instead of the InputBox?


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=143742

p45cal

The change of format of the whole cell is elementary. Unfortunately Symbol
numerals look noticeably different from Arial or Times ones. It is a matter
of taste.
The record into InputBox would be no problem, too: the mnemonic €œ<=€� or €œ=€�
with the following conversion in the macro would do the job.
Lets wait for UNICODE that I still have no experience with.
Thank you for your voice.

--
Petr Bezucha


"p45cal" wrote:


The difficulty being setting the font of the custom format characters to
"Symbol", yes?
No I don't think it's possible.
A work round might be to add a line of the ilk:
Cell.Font.Name = "Symbol"
in the code, but you'd still need users to know how to enter these
characters - perhaps with a userform instead of the InputBox?


--
p45cal

*p45cal*
------------------------------------------------------------------------
p45cal's Profile: http://www.thecodecage.com/forumz/member.php?userid=558
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=143742