ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как сделать чтобы фунция обновлялась
8 сообщений из 8, страница 1 из 1
как сделать чтобы фунция обновлялась
    #33380615
Armani
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Armani
Участник
Есть функция, которая производит операцие с данными на разных листах, функция моя, но при изменении значения на листе, ее значение не пересчитывается. Как сделать, чтобы она автоматически пересчитывалась может, что то добавить в ее параметры
...
Рейтинг: 0 / 0
16.11.2005, 10:15:47
| Ответить | Цитировать | Написать  
как сделать чтобы фунция обновлялась
    #33380626
Фотография Sinner
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sinner
Участник
совсем ничего не понятно....
какая функция, пользовательская, которая потом в листе Excel в формуле используется, пример в студию не помешает....
...
Рейтинг: 0 / 0
16.11.2005, 10:20:23
| Ответить | Цитировать | Написать  
как сделать чтобы фунция обновлялась
    #33380659
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
Может диаразон данных меняется ? (местоположение данных ?)
...
Рейтинг: 0 / 0
16.11.2005, 10:30:56
| Ответить | Цитировать | Написать  
как сделать чтобы фунция обновлялась
    #33380970
Armani
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Armani
Участник
Нужно считать сумму выручек по каждому подразделению
и получать итоговую
листы могут добавляться и называются подразделение1, подразделение2 и т.д.
функция простая - в итоговом листе (итоге), должна пересчитываться при добавлении новых листов

Function sumalllist()
Dim wk As Worksheet
On Error Resume Next
sumalllist = 0
For Each wk In ThisWorkbook.Worksheets
If InStr(wk.Name, "подразделение") <> 0 Then
sumalllist = sumalllist + wk.Range("CM69").Value
End If
Next
End Function

как это сделать?
...
Рейтинг: 0 / 0
16.11.2005, 12:04:59
| Ответить | Цитировать | Написать  
как сделать чтобы фунция обновлялась
    #33381092
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
В модуле книги.

Код: plaintext
1.
2.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Call sumalllist
End Sub

Код: plaintext
1.
2.
Private Sub Workbook_NewSheet(ByVal Sh As Object)
    Call sumalllist
End Sub
...
Рейтинг: 0 / 0
16.11.2005, 12:33:01
| Ответить | Цитировать | Написать  
как сделать чтобы фунция обновлялась
    #33381654
Armani
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Armani
Участник
4, попробовал не получается.
Функция вызывается из листа книги и там значение не обновляется.
Хотя после добавления данных процедур при изменении значения ячейки, функция вызывается
...
Рейтинг: 0 / 0
16.11.2005, 14:48:36
| Ответить | Цитировать | Написать  
как сделать чтобы фунция обновлялась
    #33381752
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sergeyvg
Гость
надо не вызов функции делать, а пересчитать ячейки, в которых эта функция вызывается

Код: plaintext
1.
2.
3.
4.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Application.EnableEvents = False
  Worksheets("Лист3").Range("A1").Calculate
  Application.EnableEvents = True
End Sub
...
Рейтинг: 0 / 0
16.11.2005, 15:15:26
| Ответить | Цитировать | Написать  
как сделать чтобы фунция обновлялась
    #33381872
глупыйглупый
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
глупыйглупый
Гость
пример:
http://www.sql.ru/forum/actualthread.aspx?tid=211718&hl=volatile#1824184

волшебное слово
Application.Volatile
...
Рейтинг: 0 / 0
16.11.2005, 15:46:56
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / как сделать чтобы фунция обновлялась
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2185548]:
 0ms
get settings:
 8ms
get forum list:
 22ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 100ms
get topic data:
 10ms
get first new msg:
 7ms
get forum data:
 3ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 242ms
total:  435ms
созд. / загр.: 435ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]