Hiển thị giá trị cũ và mới trong công thức Sum bằng VBA

[XuanHtt]

Chào các anh/chị,

Em có nhận được yêu cầu của 1 bạn trong nhóm về việc code VBA như sau: giả sử tại ô A1 đang có giá trị là 100, ô B1 có giá trị là 200, sau khi bấm nút cập nhật, giá trị ở ô A1 sẽ bằng A1 + B1, tuy nhiên, trong ô A1 phải hiển thị được công thức là A1 = 100 + 200 chứ không phải chỉ thể hiện giá trị tổng 300.

Em thật sự bị bí lù với yêu cầu này, nhờ các anh/chị cao nhân giúp dùm em ạ.

Em cám ơn nhiều,

 

[Phuocam]

Chào các anh/chị,

Em có nhận được yêu cầu của 1 bạn trong nhóm về việc code VBA như sau: giả sử tại ô A1 đang có giá trị là 100, ô B1 có giá trị là 200, sau khi bấm nút cập nhật, giá trị ở ô A1 sẽ bằng A1 + B1, tuy nhiên, trong ô A1 phải hiển thị được công thức là A1 = 100 + 200 chứ không phải chỉ thể hiện giá trị tổng 300.

Em thật sự bị bí lù với yêu cầu này, nhờ các anh/chị cao nhân giúp dùm em ạ.

Em cám ơn nhiều,

Nếu nhấn lần nữa thì kết quả bạn muốn là gì?

.

 

[XuanHtt]

Nếu nhấn lần nữa thì kết quả bạn muốn là gì?

.

Nhấn lần nữa, nếu giá trị cột B1 không thay đổi thì kết quả A1 = 100 + 200 + 200 nha. Thực ra yêu cầu chi tiết sẽ cần lấy giá trị từ file khác để cộng dồn vào, tuy nhiên, mình nghĩ nếu giải quyết được phần giữ được giá trị cũ và hiển thị tiếp giá trị mới trong công thức sum thì phần lấy dữ liệu từ đâu, mình có thể xử lý được ạ.

 

[Phuocam]

Nhấn lần nữa, nếu giá trị cột B1 không thay đổi thì kết quả A1 = 100 + 200 + 200 nha. Thực ra yêu cầu chi tiết sẽ cần lấy giá trị từ file khác để cộng dồn vào, tuy nhiên, mình nghĩ nếu giải quyết được phần giữ được giá trị cũ và hiển thị tiếp giá trị mới trong công thức sum thì phần lấy dữ liệu từ đâu, mình có thể xử lý được ạ.

Bạn thử dùng code sau:

Public Sub CongDon()
If Range("A1").HasFormula = True Then
    Range("A1").Value = Range("A1").Formula & "+" & Range("B1").Value
Else
    Range("A1").Value = "=" & Range("A1").Value & "+" & Range("B1").Value
End If
End Sub

 

[XuanHtt]

Bạn thử dùng code sau:

Public Sub CongDon()
If Range("A1").HasFormula = True Then
    Range("A1").Value = Range("A1").Formula & "+" & Range("B1").Value
Else
    Range("A1").Value = "=" & Range("A1").Value & "+" & Range("B1").Value
End If
End Sub

Code chạy xuất sắc luôn ạ. Cảm ơn bạn rất nhiều <3