Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formatting zipcodes as text in worksheet cells
I am trying to convert a worksheet column of 5 digit numeric zipcodes to
text in order to keep leading zeros (1234 should be 01234). If I enter "=Text(A1,"00###")" in the cell I want, it will convert cell A1. However if I use the following VBA code, I get no leading zero: ActiveSheet.Cells(intRow, IntCol+1) = Application.WorksheetFunction.Text(ActiveSheet.Cel ls(intRow, intCol).Value , "00###") I tried the following code with the same results (no leading zero added): ActiveSheet.Cells(intRow, IntCol+1) = Format(ActiveSheet.Cells(intRow, intCol).Value, "00###") Does anyone know how to use VBA to format text in a worksheet cell? Thanks, Bob Ward |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formatting zipcodes as text in worksheet cells
Try on of these instead:
ActiveSheet.Range("A1").NumberFormat = "00000" ActiveSheet.Cells(intRow, intCol).NumberFormat = "00000" tod -----Original Message----- I am trying to convert a worksheet column of 5 digit numeric zipcodes to text in order to keep leading zeros (1234 should be 01234). If I enter "=Text(A1,"00###")" in the cell I want, it will convert cell A1. However if I use the following VBA code, I get no leading zero: ActiveSheet.Cells(intRow, IntCol+1) = Application.WorksheetFunction.Text(ActiveSheet.Ce lls (intRow, intCol).Value , "00###") I tried the following code with the same results (no leading zero added): ActiveSheet.Cells(intRow, IntCol+1) = Format (ActiveSheet.Cells(intRow, intCol).Value, "00###") Does anyone know how to use VBA to format text in a worksheet cell? Thanks, Bob Ward . |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Formatting zipcodes as text in worksheet cells
ActiveSheet.Cells(intRow, IntCol+1) = Format(ActiveSheet.Cells(intRow,
intCol).Value, "00###") -- HTH RP (remove nothere from the email address if mailing direct) "Bob Ward" wrote in message ... I am trying to convert a worksheet column of 5 digit numeric zipcodes to text in order to keep leading zeros (1234 should be 01234). If I enter "=Text(A1,"00###")" in the cell I want, it will convert cell A1. However if I use the following VBA code, I get no leading zero: ActiveSheet.Cells(intRow, IntCol+1) = Application.WorksheetFunction.Text(ActiveSheet.Cel ls(intRow, intCol).Value , "00###") I tried the following code with the same results (no leading zero added): ActiveSheet.Cells(intRow, IntCol+1) = Format(ActiveSheet.Cells(intRow, intCol).Value, "00###") Does anyone know how to use VBA to format text in a worksheet cell? Thanks, Bob Ward |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Formatting Text in cells that already have text entered | Excel Worksheet Functions | |||
Vlookup with large file of zipcodes | Excel Worksheet Functions | |||
How do I lock the formatting of my worksheet but still add text? | Excel Worksheet Functions | |||
Not printing 0 in zipcodes from excel spreadsheet. | Excel Discussion (Misc queries) | |||
How do I convert 9 digit zipcodes to 5 digits? | Excel Discussion (Misc queries) |