when a percentage is converted to text, it always gives the decimal form.
e.g. 24.32% will become 0.2432. How can I keep "24.32%" in text form? I guess
there is a better way to do it in VBA than to first add an apostrophe in the
worksheet cell.

Many thanks.

zhj23

One way:

Debug.Print Format(0.2432, "0.00%")

or, in XL

=TEXT(0.2432, "0.00%")

In article <F675F5F4-C229-496E-9DD1-(E-Mail Removed)>,
zhj23 <(E-Mail Removed)> wrote:

> when a percentage is converted to text, it always gives the decimal form.
> e.g. 24.32% will become 0.2432. How can I keep "24.32%" in text form? I guess
> there is a better way to do it in VBA than to first add an apostrophe in the
> worksheet cell.
>
> Many thanks.
>
> zhj23

One way is to copy and paste as text...

First copy with office clipboard (edit menu), then format the cell
range as text and then click the paste icon followed by edit > paste
special > text.

On 1 May, 14:32, zhj23 <z...@discussions.microsoft.com> wrote:
> when a percentage is converted to text, it always gives the decimal form.
> e.g. 24.32% will become 0.2432. How can I keep "24.32%" in text form? I guess
> there is a better way to do it in VBA than to first add an apostrophe in the
> worksheet cell.
>
> Many thanks.
>
> zhj23

Thanks for the valuable helps.

Bcos some of my data are in simple numeric (eg 2.63) and some are in
percentage numeric form (eg 24.32%), obviuosly I dont want to convert 2.63 to
263.00%.

Question: how can I evaluate in VBA whether a cell is in simple numeric or
percentage numeric form?

zhj23

"JE McGimpsey" wrote:

> One way:
>
> Debug.Print Format(0.2432, "0.00%")
>
> or, in XL
>
> =TEXT(0.2432, "0.00%")
>
> In article <F675F5F4-C229-496E-9DD1-(E-Mail Removed)>,
> zhj23 <(E-Mail Removed)> wrote:
>
> > when a percentage is converted to text, it always gives the decimal form.
> > e.g. 24.32% will become 0.2432. How can I keep "24.32%" in text form? I guess
> > there is a better way to do it in VBA than to first add an apostrophe in the
> > worksheet cell.
> >
> > Many thanks.
> >
> > zhj23
>

One (simplistic) way:

Dim bPercentFormat As Boolean
bPercentFormat = CBool(InStr(Range("A1").NumberFormat, "%"))
MsgBox bPercentFormat


In article <EF677B07-4A0F-4043-9262-(E-Mail Removed)>,
zhj23 <(E-Mail Removed)> wrote:

> Question: how can I evaluate in VBA whether a cell is in simple numeric or
> percentage numeric form?

Thanks. JE

"JE McGimpsey" wrote:

> One (simplistic) way:
>
> Dim bPercentFormat As Boolean
> bPercentFormat = CBool(InStr(Range("A1").NumberFormat, "%"))
> MsgBox bPercentFormat
>
>
> In article <EF677B07-4A0F-4043-9262-(E-Mail Removed)>,
> zhj23 <(E-Mail Removed)> wrote:
>
> > Question: how can I evaluate in VBA whether a cell is in simple numeric or
> > percentage numeric form?
>

Hello! JE

Following your advice, I did the following (extracted codes)
---------------------------------
Dim bPercentFormat as Boolean

For each cell in selection
bPercentFormat = CBool(InStr(ActiveCell.NumberFormat, "%"))
MsgBox bPercentFormat
next cell
------------------------------------
It seems that the ActiveCell does not move with the FOR loop. What is the
remedy to this? Thanks.

zhj23


"JE McGimpsey" wrote:

> One (simplistic) way:
>
> Dim bPercentFormat As Boolean
> bPercentFormat = CBool(InStr(Range("A1").NumberFormat, "%"))
> MsgBox bPercentFormat
>
>
> In article <EF677B07-4A0F-4043-9262-(E-Mail Removed)>,
> zhj23 <(E-Mail Removed)> wrote:
>
> > Question: how can I evaluate in VBA whether a cell is in simple numeric or
> > percentage numeric form?
>

You're right, ActiveCell doesn't change unless you Activate or Select a
range. Use your range object variable instead:

Dim rCell As Range
Dim bPercentFormat as Boolean

For each rCell In Selection
bPercentFormat = CBool(InStr(rCell.NumberFormat, "%"))
MsgBox bPercentFormat
Next rCell

In article <4F1372E0-374E-46B5-A0D0-(E-Mail Removed)>,
zhj23 <(E-Mail Removed)> wrote:

> Following your advice, I did the following (extracted codes)
> ---------------------------------
> Dim bPercentFormat as Boolean
>
> For each cell in selection
> bPercentFormat = CBool(InStr(ActiveCell.NumberFormat, "%"))
> MsgBox bPercentFormat
> next cell
> ------------------------------------
> It seems that the ActiveCell does not move with the FOR loop. What is the
> remedy to this? Thanks.

Perfect!! Many Thanks.

zhj23

"JE McGimpsey" wrote:

> You're right, ActiveCell doesn't change unless you Activate or Select a
> range. Use your range object variable instead:
>
> Dim rCell As Range
> Dim bPercentFormat as Boolean
>
> For each rCell In Selection
> bPercentFormat = CBool(InStr(rCell.NumberFormat, "%"))
> MsgBox bPercentFormat
> Next rCell
>
> In article <4F1372E0-374E-46B5-A0D0-(E-Mail Removed)>,
> zhj23 <(E-Mail Removed)> wrote:
>
> > Following your advice, I did the following (extracted codes)
> > ---------------------------------
> > Dim bPercentFormat as Boolean
> >
> > For each cell in selection
> > bPercentFormat = CBool(InStr(ActiveCell.NumberFormat, "%"))
> > MsgBox bPercentFormat
> > next cell
> > ------------------------------------
> > It seems that the ActiveCell does not move with the FOR loop. What is the
> > remedy to this? Thanks.
>