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

Làm thế nào để ẩn công thức nhưng hiển thị kết quả mà không cần bảo vệ trang tính trong Excel?

Trong một số trường hợp, bạn có thể cần ẩn công thức trong trang tính của mình ở chế độ riêng tư. Bài viết này nói về ẩn công thức nhưng hiển thị kết quả mà không bảo vệ trang tính trong Excel.

Ẩn công thức nhưng hiển thị kết quả mà không bảo vệ trang tính bằng mã VBA


Ẩn công thức nhưng hiển thị kết quả mà không bảo vệ trang tính bằng mã VBA

Để ẩn công thức nhưng hiển thị kết quả mà không bảo vệ trang tính, vui lòng thực hiện như sau.

1. Trong trang tính, bạn cần ẩn công thức nhưng hiển thị kết quả, vui lòng nhấp chuột phải vào tab trang tính và chọn Mã Chế độ xem từ menu chuột phải.

2. bên trong Microsoft Visual Basic cho các ứng dụng , vui lòng sao chép và dán mã VBA vào cửa sổ Mã.

Mã VBA: ẩn công thức nhưng hiển thị kết quả mà không bảo vệ trang tính

Dim xDic As New Dictionary
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xCell As Range
    Dim xRg As Range
    Set xRg = Range("C1:C10")
    If xDic.Count <> xRg.Count Then
        For Each xCell In xRg
            xDic.Add xCell.Address, xCell.FormulaR1C1
        Next
    End If
    If (Target.Count = 1) And (Not Application.Intersect(xRg, Target) Is Nothing) And (Target.HasFormula) Then
        With Target
            .Value = .Value
        End With
    Else
        For Each xCell In xRg
            xCell.Formula = xDic.Item(xCell.Address)
        Next
    End If
End Sub

Chú thích: Trong mã, C1: C10 là phạm vi ô mà bạn muốn ẩn công thức bên trong. Vui lòng thay đổi nó dựa trên nhu cầu của bạn.

3. Sau đó nhấn vào CÔNG CỤ > Người giới thiệu…. Kiểm tra Thời gian chạy Microsoft Script và nhấp vào OK nút trong Tài liệu tham khảo - VBAProject cửa sổ. Xem ảnh chụp màn hình:

4. Nhấn nút Khác + Q chìa khóa để đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.

Từ bây giờ, khi bạn nhấp vào ô trong phạm vi được chỉ định, công thức sẽ được ẩn ngay lập tức trong Thanh công thức.


Các bài liên quan:


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 (20)
Xếp hạng 5 trong 5 · xếp hạng 1
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 đã thử sử dụng mã VBA và tôi nhận được thông báo lỗi cho biết rằng tôi cần gỡ lỗi phần sau của mã: "If xDic.Count <> xRg.Count Then"
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Jenessy thân mến,
Bạn sử dụng phiên bản Office 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
đối với tôi cũng cùng một lỗi
phiên bản văn phòng 2013
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ngày tốt,
Vui lòng sao chép toàn bộ script bao gồm dòng đầu tiên "Dim xDic As New Dictionary".
Bỏ lỡ dòng đầu tiên trong mã sẽ gây ra lỗi này.
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ũng gặp lỗi tương tự
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 sao chép trên toàn thế giới nhưng vẫn gặp lỗi do loại do người dùng xác định không được xác định, vậy tôi có thể làm gì
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đánh dấu một tham chiếu đến aMicrosoft Active X Data Object Library trong trình soạn thảo VBA.


1. Mở trình soạn thảo VBA và đi tới Công cụ | Người giới thiệu.


2. Cuộn xuống cho đến khi bạn thấy Thư viện Đối tượng Dữ liệu Microsoft Active X.


3. Nếu bạn có nhiều phiên bản, hãy sử dụng phiên bản mới nhất. Các phiên bản sẽ tương ứng với các phiên bản của MDAC. Lần duy nhất bạn không muốn sử dụng phiên bản mới nhất là nếu bạn đang phân phối Dự án cho một máy có phiên bản cũ hơn trên đó. Vì vậy, nếu máy bạn đang phân phối chỉ cài đặt MDAC 2.6 và bạn có MDAC 2.7, hãy kiểm tra tham chiếu đến phiên bản 2.6 của Thư viện đối tượng dữ liệu Microsoft Active X để đảm bảo rằng Dự án sẽ hoạt động trên máy bạn đang phân phối nó.
Hơn
Thời gian chạy tập lệnh của Microsoft
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nó tiếp tục thông báo gỡ lỗi và nó làm mới sau mỗi giây ...
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ột cách dễ dàng.
Chọn ô hoặc các ô bạn muốn ẩn công thức hoặc dữ liệu.
Đi tới Trang chủ -> Định dạng -> Định dạng Ô -> Số -> Tùy chỉnh
Trong Loại, Xóa Chung và Nhập "" ""
Giá trị ô hoặc công thức không xuất hiện trên màn hình
Tuy nhiên, nó sẽ xuất hiện trong thanh Công thức nếu bạn chọn ô.
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 đã thử sử dụng mã VBA nhưng sau khi áp dụng mã này, excel của tôi chạy chậm và bị treo. Vui lòng giúp tôi giải quyết vấn đề này.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nếu chúng ta nhấn và giữ chuột trái vào một ô, công thức sẽ hiển thị cho đến khi bạn nhả nhấp chuột trái. Nếu không, điều này sẽ hoạt động tốt.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sau khi mã vba này áp dụng công thức tính tổng mới, kết quả không hiển thị trong ô, vui lòng giúp đỡ ....
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 bạn. Công thức đã hoạt động.
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, tôi đang cố ẩn công thức trong một cột cụ thể mà không có mật khẩu bảo vệ trang tính. tôi sao chép, dán toàn bộ mã và thay đổi các ô nhưng vẫn không thể ẩn công thức. Bạn có thể vui lòng hỗ trợ.

Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
công thức hoạt động nhưng vấn đề là khi chúng tôi đóng trang tính và mở lại nó thì VBA không hoạt động ...
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, Để tiếp tục sử dụng VBA này trong tương lai, sau khi thêm mã, vui lòng lưu sổ làm việc dưới dạng Sổ làm việc Hỗ trợ Macro Excel. Tập tin > Save As. Trong hộp thoại Lưu dưới dạng, hãy chọn Sổ làm việc hỗ trợ macro Excel từ Tiết kiệm như gõ danh sách thả xuống, sau đó nhấp vào Lưu Và sau đó sử dụng sổ làm việc hỗ trợ macro excel này trong tương lai.
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 bạn vì mã này, tôi thực sự cần một cái gì đó như thế này
Xếp hạng 5 trong 5
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
dia tetap loading ya ko?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
saya da coba sesuai coding nya, bisa berjalan, tetapi di layar ketika saya klik ke tempat yang dimaksud ada keluar tanda loading, (tanda bulat berkedip). Tệp saya mmg 18 MB, bagaimana caranya agar tidak keluar tanda kedip tersebut ?
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 akia,
Vấn đề bạn đề cập không được sao chép trong trường hợp của tôi. Cho mình hỏi bạn đang dùng bản excel nào vậy?
Không có bình luận nào được đăng ở đây

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