Новости
Видео
Microsoft
Windows 10
Железо
Программы
Форум

Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Excel макрос(функ-ция) не офрешается

Ответить
Настройки темы
Excel макрос(функ-ция) не офрешается

Пользователь


Сообщения: 124
Благодарности: 0

Профиль | Сайт | Отправить PM | Цитировать

Код: Выделить весь код
 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
   If Cells(next_add, first_colum).Value <> "" Then
       stroka = Cells(next_add, first_colum).Value
       Exit For
   End If
Next

End Function


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

-------
click.hardart.ru

Отправлено: 16:31, 01-07-2004

 

Аватара для melix

Новый участник


Сообщения: 21
Благодарности: 0

Профиль | Отправить PM | Цитировать

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

Отправлено: 11:08, 07-07-2004 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для Greyman

Человек


Сообщения: 3313
Благодарности: 104

Профиль | Отправить PM | Цитировать

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

-------
Будь проще...

Отправлено: 11:40, 13-07-2004 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Программирование и базы данных » Excel макрос(функ-ция) не офрешается

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
Скрипт, макрос, не знаю как назвать Military Хочу все знать 2 26-08-2009 18:54
Любой язык - [решено] Excel. Создать макрос и выполнить его из Perl sergvg Скриптовые языки администрирования Windows 2 06-08-2009 08:03
Простой макрос. Excel. Не могу написать. prosims Программирование и базы данных 5 07-05-2007 09:11
Макрос Excel работает после перезагрузки :( Guest Программирование и базы данных 1 11-05-2004 08:43
Макрос в Екселе Mleonid Программирование и базы данных 1 25-02-2004 21:29


« Предыдущая тема | Следующая тема »


 
Переход