Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để lưu tất cả các trang tính dưới dạng giá trị?

Nếu bạn có một sổ làm việc chứa nhiều công thức, bây giờ, bạn cần phân phối tệp này cho những người dùng khác, bạn không muốn hiển thị các công thức mà chỉ hiển thị các giá trị. Thông thường, chúng ta có thể nhanh chóng lưu trang tính dưới dạng giá trị bằng cách chỉ sao chép và dán dữ liệu dưới dạng giá trị. Nhưng, làm thế nào bạn có thể lưu tất cả các trang tính dưới dạng giá trị mà không cần sao chép và dán từng bảng một?

Lưu tất cả các trang tính dưới dạng giá trị chỉ với mã VBA


mũi tên màu xanh bong bóng bên phải Lưu tất cả các trang tính dưới dạng giá trị chỉ với mã VBA

Mã VBA sau đây có thể giúp bạn nhanh chóng lưu tất cả các trang tính dưới dạng giá trị (không có công thức) và duy trì tất cả định dạng ô. Vui lòng làm như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Mô-đun Cửa sổ.

Mã VBA: Chỉ lưu tất cả các trang tính dưới dạng giá trị:

Sub Saveasvalue()
'Updateby Extendoffice
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

3. Sau đó nhấn F5 để chạy mã này và toàn bộ sổ làm việc chỉ được lưu dưới dạng giá trị, tất cả các công thức đã bị xóa cùng một lúc chỉ để lại các giá trị có định dạng ô.

Chú thích: Trước khi áp dụng mã, trước tiên bạn có thể lưu bản sao của sổ làm việc.


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (18)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Thanks! Mã VBA hoạt động tuyệt vời.
Tuy nhiên, tôi nhận thấy một điều, khi tôi cố gắng sử dụng nó trên sổ làm việc với Bộ lọc trên một số ô, nó sẽ không hoạt động.
Bất kỳ giải pháp nào để mã này hoạt động mà không cần tắt Bộ lọc?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi gặp vấn đề tương tự khi sử dụng mã VBA với bộ lọc. Bạn đã có giải pháp cho nó?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Này, bạn có thể sửa lỗi này không? Tôi có cùng một vấn đề
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Rất tốt! Nó đã giải quyết nhiều vấn đề của tôi. Cảm ơn rất nhiều. Trân trọng.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn rất nhiều Bro.. điều này thật tuyệt vời..đã giúp đỡ tôi rất nhiều.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sub Saveasvalue ()
'Cập nhật bởi Extendoffice 20161025
Làm mờ wsh dưới dạng trang tính
Đối với mỗi wsh Trong ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues ​​- nhận được Lỗi thời gian chạy 1004 - BẤT CỨ AI CÓ THỂ GIÚP VIỆC NÀY.
Sau
Application.CutCopyMode = Sai
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
khi tôi chạy mã đó, tôi gặp lỗi "nhận được Lỗi thời gian chạy 1004".
FYI, trong excel của tôi có các ô hợp nhất.

Sẽ rất hữu ích nếu ai đó đưa ra giải pháp

Cảm ơn bạn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, mirna,
Đoạn mã trên hoạt động tốt trong sổ làm việc của tôi, bạn sử dụng phiên bản excel nào?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nó hoạt động tốt. cảm ơn.

@mirna: bạn cần bỏ bảo vệ trang tính hoặc ô. VB không thích chế độ bảo vệ :)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sứ thần !! Bom Muito !!!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tengo ese código, si bien es cierto funciona pero quisiera que no watching algunas hojas de mi archivo excel. se puede?
Chúc mừng.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Loại bỏ tất cả các bộ lọc / bảo vệ trong tất cả các trang tính. nên hoạt động hoàn hảo.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tốt! Thông minh! Tôi cần cái này nhưng không có tờ nào
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi cần xuất bản báo cáo tài chính dựa trên Excel với các nhóm. Điều này có tác dụng xóa tất cả các công thức và chỉ để lại các con số. Các phương pháp khác mà tôi đã thử đã xóa các nhóm.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Có cách nào để hoàn tác việc này nếu bạn đã quên lưu phiên bản công thức trước không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nó chạy tốt nhưng tôi cần một VBA dán làm giá trị cho một loạt các sổ làm việc vượt trội.



Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Đây là những gì tôi đang sử dụng (Tôi thoát khỏi tệp tự động nên tôi sẽ không vô tình lưu chỉ với các giá trị).

Nhưng tôi muốn giữ chỉ một trang tính được lưu "bình thường" bởi vì tôi có một danh sách thả xuống ở đó mà tôi không muốn mất khi chia sẻ tệp.


Bất cứ ai có thể giúp tôi làm điều này?

Cảm ơn bạn!


Sub Saveasvalue ()

Làm mờ wsh dưới dạng trang tính
Đối với mỗi wsh Trong ThisWorkbook.Worksheets
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues
Sau
Application.CutCopyMode = Sai

savename = Application.GetSaveAsFilename (fileFilter: = "Exel Files (* .xlsx), * .xlsx")
ActiveWorkbook.SaveAs Filename: = savename, FileFormat: = 51

Application.DisplayAlerts = False 'thoát mà không có cảnh báo
Ứng dụng.Quit
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
sämst shjkjhgasghjdfsjhkfdgsdjhgafgb, ja u fdsvjkhgfkjahfg ka khdfzhjkg
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL