Nhờ sửa code Insert dòng có chứa công thức (2 người xem)

[Miccpro]

Mình đã đọc bài này http://www.giaiphapexcel.com/forum/showthread.php?15852-VBA-copy-công-thức-khi-thêm-dòng và thấy cách của Thầy Phạm Duy Long rất hay. Tuy nhiên việc sử dụng kích đúp chuột để thêm dòng hơi bất tiện. Mình muốn bỏ lệnh kick đúp chuột đi và chỉ cần phải chuột rồi Insert thì lệnh vẫn được thực hiện, hoặc thêm vào phải chuột một Macro "chèn thêm dòng" hiện box "số dòng cần thêm" => đánh số dòng cần thêm thì sẽ thêm số dòng tương ứng và công thức vẫn giữ nguyên (cái này hơi tham ạ ).
Mong các bác cao thủ giúp đỡ, cảm ơn nhiều ạ

 

[Miccpro]

Tôi thì thấy bình thường, còn bạn chỗ nào thấy chưa được thì chụp hình hoặc gửi File lên đây tôi xem.

Cảm ơn bác đã quan tâm, ý của em như đầu bài, tức là insert hàng và copy luôn công thức hàng trên nó hoặc dưới nó, ví dụ file em gửi dưới đây là cột J chẳng hạn

 

[phulien1902]

Cảm ơn bác đã quan tâm, ý của em như đầu bài, tức là insert hàng và copy luôn công thức hàng trên nó hoặc dưới nó, ví dụ file em gửi dưới đây là cột J chẳng hạn

File bài #1 làm gì có cột J ?
Đây là File mới do bạn phát sinh thêm.

 

[phulien1902]

Cảm ơn bác đã quan tâm, ý của em như đầu bài, tức là insert hàng và copy luôn công thức hàng trên nó hoặc dưới nó, ví dụ file em gửi dưới đây là cột J chẳng hạn

Bạn thêm dòng dưới đây vào là OK ngay:

Range("J2:J" & LastRow).FillDown

 

[Miccpro]

Bác siêu thật, nhưng em chỉ ví dụ cột J thôi, nếu cột bất kỳ hoặc 1 hàng có nhiều ô có công thức thì thế nào bác. Híc, em đòi hỏi nhiều quá, thanks bác

 

[phulien1902]

Bác siêu thật, nhưng em chỉ ví dụ cột J thôi, nếu cột bất kỳ hoặc 1 hàng có nhiều ô có công thức thì thế nào bác. Híc, em đòi hỏi nhiều quá, thanks bác

Chỉ có File mới có thể có câu trả lời chính xác được bạn ah.
Có lẽ đã muộn rồi, mình cũng phải đi nghỉ, mai còn phải đi cày,hiii. Chúc bạn ngủ ngon!

 

[giaiphap]

Bác siêu thật, nhưng em chỉ ví dụ cột J thôi, nếu cột bất kỳ hoặc 1 hàng có nhiều ô có công thức thì thế nào bác. Híc, em đòi hỏi nhiều quá, thanks bác

Thì cũng thực hiện tương tự bác. Vì dụ cần copy công thức các cột từ S9:V9 đến S18:V18 thì code thế này đây:

Range("s9:v18").FillDown

 

[Miccpro]

Thì cũng thực hiện tương tự bác. Vì dụ cần copy công thức các cột từ S9:V9 đến S18:V18 thì code thế này đây:

Range("s9:v18").FillDown

Cảm ơn bác, em thử mà không được bác ạ

 

[phulien1902]

Bạn muốn FillDown công thức từ cột S tới cột V bạn thêm dòng này nè:

Range("S1:V1" & LastRow).FillDown

 

[Miccpro]

Em gửi file em đang làm viêc bác Phulien giúp em cái nha. Insert hàng có công thức. Cảm ơn bác