( ! ) Warning: Parameter 1 to CASDmoderator::onBeforeTopicUpdate() expected to be a reference, value given in /home/bitrix/www/bitrix/modules/main/classes/general/module.php on line 480
Call Stack
#TimeMemoryFunctionLocation
10.0002365776{main}( ).../index.php:0
20.08112898896CMain->IncludeComponent( ).../index.php:9
30.08122899640CBitrixComponent->includeComponent( ).../main.php:1071
40.08142905088CBitrixComponent->__includeComponent( ).../component.php:680
50.08142905824include( '/home/bitrix/www/bitrix/components/bitrix/forum/component.php' ).../component.php:605
60.09933507160CBitrixComponent->includeComponentTemplate( ).../component.php:416
70.09963508224CBitrixComponent->showComponentTemplate( ).../component.php:712
80.09963508224CBitrixComponentTemplate->IncludeTemplate( ).../component.php:764
90.10593838376CBitrixComponentTemplate->__IncludePHPTemplate( ).../component_template.php:884
100.10593838696include( '/home/bitrix/www/bitrix/components/bitrix/forum/templates/.default/read.php' ).../component_template.php:789
110.10593841312CMain->IncludeComponent( ).../read.php:3
120.10643853760CBitrixComponent->includeComponent( ).../main.php:1071
130.10673869880ForumTopicRead->executeComponent( ).../component.php:656
140.13454094736ForumTopicRead->__includeComponent( ).../class.php:70
150.13464097552include( '/home/bitrix/www/bitrix/components/bitrix/forum.topic.read/component.php' ).../component.php:605
160.14134278080ForumSetReadTopic( ).../component.php:309
170.14134278080CAllForumTopic::SetReadLabelsNew( ).../deprecated.php:315
180.14134278456CAllForumTopic::Update( ).../topic.php:738
190.14144279872Bitrix\Forum\Topic::update( ).../topic.php:255
200.14154281912ExecuteModuleEventEx( ).../topic.php:643
Страницы: Пред. 1 2 3 След.
RSS
автофильтр записанный макрорекордером в листе с защитой
 
Почитал справку. Понятно почему не работает. Так устроен автофильтр в VBA.
Bite my shiny metal ass!      
 
по коду не совсем понял. можно на примере отобразить?
 
Что непонятного? Уточните.  
Я только имел в виду, что Ваш код:  
 
Sub отобразить()  
   Selection.AutoFilter Field:=1  
   Range("C18:G18").Select  
End Sub  
 
я рекомендую заменить на этот  
 
Sub отобразить()  
With Sheets("Акт")  
If .FilterMode Then .ShowAllData  
End With  
End Sub  
 
Пример какой нужен? Вы самостоятельно не можете сделать копи-паст?
Bite my shiny metal ass!      
Страницы: Пред. 1 2 3 След.
Читают тему (гостей: 1)
Наверх