Hàm excel tự cộng chính nó?

[lenhi96]

Em chào mọi người, em đang có 1 bài toán như này mong mọi người giúp đỡ ạ.

1​

2​

Bài toán: khi thay đổi giá trị ở ô số 2 thì ô số 1 sẽ trả về kết quả bằng Giá trị của ô số 1 + giá trị của ô số 2
ví dụ: Lần 1: ô số 1 giá trị 1, ô số 2 có giá trị 2, ==> kết quả ô số 1 sẽ bằng : 1+2=3
Lần 2: thay giá trị ô số 2 bằng 10 ===> kết quả ô số 1 bằng : 3+10 =13
....

 

[Let'GâuGâu]

Em chào mọi người, em đang có 1 bài toán như này mong mọi người giúp đỡ ạ.

1​

2​

Bài toán: khi thay đổi giá trị ở ô số 2 thì ô số 1 sẽ trả về kết quả bằng Giá trị của ô số 1 + giá trị của ô số 2
ví dụ: Lần 1: ô số 1 giá trị 1, ô số 2 có giá trị 2, ==> kết quả ô số 1 sẽ bằng : 1+2=3
Lần 2: thay giá trị ô số 2 bằng 10 ===> kết quả ô số 1 bằng : 3+10 =13
....

làm gì dược......sẻ bị lổi tham số vòng
làm bằng code vba thì được

 

[lenhi96]

làm gì dược......sẻ bị lổi tham số vòng
làm bằng code vba thì được

vâng, em đang nhờ mọi ng giúp đỡ em cái này ạ, dùng gì cũng đc ạ

 

[phulien1902]

Em chào mọi người, em đang có 1 bài toán như này mong mọi người giúp đỡ ạ.

1​

2​

Bài toán: khi thay đổi giá trị ở ô số 2 thì ô số 1 sẽ trả về kết quả bằng Giá trị của ô số 1 + giá trị của ô số 2
ví dụ: Lần 1: ô số 1 giá trị 1, ô số 2 có giá trị 2, ==> kết quả ô số 1 sẽ bằng : 1+2=3
Lần 2: thay giá trị ô số 2 bằng 10 ===> kết quả ô số 1 bằng : 3+10 =13
....

Giả sử A1=ô số 1, A2= ô số 2, bạn thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        Target.Offset(-1) = Target.Offset(-1) + Target
    End If
End Sub

 

[lenhi96]

Giả sử A1=ô số 1, A2= ô số 2, bạn thử:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        Target.Offset(-1) = Target.Offset(-1) + Target
    End If
End Sub

Hic, em cảm ơn ạ, nhưng em k biết dùng code này vào đâu ạ?

 

[phulien1902]

Hic, em cảm ơn ạ, nhưng em k biết dùng code này vào đâu ạ?

Bạn làm như sau:
1. Nhấn phím Alt +F11
2. Bạn Copy đoạn Code trên và dán vào cửa sổ VBA của Sheet1
3. Ghi lai.
4. Quay lại bảng tính và thay đổi các giá trị trong 2 ô A1&A2.

 

[lenhi96]

Bạn làm như sau:
1. Nhấn phím Alt +F11
2. Bạn Copy đoạn Code trên và dán vào cửa sổ VBA của Sheet1
3. Ghi lai.
4. Quay lại bảng tính và thay đổi các giá trị trong 2 ô A1&A2.
Bạn xem File

Em vừa xem trong file, nhưng lúc em thay đổi giá trị ô A2 nhiều lần thì A1 ko tăng giá trị ạ. Em muốn cứ mỗi lần thay đổi giá trị ô A2 thì ô A1 cũng thay đổi theo thuật toán trên cơ ạ

 

[phulien1902]

Em vừa xem trong file, nhưng lúc em thay đổi giá trị ô A2 nhiều lần thì A1 ko tăng giá trị ạ. Em muốn cứ mỗi lần thay đổi giá trị ô A2 thì ô A1 cũng thay đổi theo thuật toán trên cơ ạ

Làm gì có chuyện đó được?
Bạn thử lại lần nữa đi nhé.

 

[Hau151978]

Làm gì có chuyện đó được?
Bạn thử lại lần nữa đi nhé.

Code chỉ thay đổi A1 khi A2 thay đổi, chưa xét trường hợp phải thay đổi A2 khi A1 thay đổi. Mà chủ topic cũng không nêu trường hợp thay đổi cả A1 A2 cùng lúc sẽ ra sao?

 

[lenhi96]

Code chỉ thay đổi A1 khi A2 thay đổi, chưa xét trường hợp phải thay đổi A2 khi A1 thay đổi. Mà chủ topic cũng không nêu trường hợp thay đổi cả A1 A2 cùng lúc sẽ ra sao?

Cái thay đổi cả A1 và A2 em ko quan tâm lắm ạ. Em chỉ cần mỗi khi thay đổi giá trị A2, thì A1 sẽ = A1+ A2 ạ.
( em thấy nó hơi giống phép toán ANS trong máy tính casio đấy ạ, khi tính xong nó gán kết quả cho ANS rồi sẽ cộng tiếp với kết quả tiếp theo)

Bài đã được tự động gộp: 5/7/18

Code chỉ thay đổi A1 khi A2 thay đổi, chưa xét trường hợp phải thay đổi A2 khi A1 thay đổi. Mà chủ topic cũng không nêu trường hợp thay đổi cả A1 A2 cùng lúc sẽ ra sao?

Em ko biết lỗi này có ảnh hưởng ko ạ, nhưng khi em thay đổi A2 nhiều lần thì ko thấy A1 thay đổi ạ

 

[nlbx]

Bỏ dòng đầu và thêm sub trước worksheet....

 

[Hau151978]

Bạn tìm hiểu về thủ tục sự kiện nhé, dùng mấy thứ này không quen dễ lỗi lắm. Code của bạn ở trên nằm ở module thì không chạy được và sai 2 dòng đầu.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        [A2] = [A1] + [A2]
    ElseIf Not Intersect(Target, Range("A2")) Is Nothing Then
        [A1] = [A1] + [A2]
    End If
    Application.EnableEvents = True
End Sub

 

[lenhi96]

Bỏ dòng đầu và thêm sub trước worksheet....

Em đã thử và OK rồi ạ, Cảm ơn anh chị trong gr nhiều ạ.