Hỏi mọi người về cách chuyển đổi nội dung 1 ô trong tất cả các sheet? (1 người xem)

[lemanhha]

Mọi người ơi, hiện tại e có 1 file excel bị lỗi ở tất cả các sheet (80sheet mới chết) và 1 muốn nội dung của 1 ô B6 trong tất cả các sheet được thay thế bằng công thức khác thì phải làm thế nào ạ!
Rất mong mọi người giải đáp giúp mình với!!! Anh Chuot0106 giúp e với ạ

 

[chuot0106]

Mọi người ơi, hiện tại e có 1 file excel bị lỗi ở tất cả các sheet (80sheet mới chết) và 1 muốn nội dung của 1 ô B6 trong tất cả các sheet được thay thế bằng công thức khác thì phải làm thế nào ạ!
Rất mong mọi người giải đáp giúp mình với!!! Anh Chuot0106 giúp e với ạ

Bạn xem File đính kèm! để điền công thức vào tất cả các Sheet bạn ấn nút "ĐIỀN CÔNG THỨC" ở sheet1 hoặc nếu không muốn bạn có thể xóa nút này đi và ấn tổ hợp phím tắt CTRL + i.
Code:

Public Sub Dien_CT()
Dim Ws As Worksheet
For Each Ws In Worksheets
Ws.Range("B6").Formula = "=sum(B7:B17)"
Next Ws
End Sub

Trong chỗ in đậm bạn có thể thay bằng công thức khác nếu bạn muốn.
P/S: Nhớ tắt Macro trước khi chạy File.

 

[chuot0106]

Để test thử bạn có thể xóa toàn bộ công thức cũ đi và bấm nút "ĐIỀN CÔNG THỨC" ở sheet1 hoặc phím tắt là CTRL + i.

 

[lemanhha]

E cảm ơn bác Chuot ạ, do e ko biết gửi lại file đính kèm nên đành phải post lại, mong bác và ae thong cảm

 

[chuot0106]

E cảm ơn bác Chuot ạ, do e ko biết gửi lại file đính kèm nên đành phải post lại, mong bác và ae thong cảm

Bạn test thử xem đã đúng ý chưa?

 

[hieuxd]

Mọi người ơi, hiện tại e có 1 file excel bị lỗi ở tất cả các sheet (80sheet mới chết) và 1 muốn nội dung của 1 ô B6 trong tất cả các sheet được thay thế bằng công thức khác thì phải làm thế nào ạ!
Rất mong mọi người giải đáp giúp mình với!!! Anh Chuot0106 giúp e với ạ

Chọn tất cả các sheet (80sheet chưa chết):
Nhấn chuột phải vào 1 sheet bất kỳ \ Select All Sheet
Chọn Ô B6
Gõ nội dung thay đổi vào B6
Nhấn Ctrl+Enter trên màn hình

 

[huuthang_bd]

Chọn tất cả các sheet (80sheet chưa chết):
Nhấn chuột phải vào 1 sheet bất kỳ \ Select All Sheet
Chọn Ô B6
Gõ nội dung thay đổi vào B6
Nhấn Ctrl+Enter trên màn hình

Nhấn Enter bình thường cũng được mà. Không cần phải Ctrl.

 

[hieuxd]

Nhấn Enter bình thường cũng được mà. Không cần phải Ctrl.

Vâng nhấn Enter trên bàn phím là được
Ngày trước đi học Vi tính họ bảo nhấn Enter thì em cứ di chuột và nhìn lên màn hình

 

[lemanhha]

E cám ơn bác hieuxd, cách của bác hay quá ạ, e muốn hỏi thêm a chuot0106 là trong trường hợp e muốn sử dụng với 1 file khác thì e chỉ cần dựa trên nội dung tương tự của đoạn code này đúng ko ạ

 

[chuot0106]

E cám ơn bác hieuxd, cách của bác hay quá ạ, e muốn hỏi thêm a chuot0106 là trong trường hợp e muốn sử dụng với 1 file khác thì e chỉ cần dựa trên nội dung tương tự của đoạn code này đúng ko ạ

Đúng rồi, bạn ấn tổ hợp phím alt+F11 sẽ xuất hiện cửa sổ vba. Bạn vào insert chọn modul sau đó copy code dán vào modul vừa chèn là được.

 

[lemanhha]

Thanks bác chuot0106, e phải tìm hiểu thêm VBA mới được