Nhờ code lọc dữ liệu file excel

[phongtran86]

Em có file dữ liệu như trên. Nhờ giúp đỡ code với mỗi tên tầng ở cột A "story1" tương ứng với tên côt C1 ở cột B lọc 2 dòng giá trị AS22 max và As 33 max ở cột N và cột O. Nghĩa là mỗi phần tử (story 1 and C1) lấy 2 dòng giá trị tương ứng As 22 và As 33 max.
Dữ liệu sau lọc lưu đè lên sheet gốc. Cảm ơn nhiều

 

[quocphuoc88]

bạn nói

Nghĩa là mỗi phần tử (story 1 and C1) lấy 2 dòng giá trị tương ứng As 22 và As 33 max.

mà trong file của bạn thì cặp story 1 và C1 nó nhiều vô cùng vậy thì lấy giá trị nào ở cột N và O ???

 

[phongtran86]

Xin lỗi vì nói không rõ ràng.
Mình đã đính kèm file ví dụ khí lọc được.
với mỗi (storyi và phần tử Cx) nào đó thì sẽ cho 2 dòng tương ứng:
-AS22 max và các giá trị tương ứng cảu dòng
-As33 max và các giá trị tương ứng cảu dòng

 

[quocphuoc88]

1. Kết quả trong file bạn gửi lại thì Max cột 5 mình có thấy cái nào là 5,2 đâu ( max nó phải là 6,39 chứ nhỉ )
2. Bạn nói là lọc kết quả đè lên dữ liệu gốc. Nếu thế :
- biết lấy cái gì lọc ( cặp Story và Cx nào )
- Lọc xong => đè lên dữ liệu gốc => muốn lọc cái khác thì dữ liệu gốc đâu mà lọc nữa

 

[phongtran86]

mình fillter nhầm. 6.39 mới chính xác. Mình muốn ghi vào sheet đấy luôn. Nếu không được lưu sang sheet khác cũng được. nhưng phần đầu từ dòng 1 đến dòng 13 phải copy sang sheet mới. Mong bạn giúp đỡ

 

[quocphuoc88]

Mình làm trong sheet Sau_Loc. Bạn coi thử ok chưa nhé ( Nếu ok rồi thì chỗ chọn Tầng và Cột có thể dùng Datavalidation để chọn cho nhanh )

 

[phongtran86]

xl. ý mình là nó thành 1 bảng như bảng thuyết minh mà hiện tất cả các phần tử(tầng i cột j) với giá trị a22 và a33 thành nhiều dòng để in thuyết minh luôn chứ không phải lọc từng phần tử. Lọc từng phần tử thi mình dùng data fillter rồi

 

[quocphuoc88]

xl. ý mình là nó thành 1 bảng như bảng thuyết minh mà hiện tất cả các phần tử(tầng i cột j) với giá trị a22 và a33 thành nhiều dòng để in thuyết minh luôn chứ không phải lọc từng phần tử. Lọc từng phần tử thi mình dùng data fillter rồi

Đọc xong không hiểu bạn muốn gì luôn và mình .... bó tay !

 

[phongtran86]

Đọc xong không hiểu bạn muốn gì luôn và mình .... bó tay !

srr vì mình diễn đạt chưa rõ ý định
ý mình nhấn 1 lần nút lọc là nó tự lọc tất cả phần tử luôn thành danh sách. chứ nhập thủ công tên phần tử với tầng thì lâu. Bạn cố gắng giúp mình. Danh sách sẽ rất dài kiểu như ảnh này
Sẽ có trường hợp As M2 với cột As M3 có nhiều giá trị bằng nhau =max thì bạn cho mình nó hiển thép max ấy cùng dòng có cột I (dòng Abs(N) max) hoặc hiển thị 1 dòng nào bất kì trong các dòng có As max trên cũng dc. Thank. Bạn nhiệt tình quá

 

[quocphuoc88]

Bạn thử xem đúng ý chưa nha !

 

[phongtran86]

Cảm ơn bạn nhiều. Quá là Ok rồi. Hình như nó hiện giá trị max đầu tiên As2, As3 mà nó gặp phải. với bạn đánh dậm cái chữ As2 với As3 max được ko. Bác thêm chút vẽ boder xung quanh ô sau khi lọc được không. Nó hiện boder mỗi 2 ô đầu. Ở trong code em xem có dòng
With Sheet2
If .AutoFilterMode Then .AutoFilterMode = False
endr = .Range("A65500").End(xlUp).Row
If endr > 14 Then .Range("A14:R" & endr).ClearContents
.Range("A14").Resize(j * 2, 18).Value = KQ
Nếu em đổi sheet2 thành LTP thì nó lọc luôn trên sheet 1 (ltp) luôn hả anh. Có ảnh hưởng đến dữ liệu lọc không. vì lọc và ghi ngay tại sheet đó? Mình muốn chỉ định luôn tên sheet chuẩn khi lọc, Để sheet 1 sheet 2 sợ nhầm lẫn.
Với lại bạn chỉnh thứ tự sau khi lọc cột nó là c1, c2, c3-->c10 được không. Nó hiện c1, c10, c11---->c2, c20. hơi bất tiện khi xem. Nếu khó thì thôi
-Với bác giúp thêm em lọc lệch tâm xiên đơn gian hơn ở sheet LTX chỉ cần cột N có Ass t max thì hiện dòng đấy.--> Mỗi phần tử storyi và cj cho 1 dòng giá trí Ass tổng max. cho nó thanh 2 thủ tục giúp em để em nhúng để lọc thành 2 sheet. Một lần nữa cảm ơn bạn

 

[quocphuoc88]

bạn xem lại đúng chưa nhé !

 

[phongtran86]

Mình copy lại câu hỏi: With Sheet2
If .AutoFilterMode Then .AutoFilterMode = False
endr = .Range("A65500").End(xlUp).Row
If endr > 14 Then .Range("A14:R" & endr).ClearContents
.Range("A14").Resize(j * 2, 18).Value = KQ
Nếu em đổi sheet2 thành sheets("ltp") thì nó lọc luôn trên sheet 1 (ltp) luôn hả anh. Có ảnh hưởng đến dữ liệu lọc không? vì lọc và ghi ngay tại sheet đó? Mình muốn chỉ định luôn tên sheet chuẩn khi lọc, Để sheet 1 sheet 2 sợ nhầm lẫn. và khi lọc nó vẫn để lại đường boder cũ của sheet ltp cũ. chỉnh giúp mình xóa boder cũ rồi paste lại Với lại cho mình phần làm tròn cột I đến cột Q lấy 3 số thập phân sau dấu phẩy thôi. Thanks
-Với bác giúp thêm em lọc lệch tâm xiên đơn gian hơn ở sheet LTX chỉ cần cột N có Ass t max thì hiện dòng đấy.--> Mỗi phần tử storyi và cj cho 1 dòng giá trí Ass tổng max. với yêu cầu như LT phẳng cho nó thanh 2 thủ tục giúp em để em nhúng để lọc thành 2 sheet. Một lần nữa cảm ơn bạn
Do không đính được kêtn kết nên mình tải lên https://docs.google.com bạn xem giúp phần lệch tâm xiên nữa nhé
https://docs.google.com/spreadsheet...0MNPzexaxb6ldcEivXa-Nd2ts/edit#gid=1078802989

 

[quocphuoc88]

1. Bạn nên ghi từng ý ra để mọi người dể theo dõi nội dung và làm giúp bạn. Chứ nhìn vào nguyên 1 đống nội dung bạn ghi ... dễ nản !
2. Việc thay Sheet: Nếu bạn thay sheet thì nó sau khi lọc nó sẽ chép đè luôn lên dữ liệu gốc => điều này mình đã góp ý phía trên là sẽ mất dữ liệu gốc thì khó cho việc trích lọc sau này . Còn nếu bạn thích thì cứ việc thay !
3. Làm tròn số : Bạn chỉ việc chọn các cột cần Format rồi format number thôi . Cái này mình nghỉ bạn làm được !
4. Lệch Tâm Xuyên : Để mình xem qua thử và update lại file sau !
5. Update file có lệch tâm xuyên. Bạn xem thử ok chưa !

 

[phongtran86]

1.Cảm ơn bạn góp ý
2. việc mình muốn ghi đè nên sheet cũ vì mình có hàm chạy để tạo ra sheet LTP với LTX nên muốn vậy. Mình tạo thấy được Nhưng nó vẫn hiện nét boder cũ của sheet trước lọc. Bạn chỉnh giúp cho nó xóa boder cũ đi với rồi paste tạo boder sau khi lọc, để mình lọc trên sheet gốc luôn. Thanks
3. Làm tròn số : Fomat bình thường mình biết, nhưng muốn nó trong hàm VBA, cái này chắc dễ nhưng mình gà. Bác tiện giúp cho
5. Update file có lệch tâm xuyên: Ok rồi bạn. Bạn thêm cho mình phần boder với chỉnh làm tròn từ cột I với cột N như phần lệch tâm phẳng để mình lọc trên sheet gốc luôn.
Nhờ bạn nhiều quá. Ngại

 

[phongtran86]

Up cho bác vào giúp em nốt nào

 

[quoctoanhud4]

Mình cũng rất quan tâm đến vụ code dò tìm này nhưng gà quá không làm được. Có bác nào rãnh giúp tôi với. Đa tạ rất rất nhiều (Cũng muốn tạo cái file để phục vụ công vc nhưng trình về excel kém quá mới lò dò làm việc với Hàm được thôi chứ code mù tịt, nhưng hàm nhiều khi khó làm và lỗi tùm lung, chậm)

 

[be_09]

Mình cũng rất quan tâm đến vụ code dò tìm này nhưng gà quá không làm được. Có bác nào rãnh giúp tôi với. Đa tạ rất rất nhiều (Cũng muốn tạo cái file để phục vụ công vc nhưng trình về excel kém quá mới lò dò làm việc với Hàm được thôi chứ code mù tịt, nhưng hàm nhiều khi khó làm và lỗi tùm lung, chậm)

Góp ý cho bạn:
1/ Bạn đăng bài không cùng chủ đề và đăng nhiều nơi có thể sẽ vi phạm nội quy, bài 46 của bạn ở Link kia:
Giúp mình code VBA lọc dữ liệu có điều kiện và tổng hợp
2/ Bạn nên mở riêng 1 Topic cho mình để mọi thành viên trả lời cho bạn được tập trung hơn, tiêu đề bài viết có thể là "Giúp code cho File quản lý công trình". Nội dung bên dưới cần nhờ mọi người thiết kế lại cho phù hợp (nhìn thấy rối) đồng thời diễn giải cụ thể, rõ ràng cái mình muốn làm.

 

[quoctoanhud4]

Góp ý cho bạn:
1/ Bạn đăng bài không cùng chủ đề và đăng nhiều nơi có thể sẽ vi phạm nội quy, bài 46 của bạn ở Link kia:
Giúp mình code VBA lọc dữ liệu có điều kiện và tổng hợp
2/ Bạn nên mở riêng 1 Topic cho mình để mọi thành viên trả lời cho bạn được tập trung hơn, tiêu đề bài viết có thể là "Giúp code cho File quản lý công trình". Nội dung bên dưới cần nhờ thiết kế lại File đồng thời diễn giải cụ thể, rõ ràng cái mình muốn làm.
Cám ơn bạn mình rút kinh nghiệm