Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com amagar la fórmula però mostrar el resultat sense protegir el full de càlcul a Excel?

En alguns casos, és possible que hagueu d'ocultar fórmules a la vostra fulla de treball de manera privada. En aquest article es parla d'ocultar fórmules però mostrar resultats sense protegir el full de càlcul d'Excel.

Amaga la fórmula però mostra el resultat sense protegir el full de treball amb el codi VBA


Elimineu fàcilment totes les fórmules de les cel·les, però només conserveu els resultats:

El Actual utilitat de Kutools for Excel Podeu ajudar-vos a eliminar ràpidament totes les fórmules del rang seleccionat, però només conserven resultats a les cel·les. Mostra la captura de pantalla:

Kutools for Excel Inclou més eines 300 pràctiques d'Excel. Lliure de provar sense límit en 60 dies. Descarregueu la prova gratuïta ara


Amaga la fórmula però mostra el resultat sense protegir el full de treball amb el codi VBA


Per amagar fórmules però mostrar resultats sense protegir un full de càlcul, feu el següent.

1. Al full de treball, heu d'ocultar fórmules però mostrar els resultats, feu clic amb el botó dret a la fitxa del full i seleccioneu Veure codi des del menú del botó dret.

2. A la Microsoft Visual Basic per a aplicacions finestra, copieu i enganxeu el codi VBA a la finestra del codi.

Codi VBA: ocultar la fórmula però mostrar el resultat sense protegir el full de treball

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

Nota: En el codi, C1: C10 és l'interval de cel·les que voleu amagar les fórmules a l'interior. Canvieu-lo segons les vostres necessitats.

3. A continuació, feu clic a instruments > Referències .... Comproveu el Microsoft Runtime Script box i feu clic a la icona OK botó al Referències - VBAProject finestra. Mostra la captura de pantalla:

4. Premeu el botó Alt + Q claus per tancar el Microsoft Visual Basic per a aplicacions finestra.

A partir d'ara, quan feu clic a la cel·la en el rang especificat, la fórmula s'oculta immediatament a la barra de fórmules.


Articles relacionats:



Eines de productivitat recomanades

Pestanya d'Office

estrella d&#39;or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d&#39;or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d&#39;or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    A.B. Mati · 4 months ago
    There is easy way as well.
    Select the cell or cells you want to hide the formula or data.
    Go to Home --> Format --> Format Cells --> Number --> Custom
    Under Type, Remove General and Enter """"
    The cell value or formula do not appear on the screen
    However it will appear in the Formula bar if you select the cell.
  • To post as a guest, your comment is unpublished.
    mreshane · 8 months ago
    It keep saying debugging and it refresh in every seconds...
  • To post as a guest, your comment is unpublished.
    Sandip · 9 months ago
    I was copied the whole world but still give error as user-defined type not defined so what can I do
  • To post as a guest, your comment is unpublished.
    Jenessy · 1 years ago
    I tried using the VBA code and I was given an error message stating that I needed to debug the following part of the code: " If xDic.Count <> xRg.Count Then"
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Jenessy,
      Which Office version do you use?
      • To post as a guest, your comment is unpublished.
        sabith · 10 months ago
        for me also same error
        office version 2013
        • To post as a guest, your comment is unpublished.
          crystal · 10 months ago
          Good Day,
          Please copy the whole script include the first line "Dim xDic As New Dictionary".
          Miss the first line in the code will cause this error.