Solved

Is there a way to enter military time in a cell (1700), and have the result formatted in hh:mm (5:00 PM)?

Posted on 2016-08-29
11
56 Views
Last Modified: 2016-08-29
Is there a way to enter military time in a cell (for ex, 1700), and have the result formatted in hh:mm (for ex, 5:00 PM)?

Thanks!
0
Comment
Question by:Cactus1994
  • 5
  • 4
  • 2
11 Comments
 
LVL 22

Expert Comment

by:yo_bee
ID: 41775690
By default if you set the cell or column to format as Time 5:00 PM and enter 17:00 in the cell you will see it as 5:00 PM

Is that what you are looking for or are you looking for 1700 to be converted to Standard US TIME?
0
 

Author Comment

by:Cactus1994
ID: 41775691
What I'm really trying to do is just enter regular time without the colon, for a large Excel sheet for payroll every week.

I thought using military time would work, as it at saved a couple steps entering 17:00 and then having the cell formatted so the result after typing it into the cell was 5:00 PM. (I obviously just using the "1:30 PM" format for the cells.)

Is there an easier way so I can just enter time without using the : (colon)?  It's a pain entering dozens and dozens of clock-in and clock-out times, and always having to shift and click to enter a colon into every time I input. Thanks.
0
 
LVL 43

Expert Comment

by:Saqib Husain, Syed
ID: 41775693
Can you use a helper column?
0
 
LVL 22

Expert Comment

by:yo_bee
ID: 41775694
you can do something like this.
Format the column to Time 5:00 PM and enter this formula in
=TIMEVALUE((CONCAT(LEFT(F1,2),":",MID(F1,3,2))))

Open in new window


F1 is where you enter you 1700 and G1 is where there formula is entered.
0
 
LVL 43

Expert Comment

by:Saqib Husain, Syed
ID: 41775698
Or, you can use an event handler macro like this. This works for column 3. You can change this in the second row

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        If Len(Target) = 4 And IsNumeric(Target) Then
            Target.Value = Left(Target, 2) & ":" & Right(Target, 2)
        End If
    End If
End Sub
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

Author Comment

by:Cactus1994
ID: 41775701
Unfortunately, I can't use a helper cell....
0
 

Author Comment

by:Cactus1994
ID: 41775703
Saqib ... I'm a novice at macros and VBA. How exactly do I enter in what you suggested so this will work for me?
0
 

Author Comment

by:Cactus1994
ID: 41775704
I am entering times into cells A7:O34 in one particular tab of a large Excel workbook.
0
 
LVL 43

Expert Comment

by:Saqib Husain, Syed
ID: 41775705
Right-click on the sheet tab name
Select View code
Paste the given code in the VBA window
Close the VBA window
0
 
LVL 43

Accepted Solution

by:
Saqib Husain, Syed earned 500 total points
ID: 41775706
For the specified range

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A7:O34")) Is Nothing Then
        If Len(Target) = 4 And IsNumeric(Target) Then
            Target.Value = Left(Target, 2) & ":" & Right(Target, 2)
        End If
    End If
End Sub
0
 

Author Closing Comment

by:Cactus1994
ID: 41775711
Got it. Perfect! It works ... thank you very much!!
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Drop Down List with Unique/Distinct Values (enhancing the Combo-Box with a few steps and a little code) David miller (dlmille) Intro Have you ever created a data validation list from a database field or spreadsheet column (e.g., Zip Codes or Co…
Approximate matching with VLOOKUP and MATCH seems to me to be a greatly under-used technique, and one which is vital for getting good performance out of large lookups. Until recently I would always have advised using an exact match for simplicity an…
The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabil…
The viewer will learn how to use a discrete random variable to simulate the return on an investment over a period of years, create a Monte Carlo simulation using the discrete random variable, and create a graph to represent the possible returns over…

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

25 Experts available now in Live!

Get 1:1 Help Now