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

 

= Мир MS Excel/преобразование формул в значения только на видимых листах - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
преобразование формул в значения только на видимых листах
Nadin12345465 Дата: Среда, 24.06.2020, 21:42 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте, помоги пожалуйста, преобразовать макрос.
макрос преобразует формулы в значения на всех листах, а мне надо только на видимых листах книги, чтобы скрытые листы не трогались.

For Each ws In ActiveWorkbook.Worksheets
ws.UsedRange.Value = ws.UsedRange.Value
Next ws
 
Ответить
СообщениеЗдравствуйте, помоги пожалуйста, преобразовать макрос.
макрос преобразует формулы в значения на всех листах, а мне надо только на видимых листах книги, чтобы скрытые листы не трогались.

For Each ws In ActiveWorkbook.Worksheets
ws.UsedRange.Value = ws.UsedRange.Value
Next ws

Автор - Nadin12345465
Дата добавления - 24.06.2020 в 21:42
Hugo Дата: Среда, 24.06.2020, 22:22 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3854
Репутация: 814 ±
Замечаний: 0% ±

365
Добрый день.
Включаете запись макроса - получаете первый макрос.
Используете синтаксис в Вашем для начала например так как я во втором.
Ну далее надеюсь справитесь.


Sub Макрос3()
'
' Макрос3 Макрос
'

'
    Sheets("Лист1").Select
    ActiveWindow.SelectedSheets.Visible = False
    Sheets("Лист2").Select
    Sheets("Лист1").Visible = True
End Sub

Sub tt()

    For Each ws In ActiveWorkbook.Worksheets
        If ws.Visible = True Then MsgBox ws.Name
        'ws.UsedRange.Value = ws.UsedRange.Value
    Next ws

End Sub



webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеДобрый день.
Включаете запись макроса - получаете первый макрос.
Используете синтаксис в Вашем для начала например так как я во втором.
Ну далее надеюсь справитесь.
[vba]
Sub Макрос3()'' Макрос3 Макрос''    Sheets("Лист1").Select    ActiveWindow.SelectedSheets.Visible = False    Sheets("Лист2").Select    Sheets("Лист1").Visible = ТrueEnd SubSub tt()    For Each ws In ActiveWorkbook.Worksheets        If ws.Visible = Тrue Then MsgBox ws.Name        'ws.UsedRange.Value = ws.UsedRange.Value    Next wsEnd Sub
[/vba]

Автор - Hugo
Дата добавления - 24.06.2020 в 22:22
Nadin12345465 Дата: Четверг, 25.06.2020, 08:13 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте, спасибо большое за ответ.
Но ваш макрос сложный для меня, чтобы его преобразовывать. Информация о видимом листе мне не актуальна, макрос не должен в конце ничего выводить, т.к. дальше макросом я делаю другие действия.
И я не могу привязываться к названию листов. В файле постоянно меняется кол-во видимых и скрытых листов, и все их названия.
Единственный признак - это видимость листа. (или скрытость)
В другую книгу переносить ничего не надо, просто в этой превратить формулы в значения, скрытые листы переводить в значения не надо...
К сожалению, не знаю, как ещё подробнее написать.
 
Ответить
СообщениеЗдравствуйте, спасибо большое за ответ.
Но ваш макрос сложный для меня, чтобы его преобразовывать. Информация о видимом листе мне не актуальна, макрос не должен в конце ничего выводить, т.к. дальше макросом я делаю другие действия.
И я не могу привязываться к названию листов. В файле постоянно меняется кол-во видимых и скрытых листов, и все их названия.
Единственный признак - это видимость листа. (или скрытость)
В другую книгу переносить ничего не надо, просто в этой превратить формулы в значения, скрытые листы переводить в значения не надо...
К сожалению, не знаю, как ещё подробнее написать.

Автор - Nadin12345465
Дата добавления - 25.06.2020 в 08:13
  • Страница 1 из 1
  • 1
Поиск:

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