Ինչպե՞ս պահպանել բոլոր աշխատանքային թերթերը որպես արժեքներ միայն:

Եթե ​​ունեք աշխատանքային գրքույկ, որը պարունակում է բազմաթիվ բանաձևեր, ապա այժմ դուք պետք է այս ֆայլը բաշխեք այլ օգտվողների, դուք չեք ցանկանում ցույց տալ բանաձևերը, բայց ցուցադրվում են միայն արժեքներ: Սովորաբար, մենք կարող ենք արագ պահել աշխատանքային թերթը որպես արժեքներ ՝ պատճենելով և տեղադրելով տվյալները որպես արժեքներ: Բայց ինչպե՞ս կարող եք պահպանել բոլոր աշխատաթերթերը որպես արժեքներ միայն առանց մեկ առ մեկ պատճենելու և տեղադրելու:

Պահեք բոլոր աշխատաթերթերը որպես արժեքներ միայն VBA կոդով

Պահեք բոլոր աշխատաթերթերը որպես արժեքներ միայն VBA կոդով

Հաջորդ VBA կոդը կարող է օգնել արագորեն պահպանել բոլոր թերթերը որպես արժեքներ (առանց բանաձևերի) և պահպանել բջիջների ամբողջ ձևաչափումը: Խնդրում եմ, արեք այսպես.

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Պահպանեք բոլոր աշխատաթերթերը որպես արժեքներ միայն.

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, Դրանից հետո սեղմեք F5 այս կոդը գործարկելու բանալին, և ամբողջ աշխատանքային գրքույկը պահպանվել է որպես արժեքներ միայն, բոլոր բանաձևերը հանվել են միանգամից թողնելով արժեքները միայն բջիջների ձևաչափմամբ

ՆշումՆախքան ծածկագիրը կիրառելը, նախ կարող եք պահպանել աշխատանքային գրքի պատճենը: