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

Як зберегти всі аркуші лише як значення?

Якщо у вас є робоча книга, яка містить кілька формул, тепер вам потрібно розповсюдити цей файл іншим користувачам, ви не хочете показувати формули, а відображатимуться лише значення. Зазвичай ми можемо швидко зберегти аркуш як значення, скопіювавши та вставивши дані лише як значення. Але як можна зберегти всі аркуші як значення лише без копіювання та вставки по одному?

Збережіть усі аркуші як значення лише за допомогою коду VBA


стрілка синя права міхур Збережіть усі аркуші як значення лише за допомогою коду VBA

Наступний код VBA може допомогти вам швидко зберегти всі аркуші як значення (без формул) та зберегти всі форматування комірок. Будь ласка, зробіть так:

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно

Код 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 ключ для запуску цього коду, і вся книга була збережена лише як значення, всі формули були видалені відразу, лише залишають значення з форматуванням комірок.

примітки: Перш ніж застосовувати код, ви можете спочатку зберегти копію книги.


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (17)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Спасибі! Код VBA працював чудово.
Одне, що я помітив, коли спробував використати його в книзі з фільтром у деяких клітинках, він не спрацює.
Чи є обхідний шлях, щоб цей код працював без відключення фільтра?
Цей коментар був мінімізований модератором на сайті
У мене така ж проблема при використанні коду VBA з фільтром. У вас було рішення для цього?
Цей коментар був мінімізований модератором на сайті
Привіт, чи вдалося вам це виправити? У мене така ж проблема
Цей коментар був мінімізований модератором на сайті
Дуже добре! Це вирішило багато моїх проблем. Дуже дякую. З повагою.
Цей коментар був мінімізований модератором на сайті
Велике спасибі, брате..це дивовижно..мені дуже допомогло.
Цей коментар був мінімізований модератором на сайті
Sub Saveasvaluu()
'Оновлення Extendoffice 20161025
Dim wsh Як робочий лист
Для кожного wsh в цьому зошиті
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues ​​- отримання помилки часу виконання 1004 - ХТО МОЖЕ ДОПОМОГТИ У ЦЬОМУ.
Далі
Application.CutCopyMode = Неправда
End Sub
Цей коментар був мінімізований модератором на сайті
Коли я запускаю цей код, я отримую помилку "отримання помилки часу виконання 1004".
До Вашої інформації, у моєму Excel є клітинки злиття.

Буде корисно, якщо хтось дасть рішення

Дякую
Цей коментар був мінімізований модератором на сайті
Привіт, мірна,
Наведений вище код добре працює в моїй книзі, яку версію Excel ви використовуєте?
Цей коментар був мінімізований модератором на сайті
Це добре працює. Спасибі.

@mirna: вам потрібно зняти захист аркуша або клітинки. VB не любить режим захисту :)
Цей коментар був мінімізований модератором на сайті
Funcionou!! Muito Bom!!!
Цей коментар був мінімізований модератором на сайті
Tengo ese código, si bien es cierto funciona pero quisiera que no considere algunas hojas de mi archivo excel. se puede ?
Привіт.
Цей коментар був мінімізований модератором на сайті
Зніміть усі фільтри/захист з усіх аркушів. має працювати ідеально.
Цей коментар був мінімізований модератором на сайті
добре! Чудово! Мені це потрібно, але жодних аркушів
Цей коментар був мінімізований модератором на сайті
Мені потрібно опублікувати фінансові звіти на основі Excel з угрупованнями. Це спрацювало, щоб очистити всі формули та залишити лише числа. Інші методи, які я спробував, очистили групи.
Цей коментар був мінімізований модератором на сайті
Чи є спосіб скасувати це, якщо ви забули спочатку зберегти версію формули?
Цей коментар був мінімізований модератором на сайті
Він працює добре, але мені потрібен VBA із вставкою як значення для купи книг Excel.



Цей коментар був мінімізований модератором на сайті
привіт,
Це те, що я використовую (я виходжу з файлу автоматично, щоб випадково не зберігати лише значення).

Але я хотів зберегти лише один аркуш збережений "звичайно" тому що в мене є спадний список, який я не хотів би втратити під час надання спільного доступу до файлу.


Чи може хтось допомогти мені це зробити?

Дякую!


Sub Saveasvalue()

Dim wsh Як робочий лист
Для кожного wsh в цьому зошиті
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues
Далі
Application.CutCopyMode = Неправда

savename = Application.GetSaveAsFilename(fileFilter:="Файли Exel (*.xlsx), *.xlsx")
ActiveWorkbook.SaveAs Ім'я файлу:=ім'я збереження, Формат файлу:=51

Application.DisplayAlerts = False 'вихід без попереджень
Заявка. Вийти
End Sub
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця