Nhờ các anh chị xem code giúp em !!! (2 người xem)

[dthanhdl]

Em mới tập viết code thôi ạ, file là em xin của các anh chị khác rồi về tập sửa lại theo ý của mình.

Vấn đề của em là: em có bảng dữ liệu gồm nhiều Strip, mỗi Strip có giá trị P, V2,M3. Bây giờ em lọc giá trị để lấy M3max, M3min, V2max (riêng V2 max là lấy giá trị max_ko xét dấu), sẽ có 3 cặp:
M3max - V2tương.ứng - Ptương.ứng
M3min - V2tương.ứng - Ptương.ứng
V2max - V2tương.ứng - M3tương.ứng
em đã trình bày trong file.

Cách làm của em: với 1 strip thì copy strip đó ra 1 vùng riêng rồi lọc dữ liệu bằng công thức định sẵn, sau đó lấy giá trị bằng cách gán cell.

Cho em hỏi mấy câu sau ạ.
Thứ 1: tại sao dung lượng file của em rất lớn (10MB)
Thứ 2: code của em bị sai cho nào mà nó ko chạy.

link mới

http://www.mediafire.com/download/dd1qqfu9xl6m80o/HOI.xls

link cũ ---> đã sửa được

http://www.mediafire.com/download/j94ndjim4jm02um/HOI.rar

Em xin cám ơn sự giúp đỡ của các anh chị.

 

[vu_tuan_manh_linh]

1. File dung lượng lớn vì bạn để format đến tận dòng 65536. Xóa dòng đi là được.
2. bạn sửa code này Sheets("ETABS").Cells(i, "AI") = Cells(i, "I") thành thế này thử xem có được không Sheets("ETABS").Cells(i, "AI") = Sheets("ETABS").Cells(i, "I")
Tôi thường dùng chỉ số cột là số chứ không dùng chữ như bạn, nếu dùng chữ thì tôi dùng range(). chưa thử nhưng không biết có tác dụng như nhau không.

 

[Kiều Mạnh]

Em mới tập viết code thôi ạ, file là em xin của các anh chị khác rồi về tập sửa lại theo ý của mình.

Vấn đề của em là: em có bảng dữ liệu gồm nhiều Strip, mỗi Strip có giá trị P, V2,M3. Bây giờ em lọc giá trị để lấy M3max, M3min, V2max (riêng V2 max là lấy giá trị max_ko xét dấu), sẽ có 3 cặp:
M3max - V2tương.ứng - Ptương.ứng
M3min - V2tương.ứng - Ptương.ứng
V2max - V2tương.ứng - M3tương.ứng
em đã trình bày trong file.

Cách làm của em: với 1 strip thì copy strip đó ra 1 vùng riêng rồi lọc dữ liệu bằng công thức định sẵn, sau đó lấy giá trị bằng cách gán cell.

Cho em hỏi mấy câu sau ạ.
Thứ 1: tại sao dung lượng file của em rất lớn (10MB)
Thứ 2: code của em bị sai cho nào mà nó ko chạy.

http://www.mediafire.com/download/j94ndjim4jm02um/HOI.rar

Em xin cám ơn sự giúp đỡ của các anh chị.

1/ File To là do bạn Format Cellss tuỳ tiện
2/ code của bạn dài quá mình ngại coi thông cảm nha nêu rãnh mình coi lại cho
3/ xem file nha

 

[dthanhdl]

Vấn đề 1 đã giải quyết xong, em còn thắc mắc 2 nữa ạ. Cám ơn các anh.

Em up lại file

 

[ndu96081631]

[h=2]Nhờ các anh chị xem code giúp em !!![/h]

Đã đăng bài mới thì không thể đặt tiêu đề chung chung thế này được!
Nếu không nghĩ ra được tiêu đề gì phù hợp, có thể vào đây hỏi:
http://www.giaiphapexcel.com/forum/...ác-thành-viên-mới-học-lập-trình)/page31