Cộng công thức

[yeudoi]

Nhờ mọi người xem giúp đỡ làm cách nào để hiển thị công thức khi nhập số liệu. Mình có gửi file đính kèm đã giải thích trong đó. Xin cảm ơn trước nha!

 

[nvson]

Bạn nhấn phải chuột vào Sheet1, chọn View code rồi thêm code sau:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 4 And Len(Target.Text) = 0 Then Target.Offset(1, 0).Clear
If Target.Row = 4 And Len(Target.Text) >= 1 Then
     Target.Offset(1, 0).Value = "=thang1"
End If
End Sub

Như vậy thì chỉ khi bạn thay đổi giá trị ở hàng thứ 4 của sheet1 thì nó mới chạy. Nếu bạn muốn làm điều này cho tất cả các sheet thì nên viết thành 1 Sub, code của mỗi sheet khi thay đổi giá trị sẽ gọi đến Sub bạn đã tạo.

 

[yeudoi]

Bạn sơn ah trước hết mình xin cảm ơn bạn nha! nhưng mình muốn nhờ bạn xem lại giúp mình đó là theo code bạn là chỉ dùng cho hàng = 4, nhưng file mình gửi là muốn chạy các dòng từ dòng 4,6,8,...,50,... . Vậy mình nhờ bạn thêm một lần nữa nha.

 

[nvson]

Vậy bạn thay bằng đoạn code này nhé:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 4 And (Target.Row - CInt(Target.Row / 2) * 2) = 0 And Len(Target.Text) = 0 Then Target.Offset(1, 0).Clear
If Target.Row >= 4 And (Target.Row - CInt(Target.Row / 2) * 2) = 0 And Len(Target.Text) >= 1 Then
     Target.Offset(1, 0).Value = "=thang1"
End If
End Sub

Nếu bạn muốn giới hạn dưới là chỉ làm việc đến dòng 50 thôi thì thêm vào điều kiện:

 and Target.Row <= 50

trong mỗi câu lệnh If