Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
How to prevent change Numeric value to date format ?
Hi Reader
How to prevent change Numeric value to date format ? Add Not IsNumeric(Selection.Item(ir, ic).Value) not work. Sub ChangeYYYYMMDD() Dim iRows As Long Dim iColumns As Long Dim ir As Long Dim ic As Long iRows = Selection.Rows.Count iColumns = Selection.Columns.Count For ir = 1 To iRows For ic = 1 To iColumns If IsDate(Selection.Item(ir, ic).Value) And Not IsNumeric(Selection.Item(ir, ic).Value) Then Selection.NumberFormatLocal = "yyyy/mm/dd" End If Next ic Next ir End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
CHANGE TEXT DATE TO NUMERIC DATE | Excel Worksheet Functions | |||
Format of column need to change back to Alpha not numeric | Excel Discussion (Misc queries) | |||
Date in numeric format | New Users to Excel | |||
Date in numeric format | New Users to Excel | |||
Change number (in text format) to numeric format | Excel Discussion (Misc queries) |