Xin nhờ giúp viết hàm để tổng hợp nhiều sheet

[nameless69vn]

Em có file dữ liệu gồm nhiều sheet có cấu trúc giống nhau, xin giúp em viết hàm để tổng hợp các sheet này lại theo mẫu như Sheet mẫu!

 

[nameless69vn]

Em gửi lại file đính kèm

 

[Ba Tê]

Em có file dữ liệu gồm nhiều sheet có cấu trúc giống nhau, xin giúp em viết hàm để tổng hợp các sheet này lại theo mẫu như Sheet mẫu!

Mem mới ơi là Mem mới! Có đọc kỹ cái này không:

Lưu ý khi gửi bài:
- Bài viết không dấu Tiếng Việt sẽ bị xóa
- Đặt tựa đề theo sát nội dung câu hỏi/ trả lời. Các bài viết có tựa đề chung chung như
Help me, cứu cứu, cứu em, gấp gấp,... sẽ bị xoá
- Giải thích/ mô tả câu hỏi càng chi tiết càng tốt
- Nên gửi thêm tập tin Excel kèm chú thích về câu hỏi nếu có
Xem thêm Nội Quy Diễn Đàn
​

​

​

Tui có thấy Sheet mẫu đó ở đâu, tất cả bài của mình cùng bị xóa nhé!
Bye!

 

[nameless69vn]

Lúc em đính kèm tập tin thì em không để ý kích thước tập tin nên không đính kèm được, em gửi lại rùi mà! Em nhờ mọi người giúp em viết cái hàm để tổng hợp thông tin từ các sheet lại, theo cấu trúc như sheet "Mau"

 

[Ba Tê]

Lúc em đính kèm tập tin thì em không để ý kích thước tập tin nên không đính kèm được, em gửi lại rùi mà! Em nhờ mọi người giúp em viết cái hàm để tổng hợp thông tin từ các sheet lại, theo cấu trúc như sheet "Mau"

Chắc cũng có thể làm được nếu thay đổi vài thứ dữ liệu, nhưng:
- Cái này chắc chắn sẽ bị chèn thêm mấy chục Sheet nữa, mỗi Sheet một GV. (bó tay!)
- Kiểu làm này hơi bị "Ngược", thường người ta có TKB chung rồi mới lọc ra cho từng GV, đàng này bạn làm ngược lại, (Hổng hiểu).
- Nếu muốn tự làm theo ý bạn, bạn có thể tham khảo tại đây để tạo "công trình" theo ý thích của bạn.
http://www.giaiphapexcel.com/forum/showthread.php?25659-cần-giúp-đỡ-về-lập-TKB-trong-excel&p=312477#post312477

 

[concogia]

Chắc cũng có thể làm được nếu thay đổi vài thứ dữ liệu, nhưng:
- Cái này chắc chắn sẽ bị chèn thêm mấy chục Sheet nữa, mỗi Sheet một GV. (bó tay!)
- Kiểu làm này hơi bị "Ngược", thường người ta có TKB chung rồi mới lọc ra cho từng GV, đàng này bạn làm ngược lại, (Hổng hiểu).
/QUOTE]
Mắc cười chưa ???
Của người ta, người ta làm sao kệ ...người ta
Trong phim "Thượng Đế cũng phải cười" có đoạn 2 nguời thổ dân khi được hỏi : tê giác thấy lửa trong đêm là chạy tới vùi tắt đống lửa? 2 thổ dân đó trả lời đồng ý bằng cách ...."lắc đầu"
Thế có gọi là ngược không TTT ???
Bài này viết cũng được nhưng phải thêm môn dạy của gv vào các sheet
To: nameless69vn
Bạn cứ thêm các sheet rồi chọn sheet "mau" xem kết quả
Hình như tiết 1 thứ 2 là Chào cờ & tiết 5 thứ 7 la Sinh hoat
Thêm môn dạy ở cell [G4]
Thân

Private Sub Worksheet_Activate()
    Dim Vung, Mg(), I, J, K, Ws, kK
    ReDim Mg(1 To Worksheets.Count - 1, 1 To 33):  kK = 3
        For Each Ws In Worksheets
            If Ws.Name <> "Mau" Then
                Set Vung = Ws.[b9:g13]
                K = K + 1
                Mg(K, 1) = K: Mg(K, 2) = Ws.[a3]: Mg(K, 3) = Ws.[g4]
                    For I = 1 To 6
                        For J = 1 To 5
                            kK = kK + 1
                                If kK = 4 Then
                                    Mg(K, kK) = "Chao Co"
                                ElseIf kK = 33 Then
                                    Mg(K, kK) = "Sinh Hoat"
                                Else
                                    Mg(K, kK) = Right(Vung(J, I), 3)
                                End If
                        Next J
                    Next I
            End If
            kK = 3
        Next Ws
    [a3:ag1000].ClearContents
    [a3].Resize(Worksheets.Count - 1, 33) = Mg
End Sub

 

[nameless69vn]

Cái này do phần mềm Moet-TKB sinh ra chứ em có biết đâu! Nó tạo ra mỗi giáo viên trên một Sheet, mà nhìn như thế thì BGH khó mà phân công dạy thay được!
Em không biết phải xử lý thế nào, để tổng hợp từ các sheet ấy lại như mẫu của Sheet Mau cả!

 

[Ba Tê]

Mắc cười chưa ???
Của người ta, người ta làm sao kệ ...người ta
Trong phim "Thượng Đế cũng phải cười" có đoạn 2 nguời thổ dân khi được hỏi : tê giác thấy lửa trong đêm là chạy tới vùi tắt đống lửa? 2 thổ dân đó trả lời đồng ý bằng cách ...."lắc đầu"
Thế có gọi là ngược không TTT ???
Bài này viết cũng được nhưng phải thêm môn dạy của gv vào các sheet
To: nameless69vn
Bạn cứ thêm các sheet rồi chọn sheet "mau" xem kết quả
Hình như tiết 1 thứ 2 là Chào cờ & tiết 5 thứ 7 la Sinh hoat
Thêm môn dạy ở cell [G4]
Thân

Private Sub Worksheet_Activate()
    Dim Vung, Mg(), I, J, K, Ws, kK
    ReDim Mg(1 To Worksheets.Count - 1, 1 To 33):  kK = 3
        For Each Ws In Worksheets
            If Ws.Name <> "Mau" Then
                Set Vung = Ws.[b9:g13]
                K = K + 1
                Mg(K, 1) = K: Mg(K, 2) = Ws.[a3]: Mg(K, 3) = Ws.[g4]
                    For I = 1 To 6
                        For J = 1 To 5
                            kK = kK + 1
                                If kK = 4 Then
                                    Mg(K, kK) = "Chao Co"
                                ElseIf kK = 33 Then
                                    Mg(K, kK) = "Sinh Hoat"
                                Else
                                    Mg(K, kK) = Right(Vung(J, I), 3)
                                End If
                        Next J
                    Next I
            End If
            kK = 3
        Next Ws
    [a3:ag1000].ClearContents
    [a3].Resize(Worksheets.Count - 1, 33) = Mg
End Sub

Cò Già viết code cũng nhanh thật.
Chuẩn bị viết thêm cho Ca chiều đi.
@ Cũng có mắc cười đấy chứ.

Cái này do phần mềm Moet-TKB sinh ra chứ em có biết đâu! Nó tạo ra mỗi giáo viên trên một Sheet, mà nhìn như thế thì BGH khó mà phân công dạy thay được!

Phần mềm Moet??? hiện đại hé Cò, trường tôi 42 lớp, gần 100 GV giảng dạy sẽ có gần 100 sheet, xem TKB của GV "đaẽ" luôn!
(Chưa thử nên hổng biết, nếu có 100 sheet thì code của Cò Già chạy trong bi lâu nhỉ?)
Spam chắc bị xóa!

 

[concogia]

Cò Già viết code cũng nhanh thật.
(Chưa thử nên hổng biết, nếu có 100 sheet thì code của Cò Già chạy trong bi lâu nhỉ?)
Spam chắc bị xóa!

Sao TTT không chèn thêm vài chục sheet nữa cho đủ 100 sheet xem nó chạy ra sao???
Híc. (Mà cái này cũng hơi hơi .......ngược)