| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Change cell format from text to general on the fly
You sir, are the shnizz!
"Gary''s Student" wrote: Change: t.Clear to: t.NumberFormat = "General" -- Gary''s Student - gsnu200800 "JSnow" wrote: Wohoo! It worked Gary's Student! However, it strips out all the other formatting for that cell. Example: cell background should be colored and data should be left justified with 1 indent. Anyway to keep that other stuff? "Gary''s Student" wrote: This is an example using column B. It is a worksheet event macro: Private Sub Worksheet_Change(ByVal Target As Range) Set t = Target Set b = Range("B:B") If Intersect(t, b) Is Nothing Then Exit Sub If t.NumberFormat = "General" Then Exit Sub Dim s As String s = t.Value If Left(s, 1) < "=" Then Exit Sub Application.EnableEvents = False t.Clear t.Formula = s Application.EnableEvents = True End Sub Because it is worksheet code, it is very easy to install and use: 1. right-click the tab name near the bottom of the window 2. select View Code - this brings up a VBE window 3. paste the stuff in and close the VBE window If you save the workbook, the macro will be saved with it. To remove the macro: 1. bring up the VBE windows as above 2. clear the code out 3. close the VBE window To learn more about macros in general, see: http://www.mvps.org/dmcritchie/excel/getstarted.htm To learn more about Event Macros (worksheet code), see: http://www.mvps.org/dmcritchie/excel/event.htm -- Gary''s Student - gsnu200800 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Format: General - Text - General | Excel Worksheet Functions | |||
| excel numbers in general format i cant add cant change format | Excel Worksheet Functions | |||
| Change CSV-load cell format from GENERAL to TEXT for numbers? | Excel Discussion (Misc queries) | |||
| Change general format to US date format | Excel Discussion (Misc queries) | |||
| Change General Format to Currency Format | Excel Worksheet Functions | |||
Hybrid Mode
