Bạn muốn tự động kiểu thế nào?
Trong bảng có 45 giáo viên dạy trong tuần, mình muốn tạo 1 cột mới gồm có 45 giáo viên này nhưng tuần sau trong TKB có sự thay đổi giáo viên thì cột danh sách giáo viên dạy sẽ tự động cập nhật.
Thử dùng code này xem sao.
Sub LocGV()
Dim i&, j&, k&, t&, Lr&, Lc&
Dim Arr(), KQ(), Dic As Object, Ws As Worksheet
Set Dic = CreateObject("Scripting.Dictionary")
With Sheets("TKB_T10")
Lr = .Cells(Rows.Count, 2).End(xlUp).Row + 5
Arr = .Range("B20:T" & Lr).Value
End With
ReDim KQ(1 To UBound(Arr), 1 To 3)
n = UBound(Arr) / 35
For i = 1 To n
For j = (i * 35) - 34 To i * 35
For k = 1 To UBound(Arr, 2)
If Arr(j, k) <> "" Then
If Len(Trim(Arr(j, k))) > 2 Then
keys = Arr(j, k)
If Not Dic.Exists(keys) Then
t = t + 1
Dic.Add (keys), t
Temp = Split(keys, "-")
KQ(t, 1) = t
KQ(t, 2) = Temp(1)
KQ(t, 3) = Temp(0)
End If
End If
End If
Next k
Next j
Set Ws = Sheets.Add(After:=Sheets(Worksheets.Count))
Ws.[A1] = "TT"
Ws.[B1] = "Ho và tên"
Ws.[C1] = "GV môn"
Ws.[A2].Resize(t, 3) = KQ
Ws.Name = "T" & i
Next i
Set Dic = Nothing
MsgBox "Xong"
End SubMình không biết gì về VBA, bạn chỉ rõ hơn được không?
Cảm ơn bạn nhiều! Mình làm theo hướng dẫn và được rồi, nhưng ý mình chỉ cần lấy giá trị cả ô chứ không cần tách tên và môn. Ví dụ: "CN - Huyền". Mình thử thay 1 giáo viên khác vào thì thấy chưa cập nhật bạn à?
Trước tiên bấm nút để lấy DS giáo viên cái đã. Chuyện tự động tính sau.
Đây mói là code để lấy tên GV ở các tuần đưa và Sh tuần tương ứng thôi.
Còn đây là khi đã có đủ 6 ngày dạy, đủ 30 dòng tiết học thì tự động lấy danh sách.
Cám ơn bạn nhiều vì đã giúp, bản chất công việc của mình là tính lương theo tháng, tháng được gán theo tuần có thể 4 tuần hoặc 5 tuần (có thể tràn sang cả tháng tiếp theo). Lương được tính bằng số tiết/tháng * tiền thù lao/tiết. Trước mình dùng hàm countif để đếm, nhưng có vẻ vẫn phải làm thủ công nhiều nên mình đưa lên Diễn đàn nhờ các bạn giúp xem có cách nào hay hơn không? Mình gửi file tính lương để bạn rõ hơn và góp ý để việc tính lương đơn giản và dễ hiểu hơn cho GV kiểm soát.
Đúng rồi bạn có 2 giáo viên dạy 2 môn cơ, để mình xem. Cám ơn bạn!
Cách dùng pivot đơn giản, dễ hiểu hơn bạn nhỉ? Có cách nào để đưa 1 lần 19 lớp vào trường row không bạn? và tạo timeline như thế nào bạn ơi?
Học Pivot thì bạn xem tài liệu có trên diễn đàn rồi áp dụng thôi. Tài liệu của thầy Ptm0412 chỉ rất chi tiết
www.giaiphapexcel.com
Tính lương theo tháng mà đưa lên là lấy danh sách giáo viên dạy theo tuần??? làm tôi và Anh MaiKa8008 nhầm tưởng.
Bạn ơi, sao khi mình làm việc với file khác bảng pivot không hiển thị tên giáo viên trên cùng 1 cột A bạn nhỉ? chỉ mình với.
Không phải vậy đâu, mình nghĩ rằng đưa tuần lên cho đỡ phức tạp. Khi mình làm sẽ ngoại suy ra tháng thôi. Bạn thông cảm!
Mình cũng đang sử dụng countif, giáo viên không dạy sẽ không có tên trên TKB nên sẽ không có số tiết bằng 0. Vấn đề là mình muốn lập ds giáo viên dạy một cách nhanh nhất thôi (vì giáo viên thay đổi thường xuyên nên không áp dụng cho các tháng được).
Cho mình hỏi mấy câu nhé:
