{Nhờ giúp đỡ} Nhờ giúp đỡ tạo nút đếm thời gian làm việc (7 người xem)

[WBreeze]

Dạ em chào cả nhà

Em có vấn đề cần nhờ mọi người giúp,
Em có 1 file excel có list ra các khâu câu việc và phải đếm chính xác thời gian thực hiện công việc đó.
Hiện tại cty em đang mau 1 bộ đếm giờ với giá 800k/1 người/ 1 tháng
Em thấy nó mắc quá mà nhiều người lại ko chịu nhập bằng tay (bảo tốn thời gian) nên em nghĩ là làm 1 cái file excel mà ko biết làm sao nên nhờ mọi người giúp ạ.
Ý tưởng là e có 1 list công việc ví dụ như khi em đang làm công việc A thì em bấm start nó sẽ đếm giờ, giữa chừng cái em phải nhảy qua công việc B thì em bấm stop A và start B cái nó đếm giờ B đến khi em ấn stop B. Rồi nếu em quay lại làm A thì lại bấm start A
Cuối cùng lại thì trong ngày e sẽ biết là em làm A, B, C mỗi thứ hết tổng cộng bao nhiêu giờ.
Em nhờ mọi người giúp đỡ em
Em cảm ơn nhiều ạ.

 

[leonguyenz]

Yêu cầu của bạn không khó, khó là làm sao bảo người làm tuân thủ yêu cầu "bấm giờ'?

 

[WBreeze]

Yêu cầu của bạn không khó, khó là làm sao bảo người làm tuân thủ yêu cầu "bấm giờ'?

Dạ tại vì bình thường thì mn phải bấm giờ nên mới phải mua phần mềm đó
Mà bây giờ nếu em chuyển qua excel ko, em hay chỉ là bấm ctr+shift+: rồi sau đó đi pivot, mà làm như thế thì nó mất nhiều dòng quá nên nghỉ đến chuyện làm 1 cái nút bấm, mà khổ cái em ko biết về vba, search cũng ko ra nên mới mang lên nhờ mn ạ :<

 

[be_09]

Dạ em chào cả nhà

Em có vấn đề cần nhờ mọi người giúp,
Em có 1 file excel có list ra các khâu câu việc và phải đếm chính xác thời gian thực hiện công việc đó.
Hiện tại cty em đang mau 1 bộ đếm giờ với giá 800k/1 người/ 1 tháng
Em thấy nó mắc quá mà nhiều người lại ko chịu nhập bằng tay (bảo tốn thời gian) nên em nghĩ là làm 1 cái file excel mà ko biết làm sao nên nhờ mọi người giúp ạ.
Ý tưởng là e có 1 list công việc ví dụ như khi em đang làm công việc A thì em bấm start nó sẽ đếm giờ, giữa chừng cái em phải nhảy qua công việc B thì em bấm stop A và start B cái nó đếm giờ B đến khi em ấn stop B. Rồi nếu em quay lại làm A thì lại bấm start A
Cuối cùng lại thì trong ngày e sẽ biết là em làm A, B, C mỗi thứ hết tổng cộng bao nhiêu giờ.
Em nhờ mọi người giúp đỡ em
Em cảm ơn nhiều ạ.

Nếu làm thế này thì mỗi 1 bộ phận phải có 1 người nhập liệu để theo dõi à?????

 

[WBreeze]

Nếu làm thế này thì mỗi 1 bộ phận phải có 1 người nhập liệu để theo dõi à?????

Dạ nếu xài phần mềm thì nó có chức năng ẽport là dữ liệu luôn.
Em thì ko biết làm nên định làm cái như vậy tên người, tên cv, rồi thời gian thì em lại bỏ qua pivot table để theo dõi ạ.

 

[be_09]

Dạ nếu xài phần mềm thì nó có chức năng ẽport là dữ liệu luôn.
Em thì ko biết làm nên định làm cái như vậy tên người, tên cv, rồi thời gian thì em lại bỏ qua pivot table để theo dõi ạ.

Sử dụng phần mềm phải có người nhập liệu theo dõi thì mới có dữ liệu để truy vấn chứ?
Trên Excel cũng làm tương tự.

 

[WBreeze]

Sử dụng phần mềm phải có người nhập liệu theo dõi thì mới có dữ liệu để truy vấn chứ?
Trên Excel cũng làm tương tự.

À dạ đúng rồi, ý là thông thường thì em là người export dữ liệu ra xong cái copy hết vào 1 file excel rồi làm tổng hợp ạ. Cứ 1 tháng thì mấy ng đó (hoặc em) sẽ excport ra thì nó ra 1 file là: tên công việc, tổng thời gian làm với mấy cái chi tiết nữa.Sau đó em sẽ copy hết vào 1 file excel em làm sẵn có tên nhân viên tương ứg rồi vlookup pivot các kiểu để ra file tổng hợp ạ .

 

[WBreeze]

Mọi người cho e hỏi là em làm đc cái button rồi, nhưng em muốn copy cho nó thành 20 cái button thì em phải copy đoạn lệnh cho cả 20 cái hay có cách nào khc gọn hơn ko ạ?

 

[leonguyenz]

Tôi làm đại 1 file, bạn tham khảo xem áp dụng được không nhe.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Chek As Variant, Chek2 As Variant, Chek3 As Variant
Dim i As Integer, j As Integer, stCV, icV As Integer, jcV As Integer
If Not Intersect(Target, [C4:C13]) Is Nothing Then
    If Target.Count = 1 Then
    For i = 1 To 10
        For j = 2 To 20 Step 2
            If Cells(i + 3, j + 2) <> "" And Cells(i + 3, j + 3) = "" Then
                stCV = Cells(i + 3, j + 2).Value
                icV = i + 3
                jcV = j + 3
                Exit For
            End If
        Next j
    Next i
    If stCV <> "" Then
        If Target.Row = icV Then
            Chek = MsgBox("Kêt thúc công viêc " & _
                Target.Value & " này?", vbYesNo)
            If Chek = vbYes Then
                MsgBox "Da tam dung" & Cells(icV, "C")
                Cells(icV, jcV) = Now
            Else
                MsgBox "Tiêp tuc công viêc " & Target.Value & " nào, Cô' lên"
            End If
        Else
            Chek2 = MsgBox("Dang làm công viêc " & Cells(icV, "C") _
                & "." & vbLf & "Bat dâu công viêc " & _
                Target.Value & " này không?", vbYesNo)
            If Chek2 = vbYes Then
                MsgBox "Da tam dung " & Cells(icV, "C")
                Cells(icV, jcV) = Now
                Target.Offset(, 20).End(xlToLeft).Offset(, 1) = Now
            Else
                MsgBox "Tiêp tuc công viêc " & Cells(icV, "C") & " nào, Cô' lên"
            End If
        End If
    Else
        Chek3 = MsgBox("Bat dâu công viêc " & Target.Value & " này?", vbYesNo)
        If Chek3 = vbYes Then
            Target.Offset(, 20).End(xlToLeft).Offset(, 1) = Now
        Else
            MsgBox "Dang ra?nh roi~, làm 1 ly cà phê thôi !"
        End If
    End If
    End If
End If
End Sub

 

[be_09]

Dạ em chào cả nhà

Em có vấn đề cần nhờ mọi người giúp,
Em có 1 file excel có list ra các khâu câu việc và phải đếm chính xác thời gian thực hiện công việc đó.
Hiện tại cty em đang mau 1 bộ đếm giờ với giá 800k/1 người/ 1 tháng
Em thấy nó mắc quá mà nhiều người lại ko chịu nhập bằng tay (bảo tốn thời gian) nên em nghĩ là làm 1 cái file excel mà ko biết làm sao nên nhờ mọi người giúp ạ.
Ý tưởng là e có 1 list công việc ví dụ như khi em đang làm công việc A thì em bấm start nó sẽ đếm giờ, giữa chừng cái em phải nhảy qua công việc B thì em bấm stop A và start B cái nó đếm giờ B đến khi em ấn stop B. Rồi nếu em quay lại làm A thì lại bấm start A
Cuối cùng lại thì trong ngày e sẽ biết là em làm A, B, C mỗi thứ hết tổng cộng bao nhiêu giờ.
Em nhờ mọi người giúp đỡ em
Em cảm ơn nhiều ạ.

Bạm xem thử File:
1/ Vào cột B sheet DM_CongViec gõ công việc thực tế vào (Data Validation sẽ thay đổi theo).
2/ Để bắt đầu nhập liệu vào sheet Theo_Doi xóa dữ liệu cột C: E, sau đó vào cột B xóa công việc (nếu không làm đúng trình tự sẽ bị lỗi không mong muốn).
3/ Chọn công việc cột B để gán giờ bắt đầu, muốn kết thúc công việc vào cột E chọn Xong.

 

[WBreeze]

Tôi làm đại 1 file, bạn tham khảo xem áp dụng được không nhe.
----------------------
Dạ em cảm ơn nhiều ạ, để em nghiên cứu thử ạ ^^

Bài đã được tự động gộp: 10/4/19

Bạm xem thử File:
1/ Vào cột B sheet DM_CongViec gõ công việc thực tế vào (Data Validation sẽ thay đổi theo).
2/ Để bắt đầu nhập liệu vào sheet Theo_Doi xóa dữ liệu cột C: E, sau đó vào cột B xóa công việc (nếu không làm đúng trình tự sẽ bị lỗi không mong muốn).
3/ Chọn công việc cột B để gán giờ bắt đầu, muốn kết thúc công việc vào cột E chọn Xong.

______
Dạ em cảm ơn nhiều ạ ^^

 

[leonguyenz]

File tôi tải lên chỉ làm 1 việc, không làm nhiều việc cùng lúc nhe.

 

[WBreeze]

Em cảm ơn 2 bác ạ nhiều lắm ạ ^^
Của bác Leonguyenz thì người dùng sẽ thích hơn vì chỉ click chuột còn em thì phải tính tổng (cái này cũng dễ), còn của bác Be09 thì ngược lại em nhìn dễ hơn còn người dùng thì thao tác ít quen thuộc hơn ^^
Có 2 file này là giúp e giải quyết cả một vấn đề lớn ấy ạ, em cảm ơn nhiều lắm ạ.

Với cả cho em hỏi thêm nữa là vi em làm 1 cái button rồi, nhưng em muốn copy cho nó thành 20 cái button thì em phải copy đoạn code cho cả 20 cái luôn hay sao ạ?

 

[be_09]

Em cảm ơn 2 bác ạ nhiều lắm ạ ^^
Của bác Leonguyenz thì người dùng sẽ thích hơn vì chỉ click chuột còn em thì phải tính tổng (cái này cũng dễ), còn của bác Be09 thì ngược lại em nhìn dễ hơn còn người dùng thì thao tác ít quen thuộc hơn ^^
Có 2 file này là giúp e giải quyết cả một vấn đề lớn ấy ạ, em cảm ơn nhiều lắm ạ.

Với cả cho em hỏi thêm nữa là vi em làm 1 cái button rồi, nhưng em muốn copy cho nó thành 20 cái button thì em phải copy đoạn code cho cả 20 cái luôn hay sao ạ?

Không hiểu chỗ 20 cái button?
1/ File bài 10 chỉ việc click phải chuột vào sheet Theo_Doi, chọn View code rồi copy code đó gán cho sheet khác là sử dụng được.
2/ Tôi thiết kế File đó để áp dụng cho nhiều công việc và thuận tiện cho việc dùng PivotTable để tổng hợp (vì bài 7 có nói đến PivotTable).
3/ Để thêm công việc thì vào cột B sheet DM_CongViec gõ thêm rồi sửa Name lại 1 tí.

 

[WBreeze]

Không hiểu chỗ 20 cái button?
1/ File bài 10 chỉ việc click phải chuột vào sheet Theo_Doi, chọn View code rồi copy code đó gán cho sheet khác là sử dụng được.
2/ Tôi thiết kế File đó để áp dụng cho nhiều công việc và thuận tiện cho việc dùng PivotTable để tổng hợp (vì bài 7 có nói đến PivotTable).
3/ Để thêm công việc thì vào cột B sheet DM_CongViec gõ thêm rồi sửa Name lại 1 tí.

----------
À nếu mà copy được thêm nhiều sheet nữa thì thuận tiện cho em rồi ^^.

Còn vụ 20 cái button thì ý là trong file em làm ấy ạ, em làm được mấy cái nút nhưng mà ko giải quyết được vấn đề có nhiều nhiều công việc
nên đang suy nghĩ là ko lẽ phải copy hết code cho từng nút.
Giờ thì em có file của bác rồi nhưng cũng muốn hỏi thêm về cái vụ kia, ý là tính chất nút giống nhau mà mình copy ra thì phải chèn code cho từng nút hay sao ấy ạ @@
Em còn gà mờ nên muốn hỏi cho biết ^^

 

[be_09]

----------
À nếu mà copy được thêm nhiều sheet nữa thì thuận tiện cho em rồi ^^.

Còn vụ 20 cái button thì ý là trong file em làm ấy ạ, em làm được mấy cái nút nhưng mà ko giải quyết được vấn đề có nhiều nhiều công việc
nên đang suy nghĩ là ko lẽ phải copy hết code cho từng nút.
Giờ thì em có file của bác rồi nhưng cũng muốn hỏi thêm về cái vụ kia, ý là tính chất nút giống nhau mà mình copy ra thì phải chèn code cho từng nút hay sao ấy ạ @@
Em còn gà mờ nên muốn hỏi cho biết ^^

Muốn áp dụng cho nhiều sheet thì sử dụng File sau:
1/ Thêm sheet mới rồi copy sheet mẫu Paste vào và sử dụng bình thường (chỉ với 1 code như bài 10).
2/ Vào các sheet chọn công việc ở cột B để gán giờ bắt đầu, vào cột E chọn Xong khi kết thúc công việc.

 

[WBreeze]

Muốn áp dụng cho nhiều sheet thì sử dụng File sau:
1/ Thêm sheet mới rồi copy sheet mẫu Paste vào và sử dụng bình thường (chỉ với 1 code như bài 10).
2/ Vào các sheet chọn công việc ở cột B để gán giờ bắt đầu, vào cột E chọn Xong khi kết thúc công việc.

______
Dạ em copy được rồi ạ, em cảm ơn nhiều ạ ^^

 

[Zorrofantasy]

Chào anh be09 ,

Anh có thể chỉ giúp em làm sao thể hiện cái text box như hình được không anh,
Em kiếm hoài mà không biết nó nằm chỗ nào, ngoài insert comment , nhờ anh chỉ dẫn giúp mình với

Xin cám ơn,

 

[leonguyenz]

Chào anh be09 ,

Anh có thể chỉ giúp em làm sao thể hiện cái text box như hình được không anh,
Em kiếm hoài mà không biết nó nằm chỗ nào, ngoài insert comment , nhờ anh chỉ dẫn giúp mình với

Xin cám ơn,


View attachment 215167

Cái này bạn vào Data > Data Validation > tab Input Message > Gõ cái gì bạn cần hiển thị vào.

 

[be_09]

Chào anh be09 ,
Anh có thể chỉ giúp em làm sao thể hiện cái text box như hình được không anh,
Em kiếm hoài mà không biết nó nằm chỗ nào, ngoài insert comment , nhờ anh chỉ dẫn giúp mình với
Xin cám ơn

Chọn vùng cần gán chữ, rồi vào Data > Data Validation > Input Message và gõ chữ trong khung, xong nhấn nút OK (xem hình).