Sut i arbed pob taflen waith fel gwerthoedd yn unig?

Os oes gennych lyfr gwaith sy'n cynnwys sawl fformiwla, nawr, mae angen i chi ddosbarthu'r ffeil hon i ddefnyddwyr eraill, nid ydych chi am ddangos y fformwlâu ond dim ond gwerthoedd sy'n cael eu harddangos. Fel rheol, gallwn arbed taflen waith yn gyflym fel gwerthoedd trwy gopïo a gludo'r data fel gwerthoedd yn unig. Ond, sut allech chi arbed pob taflen waith fel gwerthoedd yn unig heb gopïo a gludo fesul un?

Cadwch yr holl daflenni gwaith fel gwerthoedd yn unig gyda chod VBA

Cadwch yr holl daflenni gwaith fel gwerthoedd yn unig gyda chod VBA

Gall y cod VBA canlynol eich helpu i arbed pob dalen yn gyflym fel gwerthoedd (dim fformwlâu) a chadw'r holl fformatio celloedd. Gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Cadwch yr holl daflenni gwaith fel gwerthoedd yn unig:

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. Yna pwyswch F5 yn allweddol i redeg y cod hwn, ac mae'r llyfr gwaith cyfan wedi'i arbed fel gwerthoedd yn unig, mae'r holl fformiwlâu wedi'u tynnu ar unwaith dim ond gadael gwerthoedd gyda fformatio celloedd.

Nodyn: Cyn i chi gymhwyso'r cod, gallwch arbed copi o'r llyfr gwaith yn gyntaf.