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

Вход

Регистрация

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

 

= Мир MS Excel/Удалить формулы на любом листе. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить формулы на любом листе. (Макросы/Sub)
Удалить формулы на любом листе.
Mark1976 Дата: Вторник, 15.12.2020, 21:45 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 761
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Здравствуйте. Есть макрос [vba]
Код
Sub Удалить_выделенные_формулы()
'преобразование формул в значения в выделенном диапазоне(ах)
    Dim smallrng As Range
    For Each smallrng In Selection.Areas
        smallrng.Value = smallrng.Value
    Next smallrng
End Sub
[/vba]
Данный макрос удаляет формулы в выделенном диапазоне. У меня 4 листа в книге, кнопка на 1 листе. Надо чтобы при выделении формулы на любом листе и запуске макроса с первого листа формулы удалялись на любом листе. Заранее спасибо за решение.
К сообщению приложен файл: 3931878.xls (82.0 Kb)
 
Ответить
СообщениеЗдравствуйте. Есть макрос [vba]
Код
Sub Удалить_выделенные_формулы()
'преобразование формул в значения в выделенном диапазоне(ах)
    Dim smallrng As Range
    For Each smallrng In Selection.Areas
        smallrng.Value = smallrng.Value
    Next smallrng
End Sub
[/vba]
Данный макрос удаляет формулы в выделенном диапазоне. У меня 4 листа в книге, кнопка на 1 листе. Надо чтобы при выделении формулы на любом листе и запуске макроса с первого листа формулы удалялись на любом листе. Заранее спасибо за решение.
Автор - Mark1976
Дата добавления - 15.12.2020 в 21:45
Pelena Дата: Вторник, 15.12.2020, 21:52 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19402
Репутация: 4554 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Вынесите кнопку на Панель быстрого доступа

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Вынесите кнопку на Панель быстрого доступа
Автор - Pelena
Дата добавления - 15.12.2020 в 21:52
Mark1976 Дата: Вторник, 15.12.2020, 21:58 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 761
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Pelena, ок. А у других пользователей, кто откроет данный файл тоже данная кнопка будет на панели? С файлом будут работать много пользователей.


Сообщение отредактировал Mark1976 - Вторник, 15.12.2020, 22:03
 
Ответить
СообщениеPelena, ок. А у других пользователей, кто откроет данный файл тоже данная кнопка будет на панели? С файлом будут работать много пользователей.
Автор - Mark1976
Дата добавления - 15.12.2020 в 21:58
Pelena Дата: Вторник, 15.12.2020, 22:10 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19402
Репутация: 4554 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата Mark1976, 15.12.2020 в 21:58, в сообщении № 3 ()
С файлом будут работать много пользователей
об этом в первом посте ничего не было. Как макрос должен узнать, с каким листом работать?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата Mark1976, 15.12.2020 в 21:58, в сообщении № 3 ()
С файлом будут работать много пользователей
об этом в первом посте ничего не было. Как макрос должен узнать, с каким листом работать?
Автор - Pelena
Дата добавления - 15.12.2020 в 22:10
Mark1976 Дата: Вторник, 15.12.2020, 22:13 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 761
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Елена, стирать данные надо на этих листах: Приложение Согаз, Приложение Макс-М, Приложение Капитал.
 
Ответить
СообщениеЕлена, стирать данные надо на этих листах: Приложение Согаз, Приложение Макс-М, Приложение Капитал.
Автор - Mark1976
Дата добавления - 15.12.2020 в 22:13
Pelena Дата: Вторник, 15.12.2020, 22:17 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19402
Репутация: 4554 ±
Замечаний: ±

Excel 365 & Mac Excel
То есть перебрать все листы и в выделенных диапазонах заменить формулы на значения?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеТо есть перебрать все листы и в выделенных диапазонах заменить формулы на значения?
Автор - Pelena
Дата добавления - 15.12.2020 в 22:17
Mark1976 Дата: Вторник, 15.12.2020, 22:19 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 761
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Pelena, получается, что да.
 
Ответить
СообщениеPelena, получается, что да.
Автор - Mark1976
Дата добавления - 15.12.2020 в 22:19
Mark1976 Дата: Вторник, 15.12.2020, 22:21 | Сообщение № 8
Группа: Проверенные
Ранг: Ветеран
Сообщений: 761
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Pelena, почему такая сложность, так как кнопку на каждом листе надо удалять перед тем как распечатать, так как она тоже печатается.
 
Ответить
СообщениеPelena, почему такая сложность, так как кнопку на каждом листе надо удалять перед тем как распечатать, так как она тоже печатается.
Автор - Mark1976
Дата добавления - 15.12.2020 в 22:21
Pelena Дата: Вторник, 15.12.2020, 22:22 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 19402
Репутация: 4554 ±
Замечаний: ±

Excel 365 & Mac Excel
[vba]
Код
Sub Удалить_выделенные_формулы()
'преобразование формул в значения в выделенном диапазоне(ах)
    Dim smallrng As Range, sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In Worksheets
        sh.Activate
        For Each smallrng In Selection.Areas
            smallrng.Value = smallrng.Value
        Next smallrng
    Next sh
    Application.ScreenUpdating = True
End Sub
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение[vba]
Код
Sub Удалить_выделенные_формулы()
'преобразование формул в значения в выделенном диапазоне(ах)
    Dim smallrng As Range, sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In Worksheets
        sh.Activate
        For Each smallrng In Selection.Areas
            smallrng.Value = smallrng.Value
        Next smallrng
    Next sh
    Application.ScreenUpdating = True
End Sub
[/vba]
Автор - Pelena
Дата добавления - 15.12.2020 в 22:22
Mark1976 Дата: Вторник, 15.12.2020, 22:26 | Сообщение № 10
Группа: Проверенные
Ранг: Ветеран
Сообщений: 761
Репутация: 3 ±
Замечаний: 0% ±

Excel 2010, 2013
Спасибо Елена, это то, что надо.
 
Ответить
СообщениеСпасибо Елена, это то, что надо.
Автор - Mark1976
Дата добавления - 15.12.2020 в 22:26
RAN Дата: Среда, 16.12.2020, 10:25 | Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
-Как ребенка назвали?
-Маша.
-Хорошее имя, но намучается с ним пацан!

С макросом в варианте из №9 будет аналогично, ибо Selection относится исключительно к активному окну, и совершенно не факт, что выделение совпадет на всех листах. Осмелюсь предположить, что в 99% случаев оно будет различным.

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение-Как ребенка назвали?
-Маша.
-Хорошее имя, но намучается с ним пацан!

С макросом в варианте из №9 будет аналогично, ибо Selection относится исключительно к активному окну, и совершенно не факт, что выделение совпадет на всех листах. Осмелюсь предположить, что в 99% случаев оно будет различным.
Автор - RAN
Дата добавления - 16.12.2020 в 10:25
Pelena Дата: Среда, 16.12.2020, 11:00 | Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 19402
Репутация: 4554 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата RAN, 16.12.2020 в 10:25, в сообщении № 11 ()
Selection относится исключительно к активному окну

Разве sh.Activate для этого недостаточно?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата RAN, 16.12.2020 в 10:25, в сообщении № 11 ()
Selection относится исключительно к активному окну

Разве sh.Activate для этого недостаточно?
Автор - Pelena
Дата добавления - 16.12.2020 в 11:00
RAN Дата: Среда, 16.12.2020, 13:02 | Сообщение № 13
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Избыточно.
Выполни макросы в файле, и погляди результат.
К сообщению приложен файл: 0527016.xlsm (14.9 Kb)

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеИзбыточно.
Выполни макросы в файле, и погляди результат.
Автор - RAN
Дата добавления - 16.12.2020 в 13:02
Pelena Дата: Среда, 16.12.2020, 15:54 | Сообщение № 14
Группа: Админы
Ранг: Местный житель
Сообщений: 19402
Репутация: 4554 ±
Замечаний: ±

Excel 365 & Mac Excel
Поглядела.
Там, где есть sh.Activate, отрабатывает, как надо. В остальных случаях работает неверно.
Не пойму, что не так?

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПоглядела.
Там, где есть sh.Activate, отрабатывает, как надо. В остальных случаях работает неверно.
Не пойму, что не так?
Автор - Pelena
Дата добавления - 16.12.2020 в 15:54
RAN Дата: Среда, 16.12.2020, 16:26 | Сообщение № 15
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
По тому, как сформулирован вопрос, все верно. Но я, почему-то, уверен, что нужно так, как работает третий макрос. ;)
Могу ошибаться, но это не точно.

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеПо тому, как сформулирован вопрос, все верно. Но я, почему-то, уверен, что нужно так, как работает третий макрос. ;)
Могу ошибаться, но это не точно.
Автор - RAN
Дата добавления - 16.12.2020 в 16:26
mgt Дата: Пятница, 18.12.2020, 12:46 | Сообщение № 16
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 102
Репутация: 26 ±
Замечаний: 0% ±

Excel 2010
Цитата Mark1976, 15.12.2020 в 22:21, в сообщении № 8 ()
Pelena, почему такая сложность, так как кнопку на каждом листе надо удалять перед тем как распечатать, так как она тоже печатается.


К сообщению приложен файл: 1620669.jpg (40.5 Kb)
 
Ответить
Сообщение
Цитата Mark1976, 15.12.2020 в 22:21, в сообщении № 8 ()
Pelena, почему такая сложность, так как кнопку на каждом листе надо удалять перед тем как распечатать, так как она тоже печатается.


Автор - mgt
Дата добавления - 18.12.2020 в 12:46
Serge_007 Дата: Пятница, 18.12.2020, 14:51 | Сообщение № 17
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
[offtop]
Цитата RAN, 16.12.2020 в 10:25, в сообщении № 11 ()
-Как ребенка назвали?
-Маша.
-Хорошее имя, но намучается с ним пацан!

...
- А ещё, Леонид Аркадьевич, ребенка мы назвали в честь вашей передачи!
- Оооо, интересно, и как же?
- СекторПриз
- Даа-а, не самое лучшее имя для девочки...

:)

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение[offtop]
Цитата RAN, 16.12.2020 в 10:25, в сообщении № 11 ()
-Как ребенка назвали?
-Маша.
-Хорошее имя, но намучается с ним пацан!

...
- А ещё, Леонид Аркадьевич, ребенка мы назвали в честь вашей передачи!
- Оооо, интересно, и как же?
- СекторПриз
- Даа-а, не самое лучшее имя для девочки...

:)
Автор - Serge_007
Дата добавления - 18.12.2020 в 14:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить формулы на любом листе. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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