Nhập dữ liệu ở cột A,C tự động điền giờ (giá trị) vào cột B, F!!! (1 người xem)

[ntktrungkien]

Chào các bạn. Mình đang gặp khó khăn trong việc code với yêu cầu như bên dưới:
+ Trên cùng 1 sheet:
- Nhập dữ liệu cột A -> côt B tự động hiển thị thời gian
- Nhập dữ liệu cột C -> Cột F tự động hiển thị thời gian.
Nhờ các bạn hỗ trợ giúp mình làm sao làm được như vậy.
Sau khi có giá trị thời gian của cột B & F công thức nào để trừ thời gian giữa 2 cột này để biết được thời gian trôi bao nhiêu (chỉ hiện thị số lượng giờhút ví dụ cột B: 13/11/2013 12:59:08 - Cột F :15/11/2013 12:59:08 thì thời gian trôi là 48:00 với F - B)

 

[thanhsangnguyen1982]

Đưa fiel lên đi bạn , có file dễ hình dung hơn, dễ làm hơn.

 

[ntktrungkien]

Đưa fiel lên đi bạn , có file dễ hình dung hơn, dễ làm hơn.

Nội dung như file. Nhờ bạn hỗ trợ giúp
Mình chỉ nhập dữ liệu ở cột: Lỗi, Cach khắc phục. Còn các cột kia sẽ tự động tính thời gian cho mình.

 

[thanhsangnguyen1982]

Giải pháp excel mac oi

Bạn gửi mail mình gửi cho bạn, làm rồi nhưng không hiểu sao không up lên được.

 

[ntktrungkien]

mình mới pm cho bạn mail của mình đó. Cám ơn bạn đã hỗ trợ !

 

[leonguyenz]

Tạm thời viết code kiểu này (đặt trong sheet nhập liệu, mở Marco, save file .xlsm):
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
If Not Intersect(Range("A2:A20"), Target) Is Nothing Then
Target.Offset(, 1) = Now
End If
If Not Intersect(Range("C2:C20"), Target) Is Nothing Then
Target.Offset(, 2) = Target - Target.Offset(0, -1)
Target.Offset(, 2).NumberFormat = "[h]:mm"
End If
Application.ScreenUpdating = True
End Sub[/gpecode]
Vừa sửa xong định dạng số giờ nha, lúc nãy định dạng chưa được.
Cảm ơn anh HTN!

 

[ntktrungkien]

Tạm thời viết code kiểu này (đặt trong sheet nhập liệu, mở Marco, save file .xlsm):
[gpecode=vb]
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
On Error Resume Next
If Not Intersect(Range("A2:A20"), Target) Is Nothing Then
Target.Offset(, 1) = Now
End If
If Not Intersect(Range("C2:C20"), Target) Is Nothing Then
Target.Offset(, 2) = Target - Target.Offset(0, -1)
Target.Offset(, 2).NumberFormat = "[h]:mm"
End If
Application.ScreenUpdating = True
End Sub[/gpecode]
Vừa sửa xong định dạng số giờ nha, lúc nãy định dạng chưa được.
Cảm ơn anh HTN!

Chào bạn,
Theo file của bạn thì mình đã chỉnh sửa lại 1 chút để có thể type dữ liệu tại Cột A và C thì thời gian có hiển thị nhưng việc trừ thời gian để có được tổng thời gian thì hiện nay ko được. Và khi type dữ liệu ở dòng 3 thì thời gian hiển thị con số ko hiểu sao có đc.
Nhờ bạn kiểm tra lại giúp mình nhé!

 

[leonguyenz]

Chào bạn,
Theo file của bạn thì mình đã chỉnh sửa lại 1 chút để có thể type dữ liệu tại Cột A và C thì thời gian có hiển thị nhưng việc trừ thời gian để có được tổng thời gian thì hiện nay ko được. Và khi type dữ liệu ở dòng 3 thì thời gian hiển thị con số ko hiểu sao có đc.
Nhờ bạn kiểm tra lại giúp mình nhé!

Code sai ở chỗ màu hàm Offset(, -2) :

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    On Error Resume Next
        If Not Intersect(Range("A2:A9999"), Target) Is Nothing Then
            Target.Offset(, 1) = Now
        End If
        If Not Intersect(Range("D2:D9999"), Target) Is Nothing Then
            Target.Offset(, -1) = Now
            Target.Offset(, 1) = Target.Offset(, -1) - Target.Offset(0, [COLOR=#ff0000][B]-2[/B][/COLOR])
            Target.Offset(, 1).NumberFormat = "[h]:mm"
        End If
    Application.ScreenUpdating = True
End Sub

 

[ntktrungkien]

Code sai ở chỗ màu hàm Offset(, -2) :

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    On Error Resume Next
        If Not Intersect(Range("A2:A9999"), Target) Is Nothing Then
            Target.Offset(, 1) = Now
        End If
        If Not Intersect(Range("D2:D9999"), Target) Is Nothing Then
            Target.Offset(, -1) = Now
            Target.Offset(, 1) = Target.Offset(, -1) - Target.Offset(0, [COLOR=#ff0000][B]-2[/B][/COLOR])
            Target.Offset(, 1).NumberFormat = "[h]:mm"
        End If
    Application.ScreenUpdating = True
End Sub

Tuyệt vời! Cám ơn bạn đã hướng dẫn.
Mình có 1 thắc mắc liên quan tới Validation. Bạn có thể cho mình nick yahoo hoặc skype để học hỏi được ko ?

 

[leonguyenz]

Tuyệt vời! Cám ơn bạn đã hướng dẫn.
Mình có 1 thắc mắc liên quan tới Validation. Bạn có thể cho mình nick yahoo hoặc skype để học hỏi được ko ?

Validation có rất nhiều trên GPE, bạn có thể search và tham khảo, tự tìm hiểu sẽ nhớ lâu hơn và biết cách sửa khi cần cập nhật. Mình có sử dụng Skype (leonguyenz).