Как уберечь Excel от #Value при вставке формул

@Andand · Регистрация: 11.12.2008

Author24 — интернет-сервис помощи студентам

Привет ALL! Помоги please решить застарелую проблему. Excel 97
Объясню проблему на примере.
Возьмем примитивную функцию:

Visual Basic

Function AAA1(Diap As Range) 'Diap - диапазон из n ячеек
Dim c, n
n = 0
 For Each c In Diap
  c.Select
  n = n + 1
 Next c
AAA1 = n
End Function

Если вставить эту функцию в Sheet1 книги, определить для Diap несколько ячеек, результатом и будет это количество ячеек n. Затем вставляем в книгу еще листы Sheet2, Sheet3, Sheet4, Sheet5.....и копируем в них нашу функцию. Теперь удаляем к примеру лист Sheet4 и офигеваем в листах 1,2,5 значение n меняется на #Value. Лист3 становится активным и результат в нем = n . Получается если лист в книге после удаления станавится активным, результат отображается правильно, в остальных случаях он заменяется на #Value.
ЧТО СДЕЛАТЬ ЧТОБЫ ЭТО #VALUE НЕ ПОЯВЛЯЛОСЬ ?
Можно конечно в остальных листах восстановить правильные значения, если в диапазоне Diap выполнить какое либо действие, например Del. Что еще заметил так это то, что если в примере убрать цикл For ...Next то при удалении листов #Value не появляется.

В моей задаче функции сложнее и их много, часто приходится удалять листы из книги и там где в ячейках функции значения меняются на сплошные #Value, раздражает постоянно востанавливать их к нормальному виду.
ПОМОГИТЕ ПОЖАЛУЙСТА !!!!!!!!!!!!!!!!!!!!!!!!!!!!

@Andand · 29.10.2009, 20:07 **[ТС]**

Если кто читал, и были мысли или идеи, напишите хоть что-нибудь, а то я прям не знаю есть тут кто

@brovey · 30.10.2009, 12:16

День добрый.

Судя по всему Excel в Вашем коде не нравится строка:
c.Select
Мне она тоже не нравится.

После удаления листа Excel выполняет пересчет книги (естественно если у Вас в параметрах установлен Автоматический пересчет). На этой строчке он скорее всего и спотыкается. Бо перед тем как сделать ячейку SELECT необходимо сделать лист, на котором находится ячейка, ACTIVATE. Поэтому на активном листе пересчет выполняется корректно, на остальных же функция завершает работу, как только наткнется на c.Select.

Попробуйте убрать эту строчку из кода. ИМХО проблема пропадет.

@Andand · 30.10.2009, 23:26 **[ТС]**

Добрый вечер brovey!
Спасибо за отзыв!
Убрал c.Select кое-что подправил и о чудо, все заработало как надо.
За что премного благодарен.

@Andand 0 / 0 / 0 Регистрация: 11.12.2008 Сообщений: 10
	29.10.2009, 20:07 [ТС]	2
	Если кто читал, и были мысли или идеи, напишите хоть что-нибудь, а то я прям не знаю есть тут кто 0

@brovey 0 / 0 / 0 Регистрация: 28.04.2009 Сообщений: 13
	30.10.2009, 12:16	3
	День добрый. Судя по всему Excel в Вашем коде не нравится строка: c.Select Мне она тоже не нравится. После удаления листа Excel выполняет пересчет книги (естественно если у Вас в параметрах установлен Автоматический пересчет). На этой строчке он скорее всего и спотыкается. Бо перед тем как сделать ячейку SELECT необходимо сделать лист, на котором находится ячейка, ACTIVATE. Поэтому на активном листе пересчет выполняется корректно, на остальных же функция завершает работу, как только наткнется на c.Select. Попробуйте убрать эту строчку из кода. ИМХО проблема пропадет. 0

@Andand 0 / 0 / 0 Регистрация: 11.12.2008 Сообщений: 10
	30.10.2009, 23:26 [ТС]	4
	Добрый вечер brovey! Спасибо за отзыв! Убрал c.Select кое-что подправил и о чудо, все заработало как надо. За что премного благодарен. 0