Thống kê công việc thực hiện trong từng ngày trong 1 dự án (1 người xem)

[numberone_bn]

Em đang cần thống kê công việc trong từng ngày của dự án.Nghĩ mãi mà chưa làm được.Nhờ các bác giúp em.Cụ thể như sau: Công việc A làm từ 1/1/2016 đến 10/1/2016; Công việc B làm tử 2/10/2016 đến 12/10/2016; Công việc C làm từ 5/1/2016 đến 9/1/2016.Bây giờ làm sao để có được kết quả: Ngày 1/1/2016 làm công viêc A; ngày 2/1/2016 làm công việc A; B; ngày 3/1/2016....em có file đính kèm đây.Thanks các bác nhiều.

 

[khuongvietphong]

Bạn thử với File này coi, mình làn bằng hàm tự tạo

 

[numberone_bn]

Cảm ơn khuongvietphong nhé.Nhưng cho mình hỏi thêm là với 1 bảng có nhiều ngày hơn và nhiều công việc hơn thì áp dụng công thức của bạn sang đấy thế nào.

 

[be_09]

Cảm ơn khuongvietphong nhé.Nhưng cho mình hỏi thêm là với 1 bảng có nhiều ngày hơn và nhiều công việc hơn thì áp dụng công thức của bạn sang đấy thế nào.

Góp ý cho bạn:

- Bạn quản lý dự án kiểu đó là không có khả thi, nếu 1 ngày nhập theo dõi hàng chục dự án, và có đến hàng trăm công việc thì bảng tổng hợp bạn cũng phải nhập từng ngày tương tự vậy sao?

- Giải pháp là thêm cột tên dự án và nhập dữ liệu theo chiều dọc, muốn tổng hợp chỉ việc sử dụng PivotTable trong nháy mắt là xong (dù cho bạn có đến hàng trăm dự án).

 

[khuongvietphong]

Cảm ơn khuongvietphong nhé.Nhưng cho mình hỏi thêm là với 1 bảng có nhiều ngày hơn và nhiều công việc hơn thì áp dụng công thức của bạn sang đấy thế nào.

Bạn up File lên mình coi giúp cho chứ bạn hỏi vầy mình cũng chẳng biết trả lời thế nào cả

 

[numberone_bn]

Cảm ơn bác be09 đã góp ý.E còn gà excel chưa biết nhiều.Mong ae chỉ bảo.E làm XD, đang cần viết nhật ký từng ngày mà đây là viết lại nhé.Mỗi công việc lại diễn ra trong 1 khoảng thời gian nhất định.Nếu ngồi dò từng ngày thủ công thì nhầm là cái chắc nên e muốn sắp xếp công việc diễn ra theo trong từng ngày 1.Nếu bác có góp ý thêm thì chỉ cụ thể thêm chút cho e nhé.Thanks ạ!

 

[khuongvietphong]

Cảm ơn bác be09 đã góp ý.E còn gà excel chưa biết nhiều.Mong ae chỉ bảo.E làm XD, đang cần viết nhật ký từng ngày mà đây là viết lại nhé.Mỗi công việc lại diễn ra trong 1 khoảng thời gian nhất định.Nếu ngồi dò từng ngày thủ công thì nhầm là cái chắc nên e muốn sắp xếp công việc diễn ra theo trong từng ngày 1.Nếu bác có góp ý thêm thì chỉ cụ thể thêm chút cho e nhé.Thanks ạ!

Bạn dùng đoạn Code này:

Public Function kq(vung As Date) As String
Dim i As Long
  For i = 4 To Sheet1.[B1000].End(3).Row
    If Sheets("Tong hop").Cells(i, 3).Value <= vung And Sheets("Tong hop").Cells(i, 4).Value >= vung Then
        kq = kq & "; " & Sheets("Tong hop").Cells(i, 2).Value
    End If
  Next i
  kq = Right(kq, Len(kq) - 1)
End Function

Tuy nhiên, trong File của bạn cần sửa lại chỗ D47 và D48 trong Sheet Tong hop thì mới ra kết quả được. Hiện tại nó vẫn bị lỗi ở chỗ đó ( bạn để ý nó đang có mũi tên 2 chiều màu xanh chỉ vào 2 ô đó, bạn tử sửa lại cái này nha)

 

[numberone_bn]

Bạn dùng đoạn Code này:

Public Function kq(vung As Date) As String
Dim i As Long
  For i = 4 To Sheet1.[B1000].End(3).Row
    If Sheets("Tong hop").Cells(i, 3).Value <= vung And Sheets("Tong hop").Cells(i, 4).Value >= vung Then
        kq = kq & "; " & Sheets("Tong hop").Cells(i, 2).Value
    End If
  Next i
  kq = Right(kq, Len(kq) - 1)
End Function

Tuy nhiên, trong File của bạn cần sửa lại chỗ D47 và D48 trong Sheet Tong hop thì mới ra kết quả được. Hiện tại nó vẫn bị lỗi ở chỗ đó ( bạn để ý nó đang có mũi tên 2 chiều màu xanh chỉ vào 2 ô đó, bạn tử sửa lại cái này nha)

Bạn ơi tớ sửa chỗ D47 và D48 rồi mà kết quả chỉ đúng được đoạn đầu, các đoạn sau không đúng nữa.Và khi lưu lại rồi bật lên lại bị lỗi ko lưu được.Giúp mình thêm tý nữa nhé.

 

[khuongvietphong]

Bạn ơi tớ sửa chỗ D47 và D48 rồi mà kết quả chỉ đúng được đoạn đầu, các đoạn sau không đúng nữa.Và khi lưu lại rồi bật lên lại bị lỗi ko lưu được.Giúp mình thêm tý nữa nhé.

Bạn xem File này nha. Ngài ra với những File có Code bên trong bạn phải lưu File ở các đuôi .xls hoặc .xlsm hoặc .xlsb

 

[numberone_bn]

Bạn xem File này nha. Ngài ra với những File có Code bên trong bạn phải lưu File ở các đuôi .xls hoặc .xlsm hoặc .xlsb

>Ngon rồi.Cảm ơn bạn nhiều nhiều nhé khuongvietphong.VBA thật là hay quá.Biết 1 chút thì tốt biết mấy.

 

[numberone_bn]

Public Function kq(vung As Date) As String
Dim i As Long
For i = 4 To Sheet1.[B1000].End(3).Row
If Sheets("Tong hop").Cells(i, 3).Value <= vung And Sheets("Tong hop").Cells(i, 4).Value >= vung Then
kq = kq & "; " & Sheets("Tong hop").Cells(i, 2).Value
End If
Next i
kq = Right(kq, Len(kq) - 1)
End Function
Mình đang tìm hiểu về VBA nhưng mà chưa hiểu được nhiều.Bạn có thể giải thích giúp mình cú pháp của đoạn code trên được không.Chi tiêt 1 chút vì mình đang ở lớp vỡ lòng thôi.Thanks Khuongvietphong nhé.

 

[khuongvietphong]

Public Function kq(vung As Date) As String
Dim i As Long
For i = 4 To Sheet1.[B1000].End(3).Row
If Sheets("Tong hop").Cells(i, 3).Value <= vung And Sheets("Tong hop").Cells(i, 4).Value >= vung Then
kq = kq & "; " & Sheets("Tong hop").Cells(i, 2).Value
End If
Next i
kq = Right(kq, Len(kq) - 1)
End Function
Mình đang tìm hiểu về VBA nhưng mà chưa hiểu được nhiều.Bạn có thể giải thích giúp mình cú pháp của đoạn code trên được không.Chi tiêt 1 chút vì mình đang ở lớp vỡ lòng thôi.Thanks Khuongvietphong nhé.

Bạn đọc qua mấy Topic dưới đây nhé:

http://www.giaiphapexcel.com/forum/showthread.php?650-Chập-chững-đến-VBA!

http://www.giaiphapexcel.com/forum/showthread.php?81716-Hỏi-đáp-VBA-trong-chủ-đề-Chập-chững-đến-VBA

Rồi tìm thêm trên diễn đàn nữa, dần dần là sẽ hiểu ấy mà