Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Formatting as TEXT as opposed to scientific notation
In older version of XL, I had a solution that worked; essentially a
way to automate F2 and Enter via VBA. I now have XL 2000 and it doesn't seem to work. Here is what I am doing (before we get into the code to save us all some time): I have a large CSV file that I open with XL. It opens directly in XL as opposed to opening the conversion box as it would with a delimited text file. Some of the columns should be text even when the entire contents are numbers; they are displayed as 9.91001E +14 instead of 991001000000000. If I copy this into Access the E+14 format is retained (not very useful). The column contains both text and number (serial numbers) and the Access database has this column formatted as Text (for when I paste it into Access). Anyway, the long way to fix this is to select the column and format it as text, and then select the first cell, press F2 and then Enter (repeat a hundred times) to correct the formatting. There must be an easier way. Here is my current attempt (since the old method below stopped working), but it doesn't work (seems to be an issue with the sendkeys): Dim Currentcell As Object, Nextcell As Object Set Currentcell = ActiveSheet.Range("Q1") Do While Not IsEmpty(Currentcell) Set Nextcell = Currentcell.Offset(1, 0) Currentcell.Select Selection.NumberFormat = "@" ActiveCell.FormulaR1C1 = Currentcell.Value Selection.NumberFormat = "@" SendKeys "{F2}", Wait SendKeys "{enter}", Wait Set Currentcell = Nextcell Loop The old method was to have this section: Selection.NumberFormat = "@" ActiveCell.FormulaR1C1 = Currentcell.Value Selection.NumberFormat = "@" SendKeys "{F2}", Wait SendKeys "{enter}", Wait Read as: Selection.NumberFormat = "@" Currentcell = Currentcell.Value Selection.NumberFormat = "@" This used to work. Essentially is said the current cell is equal to the current cell value. The number of rows always changes for my data and there are multiple columns that I will need to run this on. Also, there are sometimes blanks (the above code works when I do not have blanks, so I did forced it to work by entering in data just to try to get the rest of the code to work). I did a lot of searching on this issue and did see that the sendkeys method is not recommended, but I couldn't figure out another way. Thanks in advance. Steve |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Scientific Notation - I want excel to read it as a text not a numb | Excel Discussion (Misc queries) | |||
Number Formatting/Scientific notation | Excel Discussion (Misc queries) | |||
Scientific notation in text cells | Excel Discussion (Misc queries) | |||
change scientific notation (exponential) back to text | Excel Discussion (Misc queries) | |||
Using scientific notation in TEXT() function | Excel Worksheet Functions |