Cái này mà làm bằng công thức thì "Hổng biết", tạm xài VBA đi.
Làm thử bằng công thức xem sao
Chủ yếu file của tôi nó có hoạt động không? Nếu có, bạn tự nghiên cứu đi
Function congdon() As Long
Static s
s = s + Range("A1").Value
congdon = s
End FunctionOption Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A1]) Is Nothing Then
Range("B1").Value = congdon
End If
End Sub
Thầy ơi gợi ý cho em về điều kì diệu trong file của thầy với ạ. Em cũng chưa biết về công thức vòng này thầy ơi.
Muốn xài được tham chiếu vòng, đương nhiên phải Enable iterative calculation trong Excel Options rồi
Em đã làm được trong excel 2007 và 2003 rồi thầy ạ.
Trong trường hợp cụ thể này thì đúng là làm chơi thôi chứ không nên áp dụng. Lúc nãy em thử hoài mà không được. Thì ra là khi nhập số vào A1 xong mà dùng chuột click vào ô khác thì số không được cộng dồn (do Cell("address") là địa chỉ ô vừa được click chuột. Ngược lại, khi nhập liệu vào một ô nào đó và click chuột vào ô A1 thì kết quả lại được cộng dồn một lần nữa.
Ủa, sao kỳ vậy ta?
Anh thử gõ số vào ô A1 rồi click chuột vào ô khác (gõ số rồi không nhấn Enter hay bất kỳ phím nào khác) xem kết quả có được cộng vào không.
Điều đó đương nhiên rồi
Tại em dùng 1 tay chuột 1 tay phím mà. Nhất là khi xem file.
Thì bạn thử đi sẽ biết, đâu cần hỏi
= IF(AND(ISNUMBER(A1));A1+A2;A2)= IF(AND(CELL("address")="$A$1";ISNUMBER(A1));A1+A2;A2)Công thức tại B1 là:
= IF(AND(CELL("address")="$A$1",ISNUMBER(A1)),B1+1,B1)Lý do vì ta muốn chỉ khi nhập vào A1 thì mới cộng dồn... Thử bỏ CELL("address") rồi nhập số nào đó vào cell khác A1 xem (gõ vào C1 chẳng hạn)
