Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

Макрос для автоматической нумерации ячеек

Автор Nikitos, 07.05.2024, 18:53

« назад - далее »

Nikitos

Подскажите пожалуйста, имеется такой макрос:
Sub autonumber()
Dim i As Integer
i = 1
For Each cell In Selection
cell.Value = i & ". " & cell.Value
i = i + 1
Next cell
End Sub
Суть в том, что имеется спецификация, заголовки выполнены жирным шрифтом, позиции - обычным, как сделать так, чтоб он нумеровал позиции после заголовка в заданном диапазоне, а при наличии нескольких заголовков нумерация начиналась сначала

Владимир .

Добрый день.
Будет нагляднее если вы прикрепите свой файл-пример. Укажете с чего начинается ваша манипуляция, в каком месте должен срабатывать макрос, какие варианты у вас могут иметь место.

Hugo121

Проверять жирность. Если да - то сбрасываем счётчик на 1, но его не ставим.
webmoney: E265281470651 Z422237915069

Nikitos