Function không tự động tính

[salam]

Em thử làm function lấy tên của sheet kề sau sheet hiện tại. Nhưng khi ta đổi tên sheet đó thì ct không đổi mà phải f2 enter mới được. Các nác xem giúp em với.

Function ten()
Dim i, x
x = ActiveWorkbook.Sheets.Count
For i = 1 To x
If ActiveSheet.Name = Sheets(i).Name Then
ten = Sheets(i + 1).Name
End If
Next i
End Function

 

[anhtuan1066]

Tôi đễ ý thấy các UDF ít khi tự động cập nhật dc... theo gợi ý cũa bạn ttphong2007, bạn thử thêm vào đầu Sub dòng:

Function ten()
Application.Volatile
......

Khi thay đỗi tên sheet, bạn bấm F9 đễ cập nhật
Nhưng mà cho dù ko tự cập nhật nhưng dữ liệu tính toán thật sự chắc chắn ko bị sai đâu... Khi lưu file và mỡ file thì đâu sẽ vào đấy
ANH TUẤN