( ! ) 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.0001362176{main}( ).../index.php:0
20.06572879744CMain->IncludeComponent( ).../index.php:9
30.06592880488CBitrixComponent->includeComponent( ).../main.php:1071
40.06602885936CBitrixComponent->__includeComponent( ).../component.php:680
50.06612886672include( '/home/bitrix/www/bitrix/components/bitrix/forum/component.php' ).../component.php:605
60.08173489368CBitrixComponent->includeComponentTemplate( ).../component.php:416
70.08203490432CBitrixComponent->showComponentTemplate( ).../component.php:712
80.08203490432CBitrixComponentTemplate->IncludeTemplate( ).../component.php:764
90.08833820264CBitrixComponentTemplate->__IncludePHPTemplate( ).../component_template.php:884
100.08833820584include( '/home/bitrix/www/bitrix/components/bitrix/forum/templates/.default/read.php' ).../component_template.php:789
110.08833823200CMain->IncludeComponent( ).../read.php:3
120.08883835648CBitrixComponent->includeComponent( ).../main.php:1071
130.08903851768ForumTopicRead->executeComponent( ).../component.php:656
140.11794076848ForumTopicRead->__includeComponent( ).../class.php:70
150.11804079664include( '/home/bitrix/www/bitrix/components/bitrix/forum.topic.read/component.php' ).../component.php:605
160.12554260136ForumSetReadTopic( ).../component.php:309
170.12554260136CAllForumTopic::SetReadLabelsNew( ).../deprecated.php:315
180.12554260512CAllForumTopic::Update( ).../topic.php:738
190.12564261928Bitrix\Forum\Topic::update( ).../topic.php:255
200.12564263968ExecuteModuleEventEx( ).../topic.php:643
Страницы: 1 2 3 След.
RSS
Растянуть формулу массива через VBA, Варианты растягивая формулы массива средствами VBA
 
Здравствуйте. Возникла, казалось бы простая задача, растянуть формулу массива до конца последней строки, но по какой то причине это не выходит. Делал так.
В Range("P2: Последняя строка / столбец") у меня имеются формулы ({массивы}).
Я прочитал на форумах, что за вставку массивов отвечает не formula / formular1c1, а FormulaArray.
Растягивать нужно в "P3: последняя строка/столбец"
Код
'Нахожу последний столбец / строку:
lColumnsCnt = wSh_Base_Sales.Cells(1, wSh_Base_Sales.Columns.Count).End(xlToLeft).Column
lLastRow_Prod_Un_C = wSh_Base_Sales.Cells(Rows.Count, 13).End(xlUp).Row


With wSh_Base_Sales
'Копирую формулы в весь диапозон
.Range(.Cells(3, 16), .Cells(lLastRow_Prod_Un_C, lColumnsCnt)).Formula = .Range(.Cells(2, 16), .Cells(2, lColumnsCnt)).Formula
For i = 16 To lColumnsCnt
'Преобразую формулы в массивы
.Range(.Cells(3, i), .Cells(lLastRow_Prod_Un_C, i)).FormulaArray = .Range(.Cells(3, i), .Cells(lLastRow_Prod_Un_C, i)).Formula
Next i
.Calculate
End With
Вся это конструкция не работает. Я не понимаю почему, особенно если учитывать что
Код
wSh_Base_Sales.Range("P3:Q" & lLastRow_Prod_Un_C).Formula = wSh_Base_Sales.Range("P2:Q2").Formula
wSh_Base_Sales.Range("P3:P" & lLastRow_Prod_Un_C).FormulaArray = wSh_Base_Sales.Range("P3:P" & lLastRow_Prod_Un_C).FormulaR1C1
wSh_Base_Sales.Range("Q3:Q" & lLastRow_Prod_Un_C).FormulaArray = wSh_Base_Sales.Range("Q3:Q" & lLastRow_Prod_Un_C).FormulaR1C1
работает без проблем
Ситуация с Range("A1:A2") и Range(Cells (1,1), Cells(1,2)) должна быть одинаковой (так везде в примерах приведено), но у меня это не работает и всегда выдает ошибку.
Изменено: Mirai - 24.10.2016 02:02:42
 
А Вы попробуйте так же, как во втором примере не Formula указывать, а FormulaR1C1. Насколько помню, в справке тоже предлагают применять для формул массива именно этот стиль(хотя может работать и с другим, но велика вероятность ошибок).

P.S. Для оформления кодов на форуме применяется спец.тег: <...>
Изменено: The_Prist - 23.10.2016 17:25:40
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Цитата
The_Prist написал:
А Вы попробуйте так же, как во втором примере не Formula указывать, а FormulaR1C1.
К сожалению так не работает (Error 13 Type Missmatch)
Страницы: 1 2 3 След.
Читают тему (гостей: 1)
Наверх