-
07-16-2013, 05:15 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Giúp em viết code VBA để copy nhiều sheet vào sheet tổng cộng
View attachment 13958
View attachment 13958
Em còn mù mờ về code VBA lắm
nên nhờ các bác giúp viết cho em code VBA trong excel để copy nhiều sheet vào sheet tổng cộng như file đính kèm và bỏ đi cột số 3 trong tổng số 5 cột ở sheet tổng cộngView more random threads:
- Lọc chưa phù hợp với yêu cầu
- Hộp thoại dialog open file
- Cách quản lý File Scan và dùng Excel để mở nó.
- Tặng file bảng kê tiền
- Tạo dòng chữ chạy liên tục
- Gộp nhiều Sheet thuộc 2 file khác nhau vào 1 file !
- Lỗi khi sử dụng macro,addin
- Code lọc dữ liệu trong excel
- Giúp em viết code VBA để copy nhiều sheet vào sheet tổng cộng
- Nhập - xuất - tồn hàng hóa
-
07-18-2013, 12:50 PM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Bạn có thể tham khảo file này
Mã:Option Explicit Sub Button4_Click() Dim Sh As Worksheet Application.ScreenUpdating = False [b2].CurrentRegion.Offset(1, 1).ClearContents For Each Sh In Worksheets If Sh.Name <> "THop" Then With [B65500].End(xlUp).Offset(1) Sh.[b2].CurrentRegion.Offset(1, 1).Copy Destination:=.Offset(0) End With End If Next Sh Application.ScreenUpdating = True Columns("E:E").Hidden = True: Randomize [b1].Resize(, 6).Interior.ColorIndex = 34 + 9 * Rnd() \ 1 End Sub
-
07-18-2013, 11:36 PM #3Silver member
- Ngày tham gia
- Nov 2015
- Bài viết
- 18
Ðề: Giúp em viết code VBA để copy nhiều sheet vào sheet tổng cộng
Cảm ơn TQChanh đã giúp
---------- Post added at 04:36 ---------- Previous post was at 04:07 ----------
Anh TQChanh giúp thêm em Mẫu báo cáo này nữa,
Vì có rất là nhiều sheet nên mới phải mất công viết code như thế này
Ở sau cột 6 em chèn thêm 1 cột và cộng cột (4+5) sau đó để hiển thị cột 6 và ẩn cột 4, 5
anh giúp thêm em cái này nhé
cảm ơn anh trước
-
07-19-2013, 04:23 AM #4Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Bạn thay bằng macro sau:
Mã nguồn PHP:[COLOR=#000000]
Option Explicit Sub Button4_Click[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Rws [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]ScreenUpdating [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]False [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]b2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]CurrentRegion[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]ClearContents Columns[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G:G"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Delete [/COLOR][COLOR=#DD0000]'*|*' [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]Each Sh In Worksheets [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Name [/COLOR][COLOR=#007700]<> [/COLOR][COLOR=#DD0000]"THop" [/COLOR][COLOR=#0000BB]Then With [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]B65500[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[[/COLOR][COLOR=#0000BB]b2[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]CurrentRegion[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Copy Destination[/COLOR][COLOR=#007700]:=.[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]End With End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next Sh Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]ScreenUpdating [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]True Columns[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"E:E"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Hidden [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]True[/COLOR][COLOR=#007700]: [/COLOR][COLOR=#0000BB]Randomize [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]b1[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700](, [/COLOR][COLOR=#0000BB]6[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Interior[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]ColorIndex [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]34 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]Int[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]9 [/COLOR][COLOR=#007700]* [/COLOR][COLOR=#0000BB]Rnd[/COLOR][COLOR=#007700]()) [/COLOR][COLOR=#DD0000]'*| Doan Ma Them|*' [/COLOR][COLOR=#0000BB]Columns[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G:G"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select Selection[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Insert Shift[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]xlToRight Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G1"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"Total" [/COLOR][COLOR=#0000BB]With [/COLOR][COLOR=#007700][[/COLOR][COLOR=#0000BB]G2[/COLOR][COLOR=#007700]] [/COLOR][COLOR=#0000BB]Rws [/COLOR][COLOR=#007700]= .[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700](, -[/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlDown[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Row [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]FormulaR1C1 [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#DD0000]"=RC[-3]+RC[-2]" [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]HorizontalAlignment [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]xlCenter [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Select Selection[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]AutoFill Destination[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]Range[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"G2:g" [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#0000BB]Rws[/COLOR][COLOR=#007700]), [/COLOR][COLOR=#0000BB]Type[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]xlFillDefault End With End Sub [/COLOR]
:dichoi:
-
07-22-2013, 10:31 PM #5Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Giúp em viết code VBA để copy nhiều sheet vào sheet tổng cộng
cảm ơn anh nhiều
-
03-19-2014, 11:29 PM #6Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Helps !!!
Sẵn e đang đi tìm cách phục vụ công việc copy Sheet này ... xin nhờ bác TQChanh giúp e cái bác nhé
:love03:
- Nội dung yêu cầu của e cũng gần giống với chủ đề này - e xin nói cụ thể như sau :
Đầu tiên là e có n Sheet theo thứ tự 1 tới n ( n lớn nhất là 12 - e tổng hợp lương đó bác )
Và Sheet Tổng hợp nằm tại vị trí n + 1
+ Nội dung của mỗi Sheet bên trong bác không cần chú ý nhiều lắm vì e cần Chép cả cột thôi ạ.
Và dạng của các sheet này luôn luôn là :
+ Cột A chứa tên và cột H chứa số tiền tổng cộng
===> E cần chép 2 cột A và H của mỗi Sheet sang Sheet Tổng hợp
* Theo nguyên tắc sau :
Sheet1.CộtA .... Sheetn.CộtA ( các cột này sẽ nằm tại cột A - đến cột n trong Sheet Tổng hợp )
Sheet1.CộtH ... Sheetn.CộtH ( các cột này sẽ nằm tại cột n + 2 đến cột n + 2 + n trong Sheet Tổng hợp )
Với điều kiện : Tên NV trong mỗi Sheet sẽ từ ô A3 trở xuống ( tương tự H3 trở xuống )
Và có tháng sẽ có 50 NV nhưng cũng có tháng có 60 NV ... hoặc khác nữa ( số dòng trong mổi tháng có thể thay đổi )
-
03-20-2014, 03:58 PM #7Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 9
Ðề: Giúp em viết code VBA để copy nhiều sheet vào sheet tổng cộng
Bạn xài đoạn mã sau:
Mã nguồn PHP:[COLOR=#000000]
Option Explicit Sub gpeCopy[/COLOR][COLOR=#007700]() [/COLOR][COLOR=#0000BB]Dim Sh [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Worksheet[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Byte[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]Rw [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long Dim ShName [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"Tong Hop"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Select [/COLOR][COLOR=#007700]For [/COLOR][COLOR=#0000BB]Each Sh In ThisWorkbook[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Worksheets [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Len[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Sh[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Name[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]1 Then J [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]J [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]1 ShName [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]CStr[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]With Sheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]ShName[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Rw [/COLOR][COLOR=#007700]= .[[/COLOR][COLOR=#0000BB]A4[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]CurrentRegion[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Rows[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Count [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]9 [/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Columns[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"A:A"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Copy Destination[/COLOR][COLOR=#007700]:=[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700]) [/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]13 [/COLOR][COLOR=#007700]+ [/COLOR][COLOR=#0000BB]J[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rw[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= .[[/COLOR][COLOR=#0000BB]h1[/COLOR][COLOR=#007700]].[/COLOR][COLOR=#0000BB]Resize[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rw[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value End With End [/COLOR][COLOR=#007700]If [/COLOR][COLOR=#0000BB]Next Sh MsgBox J End Sub [/COLOR]
-
03-20-2014, 11:15 PM #8Silver member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Giúp em viết code VBA để copy nhiều sheet vào sheet tổng cộng
Hay quá bác ơi ... e Thanks bác nhiều nhé
Khu dự án cao cấp Moonlight Avenue được phát triển bởi Tập đoàn Hưng Thịnh phù hợp khách hàng đẳng cấp nhất tiện ích phù hợp. Moonlight Thủ Đức phù hợp khách hàng khu an ninh phong cách nghỉ dưỡng....
Moonlight Avenue Dự án chung cư không gian thoáng mát thoải mái nhất