Автоматическая нумерация столбцов с учетом скрытых

[cons]

Добрый день!

Помогите реализовать такую задумку:
Нужна автонумерация столбцов. причем при скрытии столбцов нумерация не должна прерываться, а должна продолжаться как будто этих скрытых столбцов нет.
Первый столбец с номером 1 можно считать константным и нескрываемым.
Если сделать простую формулу RC[-1]+1 , то скрытие столбцов нумерацию не меняет. т.е. если было 1,2,3. при скрытии 2го остается 1,3, а надо 1,2.
Стандартную функцию с нужным функционалом не нашел. Решил написать свою. Идея простая - если текущий столбец не скрыт, то берем для него номер предыдущего столбца + 1, если скрыт = оставляем номер не изменным (все равно его видно не будет).
Получилось такое:

Function GetNum(P, R)

If R.ColumnWidth > 0 Then GetNum = P + 1 Else GetNum = P

End Function

P - предыдущая ячейка, R - текущая
Недостатки:
1. по идее, текущую ячейку передавать не надо т.к. мы находимся в ней. недостаток не критичный.
2. не происходит автоматического пересчета при скрытии столбца. т.е. если изменить значение первого столбца, то все расчитается корректно по цепочке с учетом скрытых. а если просто выделить столбец и скрыть - ничего не происходит, нумерация остается прежней. не запускается "автопересчет". Этот недостаток критический т.к. собственно для автоматической перенумерации все и затевается.

P.S. Автоматические вычисления в параметрах Excel включены.

[Dophin]

вот пример. повесил макрос на селекшон чейнж. то есть пересчитывается при каждом изменении положения курсора.

Вообщем задумка есть, прикрутите куда надо)

[alex77755]

можно формулой

=ЕСЛИ(ЯЧЕЙКА("ширина";A1)<>0;A1+1;A1)

только в модуле листа принудительній пересчёт:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Лист1.Calculate
End Sub

[cons]

Спасибо!
Пересчет в Worksheet_SelectionChange помогает.
Не идеально (приходится на другую ячейку "встать"), но вполне работает.

[SilverSmallFish]

Здравствуйте! Извеняюсь что вклинилась в тему, но у меня почти такая же проблемка, только с учётом скрытых строк и плюс есть объединённые ячейки которые считать не надо.

Заранее спасибо!

[SAS888]

Посмотрите вложение. При открытии файла, перехватываются ID команд скрытия и отображения строк и столбцов в соответствующих контекстных меню и назначается свой макрос, который скрывает и отображает строки и столбцы, а также перенумеровывает по порядку видимые строки (столбцы) во всем рабочем диапазоне листа. Попробуйте.

[SilverSmallFish]

SAS888 спасибо вам за помощь!

Но у меня скрытие строк, это следствие работы фильтра, и поэтому вся процедура заканчивается на Selection.Address = Selection.EntireRow.Address, оно у меня FALSE.
Возможно вы мне подскажите как выйти из этого положения, я пробовала видо изменить, ваш код, но тогда он не игнарирует объединёные ячейки и нумерует всё подряд. Вот так.

Заранее спсибо!

[SAS888]

Для автофильтра (об нужно было сказать сразу), естественно, предложенный выше метод не годится.
Не хочу гадать и самостоятельно создавать файл, т.к. точно не знаю, как он должен выглядеть.
Прикрепите пример файла с Вашими объединенными ячейками. На другом листе покажите то, что Вам хотелось бы видеть после работы автофильтра (вставьте данные "вручную").

[SilverSmallFish]

SAS888 вот файл, надеюсь будет понятно!

Заранее спасибо!

[SAS888]

Посмотрите вложение. Что не так?