Tổng hợp nhiều file vào 1 file excel giống chương trình quản lý (2 người xem)

[quanlyngoc]

Em hiện đang cần làm 1 hệ thống quản lý bằng excel nhưng đến bước tổng hợp thì tịt mong các bác có thể chỉ giúp em
Em xin chân thành cảm ơn !!!!

 

[hoangdv]

up file lên xem bác. Nếu file có 1 quy luật nhất định thì việc tổng hợp sẽ đơn giản

 

[quanlyngoc]

đó bác. Nhờ bác xem giúp

 

[Quang_Hải]

Em hiện đang cần làm 1 hệ thống quản lý bằng excel nhưng đến bước tổng hợp thì tịt mong các bác có thể chỉ giúp em
Em xin chân thành cảm ơn !!!!

1. Cho tất cả các file muốn tổng hợp vào 1 thư mục
2. Phải biết cách dùng code
3. Copy code về cho vào 1 module trong file Tong Hop
4. Chạy code sẽ có kết quả tổng hợp mới nhất

Sub TongHop()
Application.ScreenUpdating = False
Dim ObjFSO As Object, ObjFile As Object, DuongDan As String, Cursh As Worksheet
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
DuongDan = ThisWorkbook.Path
Set Cursh = ActiveSheet
Cursh.[A2:I10000].ClearContents
With ObjFSO.Getfolder(DuongDan)
   For Each ObjFile In .Files
      If ObjFSO.GetExtensionName(ObjFile.Name) Like "xls*" Then
         If Not ObjFile.Name Like "~*" Then
            If ObjFile.Name <> ThisWorkbook.Name Then
                With Workbooks.Open(ObjFSO.GetAbsolutePathName(ObjFile))
                    With .ActiveSheet
                        .Range(.[A2], .[A65536].End(3)).Resize(, 9).Copy
                        Cursh.[A65536].End(3).Offset(1).PasteSpecial 1
                        Application.CutCopyMode = False
                    End With
                    .Close False
                End With
            End If
         End If
      End If
   Next
End With
Application.ScreenUpdating = True
End Sub

 

[quanlyngoc]

cảm ơn bác nhưng mà cứ phải làm thế này ko có nút bấm để nó tự tổng hợp hả bác thay vì cứ phải vào phần nhập code để ấn run

 

[quanlyngoc]

với cả các bác có tài liệu hướng dẫn về học excel ko thì cho em
em xin cám ơn

 

[aviaiva]

cảm ơn bác nhưng mà cứ phải làm thế này ko có nút bấm để nó tự tổng hợp hả bác thay vì cứ phải vào phần nhập code để ấn run

Bác tự thêm nút vào rồi gán macro cho cái nút đó mà chạy.

mà ex2007 phải save dưới dạng *.xlsm hoặc *.xls thì nó mới chạy code nhé.

sau này làm file bác đừng có đặt tên tiếng việt

 

[quanlyngoc]

ôh thế muốn thêm nút thì vào cái nào zậy bác em dang xài excel 2013
mà bác có tài liệu học excel ko

 

[aviaiva]

ôh thế muốn thêm nút thì vào cái nào zậy bác em dang xài excel 2013
mà bác có tài liệu học excel ko

Bác tìm hiẻu trên diễn đàn về macro nhé có rất nhiều đọc vài bài là biết ngay, sau này cần code gì cứ tìm là có hết, không có mới hỏi cho nhanh.

 

[quanlyngoc]

các bác giúp em lần nữa nha

các bác xem tổng hợp giúp em file này tạo thành nút tổng hợp hộ em
em xin cảm ơn
với cả nếu em thêm 1 cột hay bớt 1 cột nữa thì phải thay đổi code ntn xin các bác chỉ em lun

 

[Quang_Hải]

các bác xem tổng hợp giúp em file này tạo thành nút tổng hợp hộ em
em xin cảm ơn
với cả nếu em thêm 1 cột nữa thì phải thay đổi câu lệnh nào xin các bac chỉ em lun

Code trong bài số 4, bạn tìm dòng lệnh Resize(,9) và thay số cột vào. Nếu dữ liệu từ A> N thì thay số 9 thành số 14, và cứ thế...
Còn chuyện tạo ra cái nút để gán lệnh vào thì mình nghĩ bạn nên tìm hiểu và tự làm, cái này cơ bản lắm. Tập vận động đi, vài tháng trước đây mình cũng chẳng biết gì, đọc mãi rồi cũng biết.

 

[be_09]

các bác xem tổng hợp giúp em file này tạo thành nút tổng hợp hộ em
em xin cảm ơn
với cả nếu em thêm 1 cột hay bớt 1 cột nữa thì phải thay đổi code ntn xin các bác chỉ em lun

Theo dõi khách hàng tại sao không thiết kế thêm cột tên khách hàng và dùng riêng 1 sheet để theo dõi chung cho tất cả các khách hàng mà lại để riêng mỗi khách hàng 1 File vậy (như vậy sẽ khó khăn trong việc theo dõi và tổng hợp).

 

[quanlyngoc]

bác nào giúp em cái bên em cần gấp cái này mà em thì ko có thạo xin các bác giúp dùm

 

[quanlyngoc]

thế còn hàng thì sao bạn

 

[be_09]

thế còn hàng thì sao bạn

Bạn hỏi mà không trích dẫn thì biết hỏi ai đây trời!!!!!

 

[quanlyngoc]

Code trong bài số 4, bạn tìm dòng lệnh Resize(,9) và thay số cột vào. Nếu dữ liệu từ A> N thì thay số 9 thành số 14, và cứ thế...
Còn chuyện tạo ra cái nút để gán lệnh vào thì mình nghĩ bạn nên tìm hiểu và tự làm, cái này cơ bản lắm. Tập vận động đi, vài tháng trước đây mình cũng chẳng biết gì, đọc mãi rồi cũng biết.

thế còn hàng thì làm sao thay đổi đc

 

[Quang_Hải]

thế còn hàng thì làm sao thay đổi đc

Tiễn phật thì thôi ráng tiễn đến tây phương luôn
Bạn tải file về, giải nén ra và lưu vào thư mục chứa các file cần tổng hợp. Mở file lên và bấm nút.

 

[quanlyngoc]

Tiễn phật thì thôi ráng tiễn đến tây phương luôn
Bạn tải file về, giải nén ra và lưu vào thư mục chứa các file cần tổng hợp. Mở file lên và bấm nút.

cảm ơn bạn rất rất nhiều

 

[badday03]

Chào bác quanghai1969, em có file là CV do ứng viên gửi đến và công việc của em là copy dữ liệu ở sheet data để lập một danh sách tổng hợp ứng viên. Mong bác giúp em làm một file để lấy dữ liệu ứng viên từ nhiều file CV như thế này thành một file tổng, dữ liệu lấy từ sheet data (định dạng giống nhau cả ạ). Do công việc của em hàng ngày phải làm nhiều vô cùng nên mong bác giúp đỡ. Em cảm ơn bác nhiều ạ. File của em bác tải giúp em theo link sau ạ: http://www.mediafire.com/download/0rryyfr5ccu6b6q/CV.rar