Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Excell не пересчитывает автоматом формулы, содержащие пользовательские функции
 
#1
08.04.2011 12:11:09
Excell 2003. Вставил  модуль с пользовательской функцией. При этом ячейки с формулами, содержащими эту функцию не пересчитываются автоматически - только при пинке Alt-Ctrl_F9. В  настройках, ессно, указано пересчитывать автоматом. Формулы, не обращающиеся к этой функции пересчитываются нормально, автоматом. Вопрос: Как заставить пересчитывать автоматом ВСЕ формулы, даже включающие пользовательские функции.
 
 
 
#2
08.04.2011 12:12:41
Добавить в функции другие, летучие.
 
 
 
#3
08.04.2011 12:20:52
Добавьте в текст каждой пользовательской функции, желательно первым исполняемым оператором:  
Application.Volatile
 
 
 
#4
08.04.2011 12:44:53
Увы, не помогает ни тот ни другой ни оба вместе... :-(((  
Ничего не изменилось. Не помогает даже изменение высоты строки (мышкой)  
Функция для подсчета ячеек с определённым цветом фона:  
 
Function color_count(my_range As Range, active_color_cell As Range) As Integer  
Application.Volatile  
curdate = Now() - 1  
color_count = 0  
active_color = active_color_cell.Interior.ColorIndex  
 
For Each cc In my_range.Cells  
 
If cc.Interior.ColorIndex = active_color Then  
color_count = color_count + 1  
End If  
 
Next cc  
End Function
 
 
 
#5
08.04.2011 12:55:20
привяжите пересчет к событию Worsheet_SelectionChange и после смены фона ячейки переходите на другую ячейку
 
 
 
#6
11.04.2011 17:02:28
Если не сложно, можно чуть подробнее, что вписать в тело модуля?  
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
 
?????????????????????  
 
End Sub
 
 
 
#7
11.04.2011 17:06:46
Application.Calculate - все книги и листы  
или  
Target.Worksheet.Calculate - лист, на котором произошло событие  
 
пс. это не "тело модуля", это тело процедуры ;)
 
 
 
#8
11.04.2011 17:15:38
The_Prist, а Target.Worksheet.Calculate не сработает? или медленнее будет на пару миллионных долей секунды? :)
 
 
 
#9
11.04.2011 17:25:27
Спасибо. Заработало.  
Но обнаружился пренеприятнейший побочный эффект: невозможность вставки. В меню пункт "вставить" неактивен (хотя в буфере есть данные), а при выполнении, например, кода:  
 
Columns("A:B").Select  
   Selection.Copy  
   Columns("BA:BB").EntireColumn.Select  
   ActiveSheet.Paste  
 
выдаётся сообщение об ошибке.  
 
Может у кого есть ещё идеи???
 
 
 
#10
11.04.2011 17:44:50
Me.usedrange.Calculate  
Работает без побочных эффектов!!!  
 
Спасибо всем принявшим участие, и отдельное спасибо The_Prist!!!
 
 
 
#11
11.04.2011 17:49:28
ясно, а то я испугался немножко поначалу.  
согласен, Me - и короче, и красивше.  
просто до сих пор я до этого не дошёл.  
теперь запомню, спасибо.
 
 
 
#12
11.04.2011 19:02:17
Дим, а чем плохо  
Range("A:B").Copy [BA1]
?
Я сам - дурнее всякого примера! ...
 
 
 
#13
11.04.2011 19:15:39
И правильней:  
Intersect(ActiveSheet.UsedRange, [a:b]).Copy [ba1]
Я сам - дурнее всякого примера! ...
 
 
 
#14
11.04.2011 19:29:00
А как в таком выражении со второй строки?  
Range("BA:BB").EntireColumn  
или в таком:  
Range("A:B").Copy [BA1]
Но во всех случаях(кроме случая, когда столбец полностью заполнен) решает  
Intersect(ActiveSheet.UsedRange, [a:b]).Copy [ba1]
Я сам - дурнее всякого примера! ...
 
 
 
#15
11.04.2011 19:32:53
{quote}{login=KukLP}{date=11.04.2011 07:29}{thema=}{post}Но во всех случаях(кроме случая, когда столбец полностью заполнен) решает  
Intersect(ActiveSheet.UsedRange, [a:b]).Copy [ba1]{/post}{/quote}
 
а если UsedRange на листе начинается не с первой строки?  
результат будет немного неожиданным для пользователя? :)
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#16
11.04.2011 19:46:18
А почему мы априори считаем пользователя полным идиотом? И кто ему мешает вместо [BA1] указать [BA5] и т.д. И UsedRange врядли будет часто ерзать по листу. Но если так уж хочется копировать колонки целиком - на здоровье, есть предыдущие два варианта. Вариант с Intersect как раз для того, чтоб не копировать лишнее.
 
П.С. если задаться целью придумывать разные А ЕСЛИ, то и за комп садиться не стоит:-)
Я сам - дурнее всякого примера! ...
 
 
 
Страницы: 1
Читают тему
Наверх