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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » преобразование формул в значения только на видимых листах (Макросы/Sub)
преобразование формул в значения только на видимых листах
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
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3070
Репутация: 662 ±
Замечаний: 0% ±

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

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
[/vba]


excel@nxt.ru
webmoney: E265281470651 R418926282008 Z422237915069
 
Ответить
СообщениеДобрый день.
Включаете запись макроса - получаете первый макрос.
Используете синтаксис в Вашем для начала например так как я во втором.
Ну далее надеюсь справитесь.
[vba]
Код

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
[/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
Nadin12345465 Дата: Четверг, 25.06.2020, 08:17 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Hugo, может так: если лист видимый, то переводим его в значения, смотри следующий лист, если он видимый, то переводим его в значения, если лист скрытый, то не трогаем и так перебираем все листы.
 
Ответить
СообщениеHugo, может так: если лист видимый, то переводим его в значения, смотри следующий лист, если он видимый, то переводим его в значения, если лист скрытый, то не трогаем и так перебираем все листы.

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

Excel 2019
Hugo, может так: если лист видимый, то переводим его в значения, смотри следующий лист, если он видимый, то переводим его в значения, если лист скрытый, то не трогаем и так перебираем все листы.
 
Ответить
СообщениеHugo, может так: если лист видимый, то переводим его в значения, смотри следующий лист, если он видимый, то переводим его в значения, если лист скрытый, то не трогаем и так перебираем все листы.

Автор - Nadin12345465
Дата добавления - 25.06.2020 в 08:18
Мир MS Excel » Вопросы и решения » Вопросы по VBA » преобразование формул в значения только на видимых листах (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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