Nhờ anh, chị giúp điểm danh học sinh từng file excel vào file Điểm danh Meet

[lebanhan113]

Em chào các anh, chị. Em có 1 file điểm danh (DiemDanh-Meet) và 3 file học sinh học: 10A8-01-11-2021; 10A8-11-11-2021; 10A8-12-11-2021. Em muốn dựa vào 3 file học sinh học để điểm danh vào đúng lớp và số ngày trong file điểm danh (DiemDanh-Meet) của từng học sinh. Danh sách file học sinh có tên thì điền vào số 0. Còn không có tên thì điền vào chữ 1.

Ví dụ: File học sinh (Tên file: 10A8-01-11-2021) dò vào file điểm danh (DiemDanh-Meet): Lấy (10A8) dò vào Cột (C) file điểm danh (DiemDanh-Meet), lấy (01) dò vào cột (E5) file điểm danh (DiemDanh-Meet).

Trong file (10A8-01-11-2021) lấy cột số 01 (A5) của "01 -BQAnh" dò vào cột D6 "01-Bùi Quốc Anh" và đánh vào số "0". Còn không có thì đánh số 1.

Cuối cùng, cột (AJ) thì tổng hợp số ngày học sinh vắng trong tháng.

Cảm ơn admin đã duyệt bài. Cảm ơn anh, chị đã giúp đỡ nhiều.

 

[VetMini]

Thắc mắc: trong ngữ cảnh điểm danh thì "Meet" có nghĩa là gì vậy?

 

[lebanhan113]

Thắc mắc: trong ngữ cảnh điểm danh thì "Meet" có nghĩa là gì vậy?

Meet không có nghĩa gì anh. Mình chỉ muốn dựa vào số thứ tự của từng học sinh để rút qua file điểm danh. Còn tên các file học sinh (10A8-01-11-2021) để dò vào file điểm danh.

 

[Hoàng Tuấn 868]

Em muốn

Sao không thấy tự làm chút nào nhỉ, nếu vướng đâu thì hỏi đấy chứ thế này là nhờ từ A đến Z, vậy là chẳng chịu làm gì cả.

 

[lebanhan113]

Sao không thấy tự làm chút nào nhỉ, nếu vướng đâu thì hỏi đấy chứ thế này là nhờ từ A đến Z, vậy là chẳng chịu làm gì cả

Trình độ VBA của file này thì em là số 0. Em đang tự học trên diễn đàn được chút ít. Em nhờ anh chỉ thêm.

 

[Hoàng Tuấn 868]

tự học trên diễn đàn được chút ít.

Vậy bạn cứ viết và thử đi, chưa ổn chỗ nào thì đưa lên hỏi các thành viên, từ từ rồi sẽ làm được thôi bạn. Chứ nhờ luôn từ đầu đến cuối thì còn gọi gì là học nữa. (Mà sao lại không đăng vào mục Lập trình với Excel vậy bạn).

 

[lebanhan113]

Vậy bạn cứ viết và thử đi, chưa ổn chỗ nào thì đưa lên hỏi các thành viên, từ từ rồi sẽ làm được thôi bạn. Chứ nhờ luôn từ đầu đến cuối thì còn gọi gì là học nữa. (Mà sao lại không đăng vào mục Lập trình với Excel vậy bạn).

Vâng. Cảm ơn anh đã giúp đỡ. Để em học vba từ từ.

 

[ongke0711]

Meet không có nghĩa gì anh. Mình chỉ muốn dựa vào số thứ tự của từng học sinh để rút qua file điểm danh. Còn tên các file học sinh (10A8-01-11-2021) để dò vào file điểm danh.

Ý bác ấy hỏi Meet là gì? Không phải ai cũng biết ứng dụng Google Meet dùng trong việc học, họp online. Và bạn nên giải thích thêm là muốn thống kê dữ liệu lấy xuống từ khung cửa sổ “Chat” (message) của ứng dụng.

 

[lebanhan113]

Ý bác ấy hỏi Meet là gì? Không phải ai cũng biết ứng dụng Google Meet dùng trong việc học, họp online. Và bạn nên giải thích thêm là muốn thống kê dữ liệu lấy xuống từ khung cửa sổ “Chat” (message) của ứng dụng.

Đúng rồi anh. Meet là google meet để dạy online. Mình muốn lấy file học sinh để điểm danh học sinh theo từng ngày và từng lớp.

 

[VetMini]

Ý bác ấy hỏi Meet là gì? Không phải ai cũng biết ứng dụng Google Meet dùng trong việc học, họp online. Và bạn nên giải thích thêm là muốn thống kê dữ liệu lấy xuống từ khung cửa sổ “Chat” (message) của ứng dụng.

Tôi cũng biết Google Meet, nhưng không có dùng nhiều. Nhưng cách đếm hơi lạ cho nên tôi mới hỏi kỹ lại.
Trên nguyên tắc thì có mặt mới điểm danh. Vắng mặt thì không điểm. Rồi từ đó suy ra.
Bài này làm ngược lại: mặc định/default là có cho nên tôi mới hỏi kỹ lại xem có phải Meets nó set ngược đời như vậy không?

 

[lebanhan113]

Tôi cũng biết Google Meet, nhưng không có dùng nhiều. Nhưng cách đếm hơi lạ cho nên tôi mới hỏi kỹ lại.
Trên nguyên tắc thì có mặt mới điểm danh. Vắng mặt thì không điểm. Rồi từ đó suy ra.
Bài này làm ngược lại: mặc định/default là có cho nên tôi mới hỏi kỹ lại xem có phải Meets nó set ngược đời như vậy không?

Đúng rồi. Mình lấy ngược lại để điểm danh vào danh sách học sinh ở trường mình.

 

[lebanhan113]

Anh, chị ơi. Anh, chị xem code em sai chỗ nào mà không dò được học sinh có tham gia học, học sinh vắng.

Link file: https://drive.google.com/file/d/1y3q6SfPtYOupcSrTzXNeBIYIu0BDS1Fk/view?usp=sharing

Code:
Sub DiemDanh()
Dim sArr(), i As Long, k As Long, Res()
With Sheets("DiemDanhMeet")
sArr = .Range("D6", .Range("D" & Rows.Count).End(3)).Resize(, 4).Value
End With
ReDim Res(1 To UBound(sArr), 1 To 4)
For i = 1 To UBound(sArr)
If sArr(i, 4) = Empty Then
k = k + 1
Res(k, 1) = k
Res(k, 2) = sArr(i, 2)
Res(k, 3) = sArr(i, 3)
End If
Next
With Sheets("DiemDanhMeet")
If .Range("E6") = "One" Then .Range("D610000").ClearContents
If k Then .Range("D" & Rows.Count).End(3).Offset(1).Resize(k, UBound(Res, 2)) = Res
End With
MsgBox "Xong,", 64
End Sub