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

Вход

Регистрация

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

 

= Мир MS Excel/Как зациклить функцию IF - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как зациклить функцию IF (Формулы/Formulas)
Как зациклить функцию IF
Tavlar Дата: Среда, 13.05.2020, 11:30 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Здравствуйте.

[vba]
Код
If IsEmpty(ActiveCell) = True Then
  ActiveCell.Value = Number
Else
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Number
End If
[/vba]

Как сделать так, чтобы если ячейка не пустая сделать активной ячейку ниже и заново проверить пустая она или нет?
Т.е. чтобы по циклу проверять ячейки, пока не обнаружится пустая
 
Ответить
СообщениеЗдравствуйте.

[vba]
Код
If IsEmpty(ActiveCell) = True Then
  ActiveCell.Value = Number
Else
ActiveCell.Offset(1, 0).Select
ActiveCell.Value = Number
End If
[/vba]

Как сделать так, чтобы если ячейка не пустая сделать активной ячейку ниже и заново проверить пустая она или нет?
Т.е. чтобы по циклу проверять ячейки, пока не обнаружится пустая

Автор - Tavlar
Дата добавления - 13.05.2020 в 11:30
Nic70y Дата: Среда, 13.05.2020, 12:31 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6145
Репутация: 1357 ±
Замечаний: 0% ±

ru13;10;03
по циклу проверять
может не надо цикла?
[vba]
Код
    If ActiveCell <> "" Then
        u_1 = ActiveCell.End(xlDown).Row
        u_2 = Rows.Count
        u_3 = ActiveCell.Column
        u_4 = Cells(Rows.Count, u_3).End(xlUp).Row
        If u_1 = u_2 Then u_1 = u_4
        Cells(u_1 + 1, u_3).Select
    End If
[/vba]


Яндекс Деньги 41001841029809
 
Ответить
Сообщение
по циклу проверять
может не надо цикла?
[vba]
Код
    If ActiveCell <> "" Then
        u_1 = ActiveCell.End(xlDown).Row
        u_2 = Rows.Count
        u_3 = ActiveCell.Column
        u_4 = Cells(Rows.Count, u_3).End(xlUp).Row
        If u_1 = u_2 Then u_1 = u_4
        Cells(u_1 + 1, u_3).Select
    End If
[/vba]

Автор - Nic70y
Дата добавления - 13.05.2020 в 12:31
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как зациклить функцию IF (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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