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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическая нумерация ячеек по условию (Макросы/Sub)
Автоматическая нумерация ячеек по условию
Anis625 Дата: Вторник, 30.01.2018, 18:33 | Сообщение № 1
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
Добрый вечер.

Подскажите, пожалуйста, возможно ли решить макросами одну задачу?

В настоящее время решаю вопрос нумерации стандартными формулами. Но столкнулся с таким вопросом, что когда добавляю строку или переношу строку в другое место (выше или ниже) нумерация сбивается.

При добавлении строки внутри таблицы и занесении информации со второй колонки в любую ячейку необходимо чтобы в колонке "А" менялась нумерация
Если строка пустая со второго столбца пусть будет 100 столбцов то нумерация не меняется.

Возможно ли сделать автоматическую нумерацию без ручного запуска макроса?

P.S. кросса не будет, обещаю
К сообщению приложен файл: Test.xlsx (10.3 Kb)
 
Ответить
СообщениеДобрый вечер.

Подскажите, пожалуйста, возможно ли решить макросами одну задачу?

В настоящее время решаю вопрос нумерации стандартными формулами. Но столкнулся с таким вопросом, что когда добавляю строку или переношу строку в другое место (выше или ниже) нумерация сбивается.

При добавлении строки внутри таблицы и занесении информации со второй колонки в любую ячейку необходимо чтобы в колонке "А" менялась нумерация
Если строка пустая со второго столбца пусть будет 100 столбцов то нумерация не меняется.

Возможно ли сделать автоматическую нумерацию без ручного запуска макроса?

P.S. кросса не будет, обещаю
Автор - Anis625
Дата добавления - 30.01.2018 в 18:33
Anis625 Дата: Среда, 31.01.2018, 08:32 | Сообщение № 2
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
Как вариант добавил пользовательскую формулу СЧСТРОК().

Возможно ли сделать автоматическое проставление формулы при заполнении строки любыми значениями без ручного запуска макроса (чтобы не протягивать формулу)?
К сообщению приложен файл: Test.xlsm (15.5 Kb)
 
Ответить
СообщениеКак вариант добавил пользовательскую формулу СЧСТРОК().

Возможно ли сделать автоматическое проставление формулы при заполнении строки любыми значениями без ручного запуска макроса (чтобы не протягивать формулу)?
Автор - Anis625
Дата добавления - 31.01.2018 в 08:32
sboy Дата: Среда, 31.01.2018, 09:17 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Самый простой вариант преобразовать в "умную" таблицу и формулу в первый столбец
[vba]
Код
=СТРОКА()-СТРОКА(Таблица1[#Заголовки])
[/vba]
[p.s.] в формульных тэгах ерунда отображается из-за #
К сообщению приложен файл: Test-2-.xlsm (16.5 Kb)

Яндекс: 410016850021169

Сообщение отредактировал sboy - Среда, 31.01.2018, 09:18
 
Ответить
СообщениеДобрый день.
Самый простой вариант преобразовать в "умную" таблицу и формулу в первый столбец
[vba]
Код
=СТРОКА()-СТРОКА(Таблица1[#Заголовки])
[/vba]
[p.s.] в формульных тэгах ерунда отображается из-за #
Автор - sboy
Дата добавления - 31.01.2018 в 09:17
Anis625 Дата: Среда, 31.01.2018, 09:39 | Сообщение № 4
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
Но с этим вариантом не соблюдается главное условие - нумерация ставится только там где есть не пустые строки со второго столбца
 
Ответить
СообщениеНо с этим вариантом не соблюдается главное условие - нумерация ставится только там где есть не пустые строки со второго столбца
Автор - Anis625
Дата добавления - 31.01.2018 в 09:39
sboy Дата: Среда, 31.01.2018, 10:32 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
В примере такого не было, а условия не внимательно прочитал.
Тогда усложним формулу, правда с летучей СМЕЩ
[vba]
Код
=ЕСЛИ(ЕНД(ПРОСМОТР("яяя";Таблица1[@[Столбец1]:[Комментарий]]))*
ЕНД(ПРОСМОТР(9^9;Таблица1[@[Столбец1]:[Комментарий]]));"";
МАКС(Таблица1[[#Заголовки];[№п.п.]]:СМЕЩ([@[№п.п.]];-1;))+1)
[/vba]
К сообщению приложен файл: 8430322.xlsm (16.8 Kb)

Яндекс: 410016850021169
 
Ответить
СообщениеВ примере такого не было, а условия не внимательно прочитал.
Тогда усложним формулу, правда с летучей СМЕЩ
[vba]
Код
=ЕСЛИ(ЕНД(ПРОСМОТР("яяя";Таблица1[@[Столбец1]:[Комментарий]]))*
ЕНД(ПРОСМОТР(9^9;Таблица1[@[Столбец1]:[Комментарий]]));"";
МАКС(Таблица1[[#Заголовки];[№п.п.]]:СМЕЩ([@[№п.п.]];-1;))+1)
[/vba]
Автор - sboy
Дата добавления - 31.01.2018 в 10:32
Karataev Дата: Среда, 31.01.2018, 11:37 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
Идею использовать умную таблицу взял у форумчанина "sboy".
Код
=ЕСЛИ(СЧЁТЗ(Таблица1[@[Задача]:[Комментарий]])<>0;
СЧЁТ($A$3:ИНДЕКС(A:A;СТРОКА()-1;1))+1;"")
К сообщению приложен файл: Test_kar.xlsx (10.0 Kb)
 
Ответить
СообщениеИдею использовать умную таблицу взял у форумчанина "sboy".
Код
=ЕСЛИ(СЧЁТЗ(Таблица1[@[Задача]:[Комментарий]])<>0;
СЧЁТ($A$3:ИНДЕКС(A:A;СТРОКА()-1;1))+1;"")
Автор - Karataev
Дата добавления - 31.01.2018 в 11:37
Anis625 Дата: Среда, 31.01.2018, 12:56 | Сообщение № 7
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
Отлично работает =) в тестовом файле
Подскажите пожалуйста когда переношу формулу в свой файл что нужно подправить?
 
Ответить
СообщениеОтлично работает =) в тестовом файле
Подскажите пожалуйста когда переношу формулу в свой файл что нужно подправить?
Автор - Anis625
Дата добавления - 31.01.2018 в 12:56
Karataev Дата: Среда, 31.01.2018, 13:11 | Сообщение № 8
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
Вам нужно превратить Вашу таблицу в умную таблицу.
Затем вставьте формулу в первый столбец в первую строку. Формула должна автоматически заполнить весь столбец.
Умная таблица должна называться "Таблица1".
Заголовки у столбцов указаны здесь:
[Задача]:[Комментарий]
Вместо $A$3 укажите ячейку, в которой находится первая ячейка шапки таблицы.
Здесь указан столбец с порядковыми номерами. Если у Вас другой, то измените:
ИНДЕКС(A:A
 
Ответить
СообщениеВам нужно превратить Вашу таблицу в умную таблицу.
Затем вставьте формулу в первый столбец в первую строку. Формула должна автоматически заполнить весь столбец.
Умная таблица должна называться "Таблица1".
Заголовки у столбцов указаны здесь:
[Задача]:[Комментарий]
Вместо $A$3 укажите ячейку, в которой находится первая ячейка шапки таблицы.
Здесь указан столбец с порядковыми номерами. Если у Вас другой, то измените:
ИНДЕКС(A:A
Автор - Karataev
Дата добавления - 31.01.2018 в 13:11
Anis625 Дата: Среда, 31.01.2018, 22:22 | Сообщение № 9
Группа: Заблокированные
Ранг: Ветеран
Сообщений: 674
Репутация: 31 ±
Замечаний: 20% ±

Excel 2013
Цитата Karataev, 31.01.2018 в 13:11, в сообщении № 8 ()
Karataev


Огромный респект за классное решение. Все получилось и успел сделать. Добавляю в копилку своих знаний и копилку формул - уже прилично накопилось. Не думал что такое без макросов можно решить.
 
Ответить
Сообщение
Цитата Karataev, 31.01.2018 в 13:11, в сообщении № 8 ()
Karataev


Огромный респект за классное решение. Все получилось и успел сделать. Добавляю в копилку своих знаний и копилку формул - уже прилично накопилось. Не думал что такое без макросов можно решить.
Автор - Anis625
Дата добавления - 31.01.2018 в 22:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматическая нумерация ячеек по условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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