Excel макрос(функ-ция) не офрешается - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Программирование и базы данных (http://forum.oszone.net/forumdisplay.php?f=21)

- - Excel макрос(функ-ция) не офрешается (http://forum.oszone.net/showthread.php?t=29598)

Код:



 Public Function stroka()

first_ad = ActiveCell.Address 'берем адрес первой клетки

first_add = Int(Mid(first_ad, 4, Len(first_ad)))

first_colum = ActiveCell.Column ' номер столбца

next_add = Int(Mid(first_ad, 4, Len(first_ad))) 'вычленяем номер клетки

 For next_add = first_add + 1 To 4304

 &nbsp; If Cells(next_add, first_colum).Value &lt;&gt; &quot;&quot; Then

 &nbsp; &nbsp; &nbsp; stroka = Cells(next_add, first_colum).Value

 &nbsp; &nbsp; &nbsp; Exit For

 &nbsp; End If

Next



End Function

Эта фуция, вставляет в ячейку значение следующей в этом столбце не пустой ячейки.
Все работает ок.
Но вот если в пустую ячейку вставить значение, между той ячейкой откуда беруться данные, и где юзается эта функция, то результат не обновиться..
Как исправить ?

ZloiJoker
А при каком событии используется эта функция?

А повторно не запустить? Если тебе нужно именно полный автомат, то посмотри это:
SheetChange Event
Запуск твоей функции надо будет запускать там (тока это будет очень тормозить работу с листом, ИМХО там нужно каким-нить образом проверять необходимость запуска, а уже в случае необходимости - пересчитывать).