VPF::Запуск пользов функции по откр листа

anvo

Дата 13.3.2007, 14:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 27.6.2006

Репутация: нет
Всего: нет

Подскажите какой код мне необходимо вставить в созданную функцию или изменить какое свойства листа/книги, где используется функция, чтобы пересчет ячеек с формулой происходил при открытии данного листа, а не изменению ячеек в других листах, как сейчас

coderx

Дата 13.3.2007, 15:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 14
Регистрация: 8.9.2005

Репутация: нет
Всего: нет

Сервис -> Параметры -> Вычисления

bilya

Дата 13.3.2007, 15:38 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 112
Регистрация: 3.1.2007

Репутация: 1
Всего: 1

Если при открытии листа, то может быть по событию Worksheet_Activate этого листа? Вроде того:

Код


Private Sub Worksheet_Activate()
MyBestFunction
End Sub

RockClimber

Дата 14.3.2007, 08:09 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 848
Регистрация: 5.5.2006
Где: планета 013 в тен туре

Репутация: 7
Всего: 15

Сервис -> Параметры -> Вычисления - отключаем автоматический пересчет.

Код


Private Sub Worksheet_Activate()
Calculate
End Sub

Вызываем пересчет ячеек.

--------------------

Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.

anvo

Дата 14.3.2007, 10:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 27.6.2006

Репутация: нет
Всего: нет

Цитата(RockClimber @ 14.3.2007, 08:09)

Сервис -> Параметры -> Вычисления - отключаем автоматический пересчет.

Код


Private Sub Worksheet_Activate()
Calculate
End Sub

Вызываем пересчет ячеек.

Так не получилось, т.к. отключается автом. пересчет на всех листах книги.
Решил следующим образом.
В редакторе VBA установил для требуемого листа EnableCalculation = False
Остальные листы пересчитываютс автоматом

А в листе повесил кнопку с кодом:

Код


Private Sub CommandButton1_Click()
ActiveSheet.EnableCalculation = True
ActiveSheet.Calculate
ActiveSheet.Cells("D2").Value = Now
ActiveSheet.EnableCalculation = False
End Sub

Вопрос с вычислением решился ОК!
НО получаю ошибку run error (13) missing type от
ActiveSheet.Cells("D2").Value = Now
и не пойму в чем дело.
Не подскажите, люди добрые

mihanik

Дата 14.3.2007, 11:51 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109

Попробуй так

ActiveSheet.Range("D2").Value = Cstr (Now)

--------------------

Программистами не рождаются, - это родовая травма...

anvo

Дата 14.3.2007, 12:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 27.6.2006

Репутация: нет
Всего: нет

Большое спасибо, получилось!
А в чём была проблема, почему нельзя вернуть в ячейку тип DATE?
Так придется еще дополнительно форматить в вид дд-мм чч-мм для красоты

mihanik

Дата 14.3.2007, 12:58 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109

Думаю, что проблема была в использовании Cells.

формат:

Cells ( RowIndex, ColIndex)

А ты использовал обозначение клетки "D2".

Поэтому пришлось использовать Range

--------------------

Программистами не рождаются, - это родовая травма...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »