Доброго времени, прошу помочь. Стоит задача: 1. по подсчету количества строк от и до заданных ячеек; 2. проставление нумерации по порядку от и до заданных ячеек. Пример во вложении. Спасибо
Доброго времени, прошу помочь. Стоит задача: 1. по подсчету количества строк от и до заданных ячеек; 2. проставление нумерации по порядку от и до заданных ячеек. Пример во вложении. СпасибоAVL
При добавлении строк, формулы не будут обновляться, если не отформатировать диапазон как таблицу. Нумерация строк с доп. столбцом (см. в файле). [p.s.]Формулу для нумерации писала с расчетом на то, что между "end" и следующим "Start" всегда 1 строка, как в примере.[/p.s.]
AVL, здравствуйте. Количество строк внутри блока можно например так посчитать:
При добавлении строк, формулы не будут обновляться, если не отформатировать диапазон как таблицу. Нумерация строк с доп. столбцом (см. в файле). [p.s.]Формулу для нумерации писала с расчетом на то, что между "end" и следующим "Start" всегда 1 строка, как в примере.[/p.s.]Manyasha
AVL, да, удаление строк я не проверила. Тогда можно на изменение листа повесить небольшой код:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) With Application .EnableEvents = False .ScreenUpdating = False End With Range("C2").AutoFill Destination:=Range("Таблица2[кол-во]"), Type:=xlFillDefault Range("A2").AutoFill Destination:=Range("Таблица2[Доп стобец]"), Type:=xlFillDefault Range("D2").AutoFill Destination:=Range("Таблица2[Номер]"), Type:=xlFillDefault With Application .EnableEvents = True .ScreenUpdating = True End With End Sub
[/vba]
AVL, да, удаление строк я не проверила. Тогда можно на изменение листа повесить небольшой код:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) With Application .EnableEvents = False .ScreenUpdating = False End With Range("C2").AutoFill Destination:=Range("Таблица2[кол-во]"), Type:=xlFillDefault Range("A2").AutoFill Destination:=Range("Таблица2[Доп стобец]"), Type:=xlFillDefault Range("D2").AutoFill Destination:=Range("Таблица2[Номер]"), Type:=xlFillDefault With Application .EnableEvents = True .ScreenUpdating = True End With End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
