VBA формула массива

Пользователь

Сообщений: 15 Регистрация: 01.01.1970

13.12.2011 16:22:52

Подскажите, пожалуйста!

Возникла проблема. Хочу присвоить ячейке формулу массива

Range("G5").FormulaArray = "=sum(if(H5>$B$4:$B$6;1;(H5/$B$4:$B$6)^$C$4:$C$6)*$A$4:$A$6)"

Выдает ошибку, что не может ячейке присвоить формулу массива. Как решить эту проблему?

Пытливый Пользователь Сообщений: 4725 Регистрация: 22.12.2012	#2 13.12.2011 16:26:39 H5>$B$4:$B$6 это вы себе как представляете? $B$4:$B$6<H5 И скобки забыли: (H5/$B$4:$B$6)^($C$4:$C$6))*($A$4:$A$6)) Кому решение нужно - тот пример и рисует.

gelfer Пользователь Сообщений: 15 Регистрация: 01.01.1970	#3 13.12.2011 16:32:29 К сожалению, та же самая ошибка

Пытливый Пользователь Сообщений: 4725 Регистрация: 22.12.2012	#4 13.12.2011 16:35:15 Пока не увижу - не поверю :О) Кому решение нужно - тот пример и рисует.

gelfer Пользователь Сообщений: 15 Регистрация: 01.01.1970	#5 13.12.2011 16:49:50 Файл прикреплен Прикрепленные файлы post_287937.xlsm (18.93 КБ)

Дед_мороз

Гость

13.12.2011 16:56:24

gelfer, ваш пример вообще левый. Там нет кода, который написан вами в 1-м посте

Запомните, что если вы пишите формулу ПО-АНГЛИЙСКИ (SUM, IF, COUNT), то разделителем является ЗАПЯТАЯ

А если вы формулы пишите ПО-РУССКИ (СУММ, ЕСЛИ, СЧЁТ), то разделителем является ТОЧКА С ЗАПЯТОЙ

Range("G5").FormulaArray = "=sum(if(H5>$B$4:$B$6,1,(H5/$B$4:$B$6)^$C$4:$C$6)*$A$4:$A$6)"

p.s. постарайтесь, больше левых примеров не выкладывать. Левые - это когда вы спрашиваете про одну формулу (код), а в приложенном файле у вас другая формула и код

gelfer Пользователь Сообщений: 15 Регистрация: 01.01.1970	#7 13.12.2011 17:01:40 Прошу извинений за допущенную ошибку (про языки), но, к сожалению, разделительные знаки не влияют на работу макроса.

Дед_мороз

Гость

13.12.2011 17:05:48

в вашей русской формулой в макросе я ещё не разбирался, а по поводу вашей английской формулы из первого поста - не уже ли моя формула

Range("G5").FormulaArray = "=sum(if(H5>$B$4:$B$6,1,(H5/$B$4:$B$6)^$C$4:$C$6)*$A$4:$A$6)"

выдаёт у вас ошибку в коде? У меня она срабатывает и в ячейку G5 вставляется формула массива. Вы пробовали её вставить в свой код? Или всё же вам нужна формула не из вашего первого поста, а которая написана в коде макроса?

Дед_мороз Гость	#9 13.12.2011 17:09:58 Перевёл вашу русскую формулу на английский Range("G5").FormulaArray = "=SUM(IF($B$4:$B$6<H5,1,(H5/($B$4:$B$6))^($C$4:$C$6))*($A$4:$A$6))" Работает? У меня да.

gelfer Пользователь Сообщений: 15 Регистрация: 01.01.1970	#10 13.12.2011 17:13:02 Интересна русская версия Range("G5").FormulaArray = "=сумм(если($B$4:$B$6<H5;1;(H5/($B$4:$B$6))^($C$4:$C$6))*($A$4:$A$6))" К сожалению, не работает макрос. Выдает ошибку 1004. "Нельзя установить свойство Formulaarray класса Range."

Дед_мороз Гость	#11 13.12.2011 17:23:42 Я же вам уже ответил в 17:13 Пишите так Range("G5").FormulaArray = "=SUM(IF($B$4:$B$6<H5,1,(H5/($B$4:$B$6))^($C$4:$C$6))*($A$4:$A$6))"

Дед_мороз Гость	#12 13.12.2011 17:24:15 в 17:09

gelfer Пользователь Сообщений: 15 Регистрация: 01.01.1970	#13 13.12.2011 17:29:19 Дед_мороз, я же говорю что при данном написании у меня не работает макрос Может быть мне что-то надо поменять в настройках экселя?

Дед_мороз Гость	#14 13.12.2011 17:32:05 хм, странно всё это. Приложите ещё раз свой файлик (только удалите ненужные (пустые) модули оттуда, лишние макросы, формулу, коды и т.д.), а мы посмотрим. По-идее, ничего в Excel'e настраивать не надо.

gelfer Пользователь Сообщений: 15 Регистрация: 01.01.1970	#15 13.12.2011 17:35:37 Файл ниже Прикрепленные файлы post_287975.xlsm (17.47 КБ)

gelfer Пользователь Сообщений: 15 Регистрация: 01.01.1970	#16 13.12.2011 17:37:18 Файл прикреплен Имеет смысл смотреть последний файл Прикрепленные файлы post_287976.xlsm (17.49 КБ)

Hugo Пользователь Сообщений: 26336 Регистрация: 22.12.2012	#17 13.12.2011 18:32:42 Вам хоть раз подсказали такой вариант? FormulaArray = "=сумм Всюду было FormulaArray = "=SUM

Hugo Пользователь Сообщений: 26336 Регистрация: 22.12.2012	#18 13.12.2011 18:35:05 Sub Кнопка2_Щелчок() Application.ScreenUpdating = False Range("G5").FormulaArray = "=sum(if($B$4:$B$6<H5,1,(H5/($B$4:$B$6))^($C$4:$C$6))*($A$4:$A$6))" Range("G5").GoalSeek Goal:=Range("F5"), ChangingCell:=Range("H5") Range("G5") = Int(Range("H5")) Range("H5") = "" Application.ScreenUpdating = True End Sub

Читают тему