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 es conserven tots els fulls de treball només com a valors?

Si teniu un llibre que conté diverses fórmules, ara, heu de distribuir aquest fitxer a altres usuaris, no voleu mostrar les fórmules, però només es mostraran els valors. Normalment, podem guardar ràpidament un full de treball com a valors copiant i enganxant les dades només com a valors. Però, com es podrien guardar tots els fulls de treball com a valors només sense copiar i enganxar un a un?

Desa tots els fulls de treball com a valors només amb el codi VBA


fletxa blau dreta bombolla Desa tots els fulls de treball com a valors només amb el codi VBA

El següent codi VBA us pot ajudar a desar ràpidament tots els fulls com a valors (sense fórmules) i conservar tot el format de la cel·la. Feu el següent:

1. Mantingueu premut el botó ALT + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. Clic Insereix > Mòduls, i enganxeu el següent codi al Mòduls Finestra.

Codi VBA: guarda tots els fulls de treball com a valors només:

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

3. A continuació, premeu F5 clau per executar aquest codi, i tot el llibre s'ha guardat com a valors només, totes les fórmules s'han eliminat alhora, només deixen valors amb format de cel·la.

Nota: Abans d'aplicar el codi, primer podeu desar una còpia del llibre.



Eines de productivitat recomanades

Pestanya d'Office

estrella d'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'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'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.
    mirna · 4 months ago
    when i run that code, i get error "getting Run time Error 1004".
    FYI, in my excel there are merge cells.

    It will be helpful if someone give solution

    Thank you
    • To post as a guest, your comment is unpublished.
      skyyang · 3 months ago
      Hello, mirna,
      The above code works well in my workbook, which excel version do you use?
  • To post as a guest, your comment is unpublished.
    Vijayaraghavan S · 4 months ago
    Sub Saveasvalue()
    'Updateby Extendoffice 20161025
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
    wsh.Cells.Copy
    wsh.Cells.PasteSpecial xlPasteValues - getting Run time Error 1004 - CAN ANYONE HELP ON THIS.
    Next
    Application.CutCopyMode = False
    End Sub
  • To post as a guest, your comment is unpublished.
    vijay · 4 months ago
    Thanks a lot Bro..this is amazing..helped me a lot.
  • To post as a guest, your comment is unpublished.
    Mukherjee Ak · 1 years ago
    Very Good! It has solved many of my problems. Thanks a lot. Regards.
  • To post as a guest, your comment is unpublished.
    Felice · 1 years ago
    Thanks! The VBA code worked wonderfully.
    One thing I noticed though, when I tried to use it on a workbook with Filter on some cells, it won't work.
    Any workaround for this code to work without disabling the Filter?
    • To post as a guest, your comment is unpublished.
      Lilly · 1 years ago
      I have the same problem when using VBA code with filter. Have you had solution for it?