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

Вход

Регистрация

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

 

= Мир MS Excel/Нумерация ячеек с непустыми значениями - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Нумерация ячеек с непустыми значениями (Макросы/Sub)
Нумерация ячеек с непустыми значениями
yaweg87 Дата: Пятница, 08.10.2021, 03:19 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Доброго времени суток.

Есть табличка: № п/п в "A2:A16" и "C2:C16" и значениями в "B2:B16" и "D2:D16". В "F2" (Cells 2, 6) значение с которого начинается нумерация.

Помогите, пожалуйста, добавить проверку, что проставлять нумерацию в "A" и "C" только в случае, если соответствующие ячейки "B" и "D" со значениями не пустые.
Т.е. должно получиться как в "J2:M16"

Спасибо.

[vba]
Код
Sub Nomber()

    i = Cells(2, 6)
        For Each c In Range("A2:A16,C2:C16")
        c.Value = i
        i = i + 1
    Next

End Sub
[/vba]
К сообщению приложен файл: 3033096.xlsm(18.3 Kb)


Сообщение отредактировал yaweg87 - Пятница, 08.10.2021, 03:41
 
Ответить
СообщениеДоброго времени суток.

Есть табличка: № п/п в "A2:A16" и "C2:C16" и значениями в "B2:B16" и "D2:D16". В "F2" (Cells 2, 6) значение с которого начинается нумерация.

Помогите, пожалуйста, добавить проверку, что проставлять нумерацию в "A" и "C" только в случае, если соответствующие ячейки "B" и "D" со значениями не пустые.
Т.е. должно получиться как в "J2:M16"

Спасибо.

[vba]
Код
Sub Nomber()

    i = Cells(2, 6)
        For Each c In Range("A2:A16,C2:C16")
        c.Value = i
        i = i + 1
    Next

End Sub
[/vba]

Автор - yaweg87
Дата добавления - 08.10.2021 в 03:19
Nic70y Дата: Пятница, 08.10.2021, 08:12 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7158
Репутация: 1652 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub Nomber()

    i = Cells(2, 6)
        For Each c In Range("A2:A16,C2:C16")
        If c.Offset(, 1) <> "" Then
            c.Value = i
            i = i + 1
        End If
    Next

End Sub
[/vba]


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub Nomber()

    i = Cells(2, 6)
        For Each c In Range("A2:A16,C2:C16")
        If c.Offset(, 1) <> "" Then
            c.Value = i
            i = i + 1
        End If
    Next

End Sub
[/vba]

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

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