Xin nhờ mọi người giúp đỡ . Làm sao để tìm dòng cuối và công thức tự động fill có điều kiện ở cột D ạ

[thierry henry]

Ở sheet3 , em có bảng tính với các cột A2 , B2 , C2 . Em đã viết được code để tìm dòng cuối ở ô A2 , sau đó tự nhảy giá trị vào ô D2 = A2 + B2 -C2 . Nhưng làm sao để nó auto fill có đều kiện là nếu ở các ô A2 , B2 , C2 có giá trị thì tự điền giá trị vào ô D2 tương ứng công thức D2 = A2 + B2 -C2 . còn nếu ở các ô A2 , B2 , C2 không có giá trị thì không điền gì hết . Xin cảm ơn

 

[BuiQuangThuan]

Ở sheet3 , em có bảng tính với các cột A2 , B2 , C2 . Em đã viết được code để tìm dòng cuối ở ô A2 , sau đó tự nhảy giá trị vào ô D2 = A2 + B2 -C2 . Nhưng làm sao để nó auto fill có đều kiện là nếu ở các ô A2 , B2 , C2 có giá trị thì tự điền giá trị vào ô D2 tương ứng công thức D2 = A2 + B2 -C2 . còn nếu ở các ô A2 , B2 , C2 không có giá trị thì không điền gì hết . Xin cảm ơn

Chẳng biết đúng ý bạn không nữa

Sub Linhtinh()
    Sheet3.Cells(2, "D").FormulaR1C1 = "=IF([@Column1]<>"""",[@Column1]+[@Column2]-[@Column3],"""")"
   Sheet3.Range("D2:D" & Sheet3.Range("D" & Rows.Count).End(3).Row).Value = Sheet3.Range("D2:D" & Sheet3.Range("D" & Rows.Count).End(3).Row).Value
End Sub

 

[thierry henry]

Chẳng biết đúng ý bạn không nữa

Sub Linhtinh()
    Sheet3.Cells(2, "D").FormulaR1C1 = "=IF([@Column1]<>"""",[@Column1]+[@Column2]-[@Column3],"""")"
   Sheet3.Range("D2:D" & Sheet3.Range("D" & Rows.Count).End(3).Row).Value = Sheet3.Range("D2:D" & Sheet3.Range("D" & Rows.Count).End(3).Row).Value
End Sub

Thanks bạn nhiều . Ý mình là sau khi nhấn button , code tự fill vào D2 giá trị bằng D2 = A2 + B2 -C2 rồ tuần tự fill đến dòng cuối của cột D . Trong file mới mình record bằng macro . nhưng làm vậy thì file sẽ rất nặng , chạy ì ạch vì chứa quá nhiều công thức . mình muốn có một công thức khác giúp code chạy nhanh hơn và file nhẹ hơn