Nhờ viết code để tự động điền công thức khi thêm dòng. (2 người xem)

[TDHien59]

Tôi có đọc vài bài về cách để Excel tự động thêm công thức mỗi khi chèn thêm dòng mới. Chung quy lại các bạn đều đưa ra 2 phương án là:

- Create list hoặc Create table
- Tạo code.

Tôi đang dùng office 2010 đã áp dụng thành công phương án Create Table tuy nhiên hơi khó căn chỉnh định dạng đặc biệt là các ô bị trộn (Merge). Còn việc dùng code thì tôi chưa thành công.
Nay tôi muốn các bạn giúp viết code cho việc này.
Xin cảm ơn trước.

 

[quachcongluanadong]

nhờ viết công thức hoặc vba

Nhờ các anh chị giúp em giải quyết bài toán này ( em có kèm file)
Em có dùng hàm if(and( nhưng chỉ dùng được có 7 lần….. vì em là thanh viên mới nên không biết tìm bài giải của các anh chị ở đâu trên diễn đàn nữa, vui lòng gửi bài giúp em qua mail :quachcongluanadong@gmail.com ( và chỉ giúp em cách tìm bài được đăng ở đâu luôn các anh chị nhé…..để lần sau tự em tìm. Thanks!

Nếu A6> 0 thì AG6=4 nếu A6<1 thì AG6=5
Nếu A6>0, B6<1thì AH6=5, nếu A6<1,B6<1 thì AH6=7, nếu B6>0 thì AH6=4
Nếu A6<1,B6<1,C6<1 thì AI6=10, nếu A6>0,B6<1,C6<1 thì AI6=7, nếu B6>0,C6<1 thì AI6=5, nếu C6>0 thi AI6=4
Tương tự ……
Nếu A6<1,B6<1,C6<1……..AD6<1 thì Bj6=3000, nếu A6>0,B6<1,C6<1……..AD6<1 thì BJ6=2900, nếu B6>0,C6<1,D6<1……..AD6<1 thì BJ6=2700,nếu C6>0,D6<1,E6<1,F6<1……..AD6<1 thì BJ6=2500,
neu D6>0,E6<1,F6<1G6<1……..AD6<1 thì BJ6=2000, điều kiện tương tự như vậy đến khi AD>0 thì BJ6=4.
[FONT=&quot]Nếu từ A6 đến AE6 đều <1 thì AG6=4 và lập lại điều kiện như trên[/FONT]