Home 
Search 
Today's Posts 
#1




convert percentage to text
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 
#2




convert percentage to text
One way:
Debug.Print Format(0.2432, "0.00%") or, in XL =TEXT(0.2432, "0.00%") In article , zhj23 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 
#3




convert percentage to text
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 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 
#4




convert percentage to text
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 , zhj23 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 
#5




convert percentage to text
One (simplistic) way:
Dim bPercentFormat As Boolean bPercentFormat = CBool(InStr(Range("A1").NumberFormat, "%")) MsgBox bPercentFormat In article , zhj23 wrote: Question: how can I evaluate in VBA whether a cell is in simple numeric or percentage numeric form? 
#6




convert percentage to text
Thanks. JE
"JE McGimpsey" wrote: One (simplistic) way: Dim bPercentFormat As Boolean bPercentFormat = CBool(InStr(Range("A1").NumberFormat, "%")) MsgBox bPercentFormat In article , zhj23 wrote: Question: how can I evaluate in VBA whether a cell is in simple numeric or percentage numeric form? 
#7




convert percentage to text
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 , zhj23 wrote: Question: how can I evaluate in VBA whether a cell is in simple numeric or percentage numeric form? 
#8




convert percentage to text
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 , zhj23 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. 
#9




convert percentage to text
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 , zhj23 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. 
Reply 
Thread Tools  Search this Thread 
Display Modes  


Similar Threads  
Thread  Forum  
Convert percentage into margin  Excel Worksheet Functions  
Convert Percentage to total number of NPT Days  Excel Worksheet Functions  
Extract a percentage from a text  Excel Programming  
Convert Percentage to number  Excel Programming  
Convert Percentage to Text  Excel Discussion (Misc queries) 