Thực thi lại Cell!

[cam.accountancy]

Các anh (chị) có cách nào để thực hiện tính lại các Cell trong một lúc được không?
Em cứ phải nhấn phím F2 cho từng Cell rồi Excel mới thực hiện lại kết quả. Dữ liệu nhiều quá, cứ từng Cell như vậy thì em chết mất. Giúp em với!
Thanks!

 

[Mr Okebab]

Khi ở chế độ Manual thì :
1. Nhấn F9 : Tính lại toàn bộ File hiện hành
2. Nhấn Shift + F9 : Tính lại Sheet hiện hành.

Còn tính lại vùng chỉ định thì phải dùng VBA

Thân!

 

[cam.accountancy]

Em sử dụng F9 rồi, không được anh à!
Còn cách nào không? giúp em với

Để thuận cho việc thay thế mảng em đã định dạng cột đó thành Text rồi dùng lệnh SUBSTITUTE để thay thế một số ký tự.
Khi xong, em copy trở lại và định dạng lại thành dạng Genreal. Cứ phải nhấn F2 ô nào thì ô đó mới thực hiện được kết quả. Khổ cho em quá, 7.000 đến 8.000 dòng nhấn F2 rồi Enter quá nhiều.

 

[Mr Okebab]

Em sử dụng F9 rồi, không được anh à!
Còn cách nào không? giúp em với

Để thuận cho việc thay thế mảng em đã định dạng cột đó thành Text rồi dùng lệnh SUBSTITUTE để thay thế một số ký tự.
Khi xong, em copy trở lại và định dạng lại thành dạng Genreal. Cứ phải nhấn F2 ô nào thì ô đó mới thực hiện được kết quả. Khổ cho em quá, 7.000 đến 8.000 dòng nhấn F2 rồi Enter quá nhiều.

Không hiểu lắm, bạn thử gửi 1 file tạm thời lên xem sao ???

Thân!

 

[Pansy_flower]

Em sử dụng F9 rồi, không được anh à!
Còn cách nào không? giúp em với

Để thuận cho việc thay thế mảng em đã định dạng cột đó thành Text rồi dùng lệnh SUBSTITUTE để thay thế một số ký tự.
Khi xong, em copy trở lại và định dạng lại thành dạng Genreal. Cứ phải nhấn F2 ô nào thì ô đó mới thực hiện được kết quả. Khổ cho em quá, 7.000 đến 8.000 dòng nhấn F2 rồi Enter quá nhiều.

Bạn không cần chuyển thành text, bạn chỉ cần dùng Ctrl+H (tìm và thay thế) sau đó gõ từ mà bạn muốn thay thế vào ô find what, gõ từ thay thế vào ô replace with. Tiếp theo bạn nhấn Alt+A để thay thế toàn bô, và Alt+R để chỉ thay thế một ô hiện hành.

Chú ý: khi bạn thay thế toàn bộ bạn phải để ý đến sự khác biệt giữa từ thay thế và công thức thay thế!

 

[tqhung65]

Bạn vào Tools/Option chọn Tab [Calculation] đánh dấu vào Automatic. Sau đó chỉ cần nhấn F2 trong một cell là tất cả được tính lại

 

[pycckuu410]

Sub F2()
Dim r As Range, rr As Range
Set rr = Selection
For Each r In rr
r.Select
Application.SendKeys "{F2}"
Application.SendKeys "{ENTER}"
DoEvents
Next
End Sub