{quote}{login=Jao}{date=31.05.2010 11:26}{thema=Автоматическая нумерация строк, устойчивая к сортировке}{post}Всем привет.  
Нужны идеи о том, как в excel создать identity столбец. То есть столбец, автоматически заполняемый последовательными номерами записей.  
Решения типа "=R[-1]+1" и "=СТРОКА()-1" не подходят из-за того, что при сортировке данных номера, создаваемые этими формулами, остаются как были и перестают соответствовать своим записям.
Спасибо!{/post}{/quote}  
 а как данные заполняться будут через форму или в лист хотя в любом случае надо макросом да и ваш пример в каком столбце ид

{quote}{login=Jao}{date=31.05.2010 11:26}{thema=Автоматическая нумерация строк, устойчивая к сортировке}{post}  
Нужны идеи о том, как в excel создать identity столбец.{/post}{/quote}  
Иногда возможна привязка к данным. Покажите кусочек.

замените 7 строку кода  
.Cells(ilastrow, 1) = Application.Max(Range("A:A")) + 1  
забыл про сортировку

{quote}{login=R Dmitry}{date=01.06.2010 12:36}{thema=1}{post}бд начинается с первой строки.  
нет файла нет точного решения{/post}{/quote}  
Да дело-то не в конкретном файле. Часто встречается задачи, когда приходится использовать айдишники для имитации select запросов. Типа вот такая формула:  
"=VLOOKUP(MAX((condition1)*(condition2)*id),range,column,true)". Она позволяет произвести поиск одной записи в таблице по определенным критериям и получить ее id, затем получить содержимое другого столбца той же таблицы по этому id.    
Подобный подход я использую во многих книгах excel 2007 совместно с таблицами.  
Но! Приходится для таких таблиц выключать автофильтр, ибо при сортировке связь между записью и айдишником теряется.

{quote}{login=R Dmitry}{date=01.06.2010 12:33}{thema=Re: Re: Автоматическая нумерация строк, устойчивая к сортировке}{post}Private Sub Worksheet_Change(ByVal Target As Range)  
If Not Intersect(Target, [B:B]) Is Nothing _
      Then  
      Dim ilastrow As Long  
   With Sheets("Лист1")  
       ilastrow = .Cells(Rows.Count, 2).End(xlUp).Row  
       .Cells(ilastrow, 1) = Val(.Cells(ilastrow - 1, 1)) + 1  
       End With  
      End If  
End Sub  
в Лист1, id первый столбец, событие во втором{/post}{/quote}  
 
Макрос - это, конечно, хорошо. Делал макрос, работавщий на уровне всей книги и обслуживавший в ней все таблицы, в которых встречается столбец с определенным именем ("#"). НО!  
 
Когда макрос записывает значение ячейки, undo history обнуляется. Что неприемлемо для пользователя. Представьте, пользователь вводит данные, используя TAB, и каждый раз, когда создается новая строка и срабатывает макрос, отмена последних действий становится невозможна. :(  
 
Еще пробовал написать макрофункцию, которая использует CustomProperties листа, добавляя в них новое свойство (аналогично базам данных). При каждом обращении к ней эта функция увеличивает значение такого свойства на 1 и возвращает его. Работает. НО!  
 
При добавлении новой строки excel пересчитывает все формулы столбца с этой функцией и получается, что айдишники каждый раз раздаются заново. :(((

Уважаемые господа!  
Я ищу решение не для конкретной задачи, а обощенное. Такое, которое потом можно перенести в надстройку и оно будет работать везде.  
Поэтому код, котором зашиты имена листов, адреса диапазонов и другие привязки (исключая те, которые станут несложным правилом, например название identity столбца таблицы должно быть id) не подходит.  
Спасибо!

При добавлении новой строки excel пересчитывает все формулы столбца с этой функцией и получается, что айдишники каждый раз раздаются заново------  
 
 
я не знаю что у вас за бд при которой меняются ид при добавлении строки.  
И вообще если вы используете excel как бд, то лучше данные просматривать через сводную, там те же фильтры, те же данные, но бд нерушима.

{quote}{login=Jao}{date=01.06.2010 09:55}{thema=Re: 1}{post}  
Да дело-то не в конкретном файле. Часто встречается задачи, когда приходится использовать айдишники для имитации select запросов. Типа вот такая формула:  
"=VLOOKUP(MAX((condition1)*(condition2)*id),range,column,true)". Она позволяет произвести поиск одной записи в таблице по определенным критериям и получить ее id, затем получить содержимое другого столбца той же таблицы по этому id.    
Подобный подход я использую во многих книгах excel 2007 совместно с таблицами.  
Но! Приходится для таких таблиц выключать автофильтр, ибо при сортировке связь между записью и айдишником теряется.{/post}{/quote}  
 
Вот пример для таблиц 2007. добавляйте данные в Столбец2 под таблицей

Кто подскажет как реализована функция протягивания столбцов и строк с автоматической нумерацией в примере от Михаила. Не могу понять как задан массив, в диспетчере имен ничего такого нет, может не там смотрю? Спасибо!

в списках 2003  это тоже, кстати, есть

А строка()чё разве не прёт?

Обратно не понял..  
Как строка может сбой давать?..

{quote}{login=}{date=07.06.2010 09:48}{thema=Re: }{post}Попробуйте удалить любую строку (корме последней) и потом добавить запись.{/post}{/quote}Попробовал. Всё отлично работает. Включая и последнюю строку тоже.

Игорь, согласен. Но, даже если и удалять строки, и если это действительно БД, и разговор про ID, то теряется весь смысл. См. моё сообщение от 01.06.2010, 20:43