Paul_Hossler
06-25-2014, 09:59 AM
I'm trying to make a workbook respond to changes in the Windows Regional Settings.
According to what I've read, this is the way to enter currency, date, and times.
Option Explicit
Sub Macro1()
Worksheets("Sheet1").Columns(1).Delete
Worksheets("Sheet1").Range("a1").Value = CCur(-12341234.45)
Worksheets("Sheet1").Range("a2").Value = DateSerial(2014, 10, 20)
Worksheets("Sheet1").Range("a3").Value = TimeSerial(10, 10, 15)
End Sub
The Currency and the Date have the Number Format = 'Currency' and 'Date' but the Time has a Number Format = 'Custom'
Currency and Date respond to changes in WRS, but since Time is 'Custom' it does not. If I manually apply the 'Time' format, then it does respond.
Can anyone suggest a correction or workaround?
Thanks
According to what I've read, this is the way to enter currency, date, and times.
Option Explicit
Sub Macro1()
Worksheets("Sheet1").Columns(1).Delete
Worksheets("Sheet1").Range("a1").Value = CCur(-12341234.45)
Worksheets("Sheet1").Range("a2").Value = DateSerial(2014, 10, 20)
Worksheets("Sheet1").Range("a3").Value = TimeSerial(10, 10, 15)
End Sub
The Currency and the Date have the Number Format = 'Currency' and 'Date' but the Time has a Number Format = 'Custom'
Currency and Date respond to changes in WRS, but since Time is 'Custom' it does not. If I manually apply the 'Time' format, then it does respond.
Can anyone suggest a correction or workaround?
Thanks