Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сохранение листа отдельно без формул - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Сохранение листа отдельно без формул
homeavt Дата: Пятница, 05.04.2024, 08:34 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 20% ±

2016
Как сделать так чтобы сохранялся лист с датой не формулами а только значения?
К сообщению приложен файл: umnaja_tablica_po_transborder_.xlsm (131.7 Kb)
 
Ответить
СообщениеКак сделать так чтобы сохранялся лист с датой не формулами а только значения?

Автор - homeavt
Дата добавления - 05.04.2024 в 08:34
NikitaDvorets Дата: Пятница, 05.04.2024, 16:18 | Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 612
Репутация: 142 ±
Замечаний: 0% ±

Excel 2019
homeavt, добрый день. Вы ожидаете решение инструментами Excel или макросом?
 
Ответить
Сообщениеhomeavt, добрый день. Вы ожидаете решение инструментами Excel или макросом?

Автор - NikitaDvorets
Дата добавления - 05.04.2024 в 16:18
homeavt Дата: Понедельник, 08.04.2024, 08:10 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 20% ±

2016
NikitaDvorets, макросом на кнопке сохранить отчет, он сохраняет в новой вкладке с датой, но не просто содержимое значение а с формулами


Сообщение отредактировал homeavt - Понедельник, 08.04.2024, 09:36
 
Ответить
СообщениеNikitaDvorets, макросом на кнопке сохранить отчет, он сохраняет в новой вкладке с датой, но не просто содержимое значение а с формулами

Автор - homeavt
Дата добавления - 08.04.2024 в 08:10
NikitaDvorets Дата: Понедельник, 08.04.2024, 09:27 | Сообщение № 4
Группа: Авторы
Ранг: Ветеран
Сообщений: 612
Репутация: 142 ±
Замечаний: 0% ±

Excel 2019
homeavt,
Цитата
макросом на кнопке сохранить отчет но не просто содержимое значение а с формулами


Цитата
так чтобы сохранялся лист с датой не формулами а только значения


Эти два тезиса противоречат друг другу.

Рекомендую подробно описать постановку задач.
 
Ответить
Сообщениеhomeavt,
Цитата
макросом на кнопке сохранить отчет но не просто содержимое значение а с формулами


Цитата
так чтобы сохранялся лист с датой не формулами а только значения


Эти два тезиса противоречат друг другу.

Рекомендую подробно описать постановку задач.

Автор - NikitaDvorets
Дата добавления - 08.04.2024 в 09:27
homeavt Дата: Понедельник, 08.04.2024, 09:35 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 0 ±
Замечаний: 20% ±

2016
NikitaDvorets, вырвано из контекста, если полностью перечитать сообщения они не противоречат, в 1 сообщении как надо сделать, во 2 как это работает на данный момент
 
Ответить
СообщениеNikitaDvorets, вырвано из контекста, если полностью перечитать сообщения они не противоречат, в 1 сообщении как надо сделать, во 2 как это работает на данный момент

Автор - homeavt
Дата добавления - 08.04.2024 в 09:35
Alex_ST Дата: Понедельник, 08.04.2024, 10:17 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3214
Репутация: 609 ±
Замечаний: 0% ±

2003
homeavt, то, что Вы хотите получить - это целый комплекс взаимосвязанных процедур, заточенных под одну Вашу конкретную задачу.
Тут и задание пути и имени сохранения копии книги с использованием, очевидно, диалога Application.GetSaveAsFilename, и само сохранение копии (методом ActiveWorkbook.SaveCopyAs), и открытие этой сохранённой копии, и замена в ней в определённых ячейках формул на значения (тут много разных способов)...
То есть за 5 минут это не напишешь. Для себя, любимого, повозиться ещё можно было бы, а так... Извините, лень.
Для замены в одном или нескольких выделенных диапазонах формул на значения могу порекомендовать следующую универсальную процедуру:
[vba]
Код
Sub Replace_by_VAL()   '  в выбранном диапазоне в не скрытых ячейках заменить формулы на значения 'http://www.excelworld.ru/forum/3-45-68810-16-1383818995
   Dim rRng As Range, rAr As Range
   On Error Resume Next
   With ActiveWindow.RangeSelection.Cells
      If .Count = 1 Or .MergeCells Then   ' если выбрана всего одна ячейка, то SpecialCells выберет все на листе, соответствующие условию
         .Item(1) = .Item(1).Value: Exit Sub
      Else   ' если выбрано несколько ячеек, то SpecialCells выберет только нужные
         Set rRng = .SpecialCells(xlCellTypeFormulas).SpecialCells(xlCellTypeVisible)
      End If
   End With
   If rRng Is Nothing Then Exit Sub
   For Each rAr In rRng.Areas: rAr.Value = rAr.Value: Next
   rRng.Select ' восстановить выбор диапазонов ячеек (можно не делать)
End Sub
[/vba]
Абсолютно не сложно переделать эту самостоятельную процедуру так, чтобы она работала как вызываемая общей процедурой подпрограмма не с выделенными диапазонами ячеек, а с передаваемыми ей аргументами - диапазонами ячеек.



С уважением,
Алексей
MS Excel 2003 - the best!!!


Сообщение отредактировал Alex_ST - Понедельник, 08.04.2024, 10:24
 
Ответить
Сообщениеhomeavt, то, что Вы хотите получить - это целый комплекс взаимосвязанных процедур, заточенных под одну Вашу конкретную задачу.
Тут и задание пути и имени сохранения копии книги с использованием, очевидно, диалога Application.GetSaveAsFilename, и само сохранение копии (методом ActiveWorkbook.SaveCopyAs), и открытие этой сохранённой копии, и замена в ней в определённых ячейках формул на значения (тут много разных способов)...
То есть за 5 минут это не напишешь. Для себя, любимого, повозиться ещё можно было бы, а так... Извините, лень.
Для замены в одном или нескольких выделенных диапазонах формул на значения могу порекомендовать следующую универсальную процедуру:
[vba]
Код
Sub Replace_by_VAL()   '  в выбранном диапазоне в не скрытых ячейках заменить формулы на значения 'http://www.excelworld.ru/forum/3-45-68810-16-1383818995
   Dim rRng As Range, rAr As Range
   On Error Resume Next
   With ActiveWindow.RangeSelection.Cells
      If .Count = 1 Or .MergeCells Then   ' если выбрана всего одна ячейка, то SpecialCells выберет все на листе, соответствующие условию
         .Item(1) = .Item(1).Value: Exit Sub
      Else   ' если выбрано несколько ячеек, то SpecialCells выберет только нужные
         Set rRng = .SpecialCells(xlCellTypeFormulas).SpecialCells(xlCellTypeVisible)
      End If
   End With
   If rRng Is Nothing Then Exit Sub
   For Each rAr In rRng.Areas: rAr.Value = rAr.Value: Next
   rRng.Select ' восстановить выбор диапазонов ячеек (можно не делать)
End Sub
[/vba]
Абсолютно не сложно переделать эту самостоятельную процедуру так, чтобы она работала как вызываемая общей процедурой подпрограмма не с выделенными диапазонами ячеек, а с передаваемыми ей аргументами - диапазонами ячеек.

Автор - Alex_ST
Дата добавления - 08.04.2024 в 10:17
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!