Excel это не сложно
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
29.03.2024, 15:24:51

Войти
На форуме добавлена возможность подписки на RSS-ленты любого раздела форума. Подписаться можно, нажав на иконку RSS , расположенную левее наименования раздела.
33 233 Сообщений в 5 454 Тем от 6 753 Пользователей
Последний пользователь: malanik777
*
Перейти на сайт Хитрости Надстройка MulTEx Обучающие тренинги Наша группа ВКонтакте
Правила форума Начало Помощь Поиск Календарь Войти Регистрация Выйти
+  Excel это не сложно
|-+  Основные форумы
| |-+  Вопросы по Excel и VBA
| | |-+  Как настроить цикл по всем листам книги
Страниц: [1]   Вниз
Печать
Автор Тема: Как настроить цикл по всем листам книги  (Прочитано 3224 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Venik
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 2


Просмотр профиля
« : 15.02.2019, 13:46:19 »

Имеется книга со множеством листов.
Задача: заменить одни данные в ячейках на другие. Произвести замену на всех листах.

При выполнении макроса (приведен ниже),
замена происходит только на активном листе.
Нет перехода по всем листам. Объясните ошибку.
Код: (vb)

Sub ()
Dim s As Worksheet
Dim wb As Workbook
Set wb=ActiveWorkbook

For Each s In wb.Worksheets

'далее произвожу все нужные замены, приведу одну

Cells.Replace What:="багаж", Replacement:="baggage", _
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Next
End Sub



Записан
Дмитрий Щербаков(The_Prist)
Администратор
Ветеран
*****

Репутация: +485/-0
Офлайн Офлайн

Сообщений: 5 828



Просмотр профиля WWW
« Ответ #1 : 15.02.2019, 14:15:07 »

Как обратиться к диапазону из VBA
Select и Activate - зачем нужны и нужны ли?
Если кратко:

s.Cells.Replace What:="багаж", Replacement:="baggage", _ 
MatchCase:=False, SearchFormat:=False, _ 
ReplaceFormat:=False
Записан

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Пункты приёма Спасибов:    -41001332272872  -R298726502453
Venik
Новичок
*

Репутация: +0/-0
Офлайн Офлайн

Сообщений: 2


Просмотр профиля
« Ответ #2 : 15.02.2019, 17:08:33 »

Спасибо Дмитрий! Всё прекрасно работает.
Записан
Страниц: [1]   Вверх
Печать
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2011, Simple Machines Valid XHTML 1.0! Valid CSS!
Яндекс.Метрика Рейтинг@Mail.ru