-
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àm sao sử dụng hàm WEEKNUM
- Xóa vùng các dòng một khi 1 ô trong vùng đạt điều kiện (cần xóa)
- chuyển dữ liệu từ sheet nguồn sang sheet đích có điều kiện
- kế toán exel
- Chuyên Đề : Trích Lọc Sổ Cái
- Giup mjnh zoj.
- giúp mình với
- Căn đều dữ liệu bảng khi thay đổi số lượng các ô
- Code tìm kiếm, xin nhờ các bác giúp
- Xin file maro excel kế toán trường học!!
-
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é
Pallet nhựa Bà Rịa Vũng Tàu hỗ trợ giá tốt Tại Bà Rịa Vũng Tàu, pallet nhựa là một giải pháp không thể thiếu trong quá trình vận chuyển và lưu trữ hàng hóa. Với một loạt các ưu điểm vượt trội,...
Pallet nhựa Bà Rịa Vũng Tàu hỗ trợ giá tốt