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

Вход

Регистрация

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

 

= Мир MS Excel/Замена ячеек по условию - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Замена ячеек по условию
Vladislav_9Q Дата: Вторник, 02.03.2021, 23:03 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Я сделал зацикленый макрос для замены ячеек, но он выдает ошибку. По идее, когда значений не остается - работа макроса должна закончится, но он продолжает работать.
К сообщению приложен файл: VBA_change_2.0.xlsm (18.1 Kb)
 
Ответить
СообщениеЯ сделал зацикленый макрос для замены ячеек, но он выдает ошибку. По идее, когда значений не остается - работа макроса должна закончится, но он продолжает работать.

Автор - Vladislav_9Q
Дата добавления - 02.03.2021 в 23:03
nilem Дата: Среда, 03.03.2021, 07:08 | Сообщение № 2
Группа: Авторы
Ранг: Старожил
Сообщений: 1613
Репутация: 563 ±
Замечаний: 0% ±

Excel 2013, 2016
Vladislav_9Q, привет
наверное, как-то так:
[vba]
Код
Sub HighlightCells()
Dim cell As Range

For Each cell In Range("A1:A20")
    If cell.Value = "Part 1" Then Range("F2").Copy cell
Next cell
End Sub
[/vba]


Яндекс.Деньги 4100159601573
 
Ответить
СообщениеVladislav_9Q, привет
наверное, как-то так:
[vba]
Код
Sub HighlightCells()
Dim cell As Range

For Each cell In Range("A1:A20")
    If cell.Value = "Part 1" Then Range("F2").Copy cell
Next cell
End Sub
[/vba]

Автор - nilem
Дата добавления - 03.03.2021 в 07:08
Vladislav_9Q Дата: Среда, 03.03.2021, 16:48 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 29
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
наверное, как-то так:

Благодарю. Всё работает
 
Ответить
Сообщение
наверное, как-то так:

Благодарю. Всё работает

Автор - Vladislav_9Q
Дата добавления - 03.03.2021 в 16:48
  • Страница 1 из 1
  • 1
Поиск:

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