tự động nhảy công thức khi thêm dữ liệu bằng VBA

[mraleno]

Chào mọi người
em đang có 1 thắc mắc nhỏ mong mọi người giải đáp giùm em
em có dùng VBA để tự động điền công thức vào excel sau đó chuyển nó lại thành giá trị số để đỡ nặng file (vì file của em tới hơn 300 000 dòng và được thêm vào mỗi tháng)
Em đang bí ở chỗ làm thế nào mà mỗi tháng em thêm dữ liệu vào thì dùng code VBA nào để tự động điền công thức vào dòng mới thêm và chuyển nó thành giá trị số
Em xin cảm ơn

 

[mraleno]

haizza chắc câu hỏi này của mình không có lời giải rồi. Cảm ơn các bạn

 

[VetMini]

haizza chắc câu hỏi này của mình không có lời giải rồi. Cảm ơn các bạn

haizza là cái gì vậy?
lời giải thì có nhưng tôi lười làm việc với dữ liệu khủng lắm. Cứ nghe đến từ "trăm ngàn dòng" là không muốn dây dưa vào.

 

[thanhphuongvip]

Bạn xem thử nhé!
Mình làm như công thức của bạn ở các dòng trên.

Code sự kiện ở sheet:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("A2:E1000000")) Is Nothing And Target.Count = 1 Then

        Cells(Target.Row, 6) = WorksheetFunction.Sum(Range("A" & Target.Row & ":" & "B" & Target.Row))
        Cells(Target.Row, 7) = WorksheetFunction.Average(Range("A" & Target.Row & ":" & "D" & Target.Row))
End If


End Sub

 

[mraleno]

cảm ơn bạn mình thấy dữ liệu của mình quá lớn nên đã chia nhỏ nó ra xử lý rồi.
Nên mình không cần tự động cập nhật công thức nữa.
Nhưng code của bạn cũng rất hay chỉ có điều nếu sử dụng lệnh copy thì nó sẽ không tự động nữa.
Dù sao cũng cảm ơn bạn