nguyentrongquysla
Sơ cấp
Dùng hàm rắc rối nhưng bạn cố gắng. Điều quan trọng là bạn nắm được cơ bản về từng hàm trong Excel thì sẽ giúp bạn thiết kế biểu mẫu và công thức khoa học, VD: hàm if, left, or, and...
Tổng hợp dữ liệu từ nhiều sheet thành một sheet
- Thread starter lexthien
- Ngày gửi
vothanhbac
Sơ cấp
Co file mau ne
Mò mẫm dò dẫm wài cũng ko tốt lắm! mình có 1 file các bạn voi thử hén. Mình lập trình dở tệ nên đôi khi nhìn code có nhiều bạn cười mình. chứ dân ko biết lập trình lại thấy dễ hiểu vì mọi cái mình đều viết từ từ, không phân tích, thiết kế gì hết, nghĩ tới đâu code tới đó. Nói nhiều khó hiểu mời các bác xem qua
ko upload file lên dc chịu khó lên media tải về nha các bạn
upload.xls
Mò mẫm dò dẫm wài cũng ko tốt lắm! mình có 1 file các bạn voi thử hén. Mình lập trình dở tệ nên đôi khi nhìn code có nhiều bạn cười mình. chứ dân ko biết lập trình lại thấy dễ hiểu vì mọi cái mình đều viết từ từ, không phân tích, thiết kế gì hết, nghĩ tới đâu code tới đó. Nói nhiều khó hiểu mời các bác xem qua
ko upload file lên dc chịu khó lên media tải về nha các bạn
upload.xls
QDuc
Cao cấp
(/ấn đề là sửa lại dòng lệnh của #2 chứ không nên của bài khác;
đó là đoạn mã này:
Mã:
If WSh.Name <> "TongHop" Then
WSh.[A5].CurrentRegion.Offset(2).Copy Destination:= _
Sheets("TongHop").Range("A" & [B65500].End(xlUp).Row + 1)
End IfNếu tên trang tính đang duyệt không fải là 'TongHop' thì (thực thi cầu lệnh):
Đem vùng có DL (dữ liệu) (liên tục) kể từ [A5], bỏ đi 2 dòng đầu chép đến vùng mà ô đầu tiên của vùng này là ô dưới ô có DL cuối của cột 'A' thuộc trang 'TongHop'
Sau đó ta xét đến iêu cầu của bạn;
Trong iêu cầu này còn thiếu nhiều thông tin, như:
Chép cột nào của các trang tính cần chép, chép đến cột nào của trang 'TongHop' (nếu cột cần chép đến không trùng với cột DL của các trang nguồn.
Chỉ cho bạn thì OK thôi, nhưng như vậy sẽ lãng fí sức người, sức của của diễn đàn nói chung & cá nhân mình nói riêng.
Thân ái!
Gộp dữ liệu từ nhiều sheet
Cho mình hỏi thêm 1 chút về vấn đề gộp dữ liệu từ nhiều sheet.
Mình có 1 file tính định mức cho nguyên phụ liệu như file đính kèm. Mình muốn cột [Định mức từng size] của sheet thun 5mm, sheet thun 20mm, sheet thun 30mm, sheet thun 40mm (tên của những sheet này sẽ thay đổi tùy theo loại nguyên phụ liệu sử dụng) sẽ được tổng hợp ở sheet TongHop. Mong các anh chị & các bạn giúp dùm. Xin cảm ơn
Cho mình hỏi thêm 1 chút về vấn đề gộp dữ liệu từ nhiều sheet.
Mình có 1 file tính định mức cho nguyên phụ liệu như file đính kèm. Mình muốn cột [Định mức từng size] của sheet thun 5mm, sheet thun 20mm, sheet thun 30mm, sheet thun 40mm (tên của những sheet này sẽ thay đổi tùy theo loại nguyên phụ liệu sử dụng) sẽ được tổng hợp ở sheet TongHop. Mong các anh chị & các bạn giúp dùm. Xin cảm ơn
Ðề: Bạn kiểm theo file đính kèm giúp nha
Xin cảm ơn anh HongViet rất nhiều. Nhưng anh cho mình hỏi thêm là khi mình thay đổi tên của sheet [thun 5mm] thành [thun 2mm](Tên sheet sẽ thay đổi theo [Loại NPL]) mình nhấn Ctrl+Shift+T thì dữ liệu mất hết. Anh xem lại dùm mình tí nhé, xin cảm ơn trước.
Xin cảm ơn anh HongViet rất nhiều. Nhưng anh cho mình hỏi thêm là khi mình thay đổi tên của sheet [thun 5mm] thành [thun 2mm](Tên sheet sẽ thay đổi theo [Loại NPL]) mình nhấn Ctrl+Shift+T thì dữ liệu mất hết. Anh xem lại dùm mình tí nhé, xin cảm ơn trước.
tocxoandaden
Sơ cấp
Ðề: Nối dử liệu các sheet thành 1 sheet
Tôi cũng cần kết nối dữ liệu doanh số của 12 tháng, vì mỗi tháng bán hàng đã chiếm khoảng 35.000 dòng. Làm cách nào để có thể kết nối thành 1 sheet mà số liệu vẫn đầy đủ? Có bác nào giúp em với
Tôi cũng cần kết nối dữ liệu doanh số của 12 tháng, vì mỗi tháng bán hàng đã chiếm khoảng 35.000 dòng. Làm cách nào để có thể kết nối thành 1 sheet mà số liệu vẫn đầy đủ? Có bác nào giúp em với
meovahcuot85
Sơ cấp
hic..do may minh ko go duoc co dau..admin dung xoa bai nha
ban co the tham khao code duoi day rui modify thanh cai ban can nha:
Dim t As Integer, m As Integer
Dim SrcRng As Range, Arr, i As Long, n As Long
FolderName = ActiveWorkbook.Path
wbName = Dir(FolderName & "\" & "VAT *_Mar_2012.xls")
Application.ScreenUpdating = False
Sheets("Detail1").Range("A3:L2000").ClearContents
While wbName <> ""
If wbName <> "MonthlyVAT_Mar_2012.xls" Then
Workbooks.Open ActiveWorkbook.Path & "\" & wbName
Workbooks(wbName).Activate
Workbooks(wbName).Sheets("MONTHLY_VAT").Select: Cells(1, 1).Select
Selection.CurrentRegion.Select
t = Selection.Rows.Count
Selection.Offset(3).Resize(t - 1).Select
Selection.Copy
Windows(wbName).Visible = False
Windows("MonthlyVAT_Mar_2012.xls").Activate
Sheets("Detail1").Select
lRow = Range("L2000").End(xlUp).Row
Cells(lRow + 1, 1).Select
ActiveSheet.Paste
Application.DisplayAlerts = False
Workbooks(wbName).Close
End If
wbName = Dir
Wend
Cells(1, 1).Select
Application.ScreenUpdating = True
With ActiveSheet
.AutoFilterMode = False
.Range("A2:M2").AutoFilter
End With
ban co the tham khao code duoi day rui modify thanh cai ban can nha:
Dim t As Integer, m As Integer
Dim SrcRng As Range, Arr, i As Long, n As Long
FolderName = ActiveWorkbook.Path
wbName = Dir(FolderName & "\" & "VAT *_Mar_2012.xls")
Application.ScreenUpdating = False
Sheets("Detail1").Range("A3:L2000").ClearContents
While wbName <> ""
If wbName <> "MonthlyVAT_Mar_2012.xls" Then
Workbooks.Open ActiveWorkbook.Path & "\" & wbName
Workbooks(wbName).Activate
Workbooks(wbName).Sheets("MONTHLY_VAT").Select: Cells(1, 1).Select
Selection.CurrentRegion.Select
t = Selection.Rows.Count
Selection.Offset(3).Resize(t - 1).Select
Selection.Copy
Windows(wbName).Visible = False
Windows("MonthlyVAT_Mar_2012.xls").Activate
Sheets("Detail1").Select
lRow = Range("L2000").End(xlUp).Row
Cells(lRow + 1, 1).Select
ActiveSheet.Paste
Application.DisplayAlerts = False
Workbooks(wbName).Close
End If
wbName = Dir
Wend
Cells(1, 1).Select
Application.ScreenUpdating = True
With ActiveSheet
.AutoFilterMode = False
.Range("A2:M2").AutoFilter
End With
Chào các anh.
( Còn có ai vào topic này nữa ko ạ?
)
Em đã thử dòng lệnh này :
Vậy là sao, em cũng ko hiểu nổi, các anh có thể giải thích giúp xem em bị sai chỗ nào ko
Còn khi em dùng dòng lệnh này:
Mong các anh giúp, cảm ơn các anh nhiều ( mấy năm rồi em mới dùng lại excel nên quên hết rồi)
( Còn có ai vào topic này nữa ko ạ?
)Em đã thử dòng lệnh này :
nhưng kết quả là nó chỉ gộp có 1 sheet, còn những sheet khác nó ko gộp
Vậy là sao, em cũng ko hiểu nổi, các anh có thể giải thích giúp xem em bị sai chỗ nào ko
Còn khi em dùng dòng lệnh này:
thì nó gộp được vài sheet trong file và dữ liệu ko đầy đủ.
Mong các anh giúp, cảm ơn các anh nhiều ( mấy năm rồi em mới dùng lại excel nên quên hết rồi)
leepro
Sơ cấp
Tình hình là em có một file như vậy, mà e thì không có rành excel cho lắm!
Nhờ mấy bấy cô, mấy bác giúp em gộp lại thành một sheet được không ạ!
Tại mỗi lần ông sếp hỏi mua cái gì, bao nhiêu tiên tìm rất vất vả, mà em lại ko biết làm sao.
Mong anh, chị chỉ giúp em kết hợp lại sao để sau này mình chỉ cấn bấm là ra thôi.
Em xin cám ơn nhiều ạ!
Nhờ mấy bấy cô, mấy bác giúp em gộp lại thành một sheet được không ạ!
Tại mỗi lần ông sếp hỏi mua cái gì, bao nhiêu tiên tìm rất vất vả, mà em lại ko biết làm sao.
Mong anh, chị chỉ giúp em kết hợp lại sao để sau này mình chỉ cấn bấm là ra thôi.
Em xin cám ơn nhiều ạ!
phongky2013
Trung cấp
Em chào các cao thủ Excel, vấn đề này em đã tìm hiểu được một số bài trên diễn đàn nhưng chưa thực hiện được. Em xin nhờ các cao thủ giúp đỡ.Yêu cầu của em như sau:
Em có 4 Sheets gồm: S1, S2, S3, S4 gồm các cột dữ liệu: STT, Họ và tên, Năm Sinh, Nam, Nữ, ... Bây giờ em làm một Sheet tổng hợp(tên là TH1 cũng có một số cột dữ liệu tương ứng) ở Sheet này sẽ tự động lấy tất các dòng dữ liệu ở 4 Sheets trên. Các bản ghi đưa sang Sheet TH1 đảm bảo không được đánh dấu X và hai cột: Ghi chú 1 và ghi chú 2.
File mẫu em đã đính kèm vào cùng bài viết.
Em có 4 Sheets gồm: S1, S2, S3, S4 gồm các cột dữ liệu: STT, Họ và tên, Năm Sinh, Nam, Nữ, ... Bây giờ em làm một Sheet tổng hợp(tên là TH1 cũng có một số cột dữ liệu tương ứng) ở Sheet này sẽ tự động lấy tất các dòng dữ liệu ở 4 Sheets trên. Các bản ghi đưa sang Sheet TH1 đảm bảo không được đánh dấu X và hai cột: Ghi chú 1 và ghi chú 2.
File mẫu em đã đính kèm vào cùng bài viết.
thuyvietduong
Cao cấp
sao ko làm ở 1 sheet rồi lọc dữ liệu đơn giản hơn