Chuyển số thập phận sang giờ (1 người xem)

[Excel365]

Cho em hỏi có cách nào để khi em gõ
1.5 thành 1:30
2.5 thành 2:30
12.5 thành 12:30
không các anh chị
Trân trọng cảm ơn

 

[ndu96081631]

Cho em hỏi có cách nào để khi em gõ
1.5 thành 1:30
2.5 thành 2:30
12.5 thành 12:30
không các anh chị
Trân trọng cảm ơn

Nói chung là: Lấy số vừa gõ chia cho 24, định dạng cell theo mã "hh:mm:ss" là xong
Tuy nhiên tôi thắc mắc chút: Nếu bạn muốn 1:25 thì bạn sẽ gõ số.. bao nhiêu?

 

[VMH0307]

Cho em hỏi có cách nào để khi em gõ
1.5 thành 1:30
2.5 thành 2:30
12.5 thành 12:30
không các anh chị
Trân trọng cảm ơn

Thêm nữa, nếu bạn gõ 1.61 có ra thành 2:01 và nếu là 0.99 có ra thành 1:33, hoặc 24,01; 23,61 thì có quay lại thành 0:01 không?

 

[Excel365]

Nói chung là: Lấy số vừa gõ chia cho 24, định dạng cell theo mã "hh:mm:ss" là xong
Tuy nhiên tôi thắc mắc chút: Nếu bạn muốn 1:25 thì bạn sẽ gõ số.. bao nhiêu?

Muc đích của em không có các giờ lẻ đó. Chí có 1:00, hoặc là 1:30 thôi, ..
Cám ơn thầy nhiều

 

[phucbugis]

Muc đích của em không có các giờ lẻ đó. Chí có 1:00, hoặc là 1:30 thôi, ..
Cám ơn thầy nhiều

vậy thử dùng Macro xem !

Private Sub Worksheet_Change(ByVal Target As Range)
Const cList = "A1:A20, C1:C20"
    If Not Intersect(Target, Range(cList)) Is Nothing Then
    If Target.Count > 1 Then Exit Sub
    If Target <> "" And IsNumeric(Target) Then
        If Target - 0.5 = Int(Target) Then Target = Int(Target) & ":" & 30
    End If
    End If
End Sub

 

[SA_DQ]

Theo mình, chuyện gỏ 1 số, muốn chuyển ra thành 1 số khác là không nên làm chút nào;
Nhanh khì chỉ nhanh cho bạn thôi; Người khác sẽ mù tịt hay chết dỡ, khi đụng chuyện!

Mình cho là đó là con dao 2 lưỡi, anh bạo gan mới nên xài!

 

[Excel365]

Theo mình, chuyện gỏ 1 số, muốn chuyển ra thành 1 số khác là không nên làm chút nào;
Nhanh khì chỉ nhanh cho bạn thôi; Người khác sẽ mù tịt hay chết dỡ, khi đụng chuyện!

Mình cho là đó là con dao 2 lưỡi, anh bạo gan mới nên xài!

Đúng là vậy.
Nhưng mục đích của em là thể hiện giờ vào ka và kết thúc ka thôi. Bảng này phục vụ cho 1 số khách hàng họ yêu câu giừo vào ka của Công nhân.
Hay là có cách nào khác để mình điền giờ Bắt đầu - Kết thúc cho nhanh hơn ko SA_DQ.
VD như mình giới hạn giờ vào ka từ 6h30 cho đến 7H00. Và giờ kết thúc là từ 16H00 cho đến 17h00. Nghỉ ăn trưa từ 10H00 cho đến 11h00 không ?
Trân trọng

 

[sealand]

Bạn tham khảo Code trong file này:

-Tôn trọng cách gõ của bạn: 1h00 gõ 1, 13h30 gõ 13.5
-Gõ sai hay ký tự sẽ =""
-Giả định cột A nhập mã thẻ, cột B giờ vào, cột C giờ ra,nếu không có mã thẻ thì không nhập giờ

Code áp cho sự kiện Selection_Change

 

[vu_tuan_manh_linh]

Bạn tham khảo Code trong file này:

-Tôn trọng cách gõ của bạn: 1h00 gõ 1, 13h30 gõ 13.5
-Gõ sai hay ký tự sẽ =""
-Giả định cột A nhập mã thẻ, cột B giờ vào, cột C giờ ra,nếu không có mã thẻ thì không nhập giờ

Code áp cho sự kiện Selection_Change

Code chỉ cần đơn giản thế này thôi, đúng ý khổ chủ:

Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target.Value) Then
    Target.Value = "'" & Int(Target.Value) & ":" & Format((Target.Value - Int(Target.Value)) * 60, "00")
End If
End Sub

Định dạng giá trị chuyển dạng text, nếu chuyển dữ liệu dạng số thì chịu cứng luôn, vì định dạng hh:mm sẽ chuyển giá trị sai!!!

 

[sealand]

Code chỉ cần đơn giản thế này thôi, đúng ý khổ chủ:

Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target.Value) Then
    Target.Value = "'" & Int(Target.Value) & ":" & Format((Target.Value - Int(Target.Value)) * 60, "00")
End If
End Sub

Định dạng giá trị chuyển dạng text, nếu chuyển dữ liệu dạng số thì chịu cứng luôn, vì định dạng hh:mm sẽ chuyển giá trị sai!!!

Bạn xem lại đi nha, tôi chuyển đúng với giá trị giờ phút đấy chứ. Vì là bảng chấm công nên còn để tính toán nữa.