Формулы массива vba excel

 

IgorBoot

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

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

#1

13.11.2018 22:39:22

Добрый вечер Уважаемые Эксперты.

К своему большому стыду не смог самостоятельно разобраться, с тем как с помощью VBA выносить на лист, в диапазон ячеек т.н. формулы массива.
Это даже несмотря на то, что на этом и аналагичных ресурсах подобная проблематика поднималась и показывались некоторые решения.
Итак, у нас имеются три столбца:
— Первый столбец содержит номер текущей строки.
— Второй столбец содержит последовательный набор чисел от 1 до 4, с повторениями, будем считать что это номер участка
— Третий столбец содержит некоторый произвольный набор чисел.
Помимо этого у нас имеется вспомогательная ячейка
— Cells(4, 5) — вспомогательный максимум для столбца с текущими строками
И два столбца для поиска максимума по условию, один на листе, другой на VBA
— Четвертый столбец — Максимум по условию написанные на листе
— Пятый столбец — Максимум по условию написанные с помощью VBA
Формула для  максимума на листе выглядит следующим образом:

Код 
{=МАКС(ЕСЛИ(ДВССЫЛ("R10C[-5]:R"&R4C5&"C[-5]";ЛОЖЬ)=RC[-1];ДВССЫЛ("R10C[-4]:R"&R4C5&"C[-4]";ЛОЖЬ)))}

Данная формула на листе работает, к ней притензий нет.
И формула максимума с помощью VBA:

Код 
Range(Cells(13, 8), Cells(16, 8)).FormulaArray = "=MAX(IF(INDIRECT(""R10C[-5]:R""&R4C5&""C[-5]"";FALSE)=RC[-1];INDIRECT(""R10C[-4]:R""&R4C5&""C[-4]"";FALSE)))"

При компиляции программы на этой строке выдается ошибка 1004.
Причины мне к сожалению не ясны. И если быть предельно честным, мне не удалось даже значительно более простую формулу массива поместить просто в ячейку используя VBA.

Прошу помочь разобраться.

Благодарю.

Прикрепленные файлы

  • Вопрос_по_Формуле_Массива.xlsm (15.17 КБ)

Изменено: IgorBoot — 13.11.2018 22:41:37
 

БМВ

Модератор

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

Excel 2013, 2016

#2

13.11.2018 23:11:23

разделитель ; в коде заменит на , и вставлять в одну ячейку, после протянуть или копи пэст на нужный диапазон.

Код 
Cells(13, 7).FormulaArray = "=MAX(IF(INDIRECT(""R10C[-5]:R""&R4C5&""C[-5]"",FALSE)=RC[-1],INDIRECT(""R10C[-4]:R""&R4C5&""C[-4]"",FALSE)))"

Изменено: БМВ — 13.11.2018 23:14:28

По вопросам из тем форума, личку не читаю.

 

это капец!
ну Бог с ним формулы писать, но медведи уже начали программировать!!!
а люди все задают и задают вопросы

Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

 

БМВ

Модератор

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

Excel 2013, 2016

Изменено: БМВ — 13.11.2018 23:27:30

По вопросам из тем форума, личку не читаю.

 

IgorBoot

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

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

#5

13.11.2018 23:23:56

Уважаемый

БМВ

.
Спасибо за ответ. Про запятые не знал за это отдельное спасибо.
В адресации я ошибся, но уже поправил, могу если есть необходимость, дать актуальную адресацию в коде.
Уважаемый

БМВ

, позвольте  уточнить

Цитата
вставлять в одну ячейку, после протянуть или копи пэст на нужный диапазон.

почему нельзя сразу на весь диапазон задавать? я уже попробовал и у меня к сожаленею не получилось. Везде выдается одно и тоже значение.
Если идти по сценарию «Copy—>Paste», то получается в диапазоне будет опять использоваться .FormulaArray?

Благодарю за Ответ.
 

БМВ

Модератор

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

Excel 2013, 2016

#6

13.11.2018 23:33:59

IgorBoot,
При вставке, как у вас было, весь диапазон указанный ставится в соответвии с полученным массивом который формируется первой формулой, но у вас там только одно значение. Попробуйте введите ={1;2;3;4} в ячейку. потом выделив четыре ячейки ввести как формулу массива. получится 1,2,3,4 в каждой из них, но если сделать тоже но ={1} во всех будет 1.
Copy-past означает копирование формулы в диапазон, а не повторение. операции.
но я б сделал так

Код 
Selection.AutoFill Destination:=Range("G13:G16"), Type:=xlFillDefault

Изменено: БМВ — 13.11.2018 23:34:17

По вопросам из тем форума, личку не читаю.

 

IgorBoot

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

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

#7

13.11.2018 23:34:30

Уважаемый

БМВ

Код 
=MAX(IF($B$10:INDEX(B:B;$E$4)=F13;$C$10:INDEX(C:C;$E$4)))

Я прошу прощения, но данная формула выдает ошибку 1004

Ее я запускал и с FormulaArray  и просто с Formula

Изменено: IgorBoot — 13.11.2018 23:35:35
 

vikttur

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

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

Где? В сообщении она вообще не работает…
 

БМВ

Модератор

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

Excel 2013, 2016

просто БМВ достаточно.
Там м=и ваша формула и рядом моя, макрос для вашей.

Изменено: БМВ — 13.11.2018 23:55:37

По вопросам из тем форума, личку не читаю.

 

IgorBoot

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

Сообщений: 134
Регистрация: 10.07.2017
БМВ

, Спасибо за решение, к большому сожалению я пока еще не знаю таких тонкостей работы с VBA.
Только я  понять не могу.
Я руками очистил Range(«G13:G16»).
Начал руками компилировать, и на строке
Selection.AutoFill Destination:=Range(«G13:G16»), Type:=xlFillDefault
Выдалась ошибка 1004 «Метод AutoFill из класса Range завершен неверно»
Даже если взять за базу мою «Криворукость», то почему собственно ошибка возникает?

Изменено: IgorBoot — 13.11.2018 23:53:15
 

IgorBoot

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

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

Уважаемый

vikttur

.
Если Ваш вопрос был адресован мне, то прошу прощения, я Вас не понял.
 

БМВ

Модератор

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

Excel 2013, 2016

#12

13.11.2018 23:55:13

это мой косяк и криворукость

Код 
Sub Dvssyl_Array()
With Cells(13, 7)
    .FormulaArray = "=MAX(IF(INDIRECT(""R10C[-5]:R""&R4C5&""C[-5]"",FALSE)=RC[-1],INDIRECT(""R10C[-4]:R""&R4C5&""C[-4]"",FALSE)))"
    .AutoFill Destination:=Range("G13:G16"), Type:=xlFillDefault
End With
End Sub

По вопросам из тем форума, личку не читаю.

 

Юрий М

Модератор

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

Контакты см. в профиле

#13

13.11.2018 23:56:49

Цитата
БМВ написал:
это мой косяк

Да никто его отбирать и не собирался )
 

БМВ

Модератор

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

Excel 2013, 2016

Off
время тяжёлое , завистников много.

Я ваще не понял, чего я тут по двум фронтам отдуваюсь? Игоря опять на разговоры за жизнь потянуло, где все? :-)

По вопросам из тем форума, личку не читаю.

 

IgorBoot

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

Сообщений: 134
Регистрация: 10.07.2017
БМВ

спасибо большое за показанный метод.
Что-то очень близкое я встречал на этом форуме, но к сожалению адаптировать не смог.
Отдельное спасибо за » Метод AutoFill «.
И немного не по теме, но с некоторой толикой сожаления приходится констатировать, что в некоторых моментах без «биения головой в стену» движение дальше не возможно. Это я исключительно про себя.
Еще раз Благодарю Вас. Спасибо Вам большое.
 

БМВ

Модератор

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

Excel 2013, 2016

IgorBoot, не переживайте, на ошибках учатся. Те кто тут сегодня блещут, не сразу такими родились, хотя вот малыш под вопросом :-)

По вопросам из тем форума, личку не читаю.

 

vikttur

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

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

#17

14.11.2018 00:07:21

Цитата
IgorBoot написал: я Вас не понял.

Показывать «выдает ошибку» нужно в файле
 

Добрый вечер!

Подскажите, как правильно записать в ячейку AO8 формулу {=МИН(ЕСЛИ(R:R=AN8;N:N))} в VBA, для поиска минимального значения по условию.
На работе старая версия офиса, функции МИНЕСЛИ нет.
Написал код Range(«AO8»).Formula = «{=MIN(IF(R:R=AN8;N:N))}» но он не работает.
Можно ли как то использовать комбинацию +^~ в качестве Ctrl+Shift+Enter.

Прикрепленные файлы

  • Пример.xlsx (23.96 КБ)
 

Ігор Гончаренко

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

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

#19

06.03.2022 05:36:45

Код 
Sub Macro1()
  Range("AO8").FormulaArray = "=MIN(IF(C[-23]=RC[-1],C[-27]))"
  Range("AO8").Copy Range("AO9:AO11")
End Sub

Программисты — это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!

 

Роман Дементьев

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

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

#20

06.03.2022 08:20:33

Спасибо!!!!!
Источник

Excel VBA (Visual Basic for Applications) is where spreadsheets meet programming. Although not as complex or powerful as the average programming language, Excel VBA can get very difficult to grasp for all but the most determined of learners. At the same time, the applications and capabilities of VBA are enormous. If you want to truly master Excel, learning VBA is a must. This course on advanced Excel will help you get started.

In this tutorial, we will learn more about one of Excel’s most powerful features, the VBA array, and how to use it in our spreadsheets.

What is an Array?

The dictionary meaning of array is “an ordered arrangement”. In programming and Excel, the meaning is quite similar, except that an array here refers to an “ordered arrangement of data”.

Arrays are primarily used to group or classify data of similar type. In function, it’s similar to a variable, except that a variable can only hold a single item, while an array can hold multiple items.

For example, if I have a list of animals that I want to assign variables to, I can do the following:

A = “Horse”

B = “Dog”

C = “Cat”

D = “Cow”

E = “Duck”

This is just long and tedious. Instead, I can use an array like this:

animals = array(“Horse”, “Dog”, “Cat”, Cow”, “Duck”)

So instead of declaring five separate variables, we declared only one array that could hold all five of our items.

The best part? We can refer or extract any particular item whenever we want. This makes arrays especially powerful for programming.

Arrays are the tool power users turn to when built-in Excel functions fail them. Arrays can be used to perform tasks seemingly impossible to undertake using ordinary formulas. They might sound complicated, but once you get the hang of them, you’ll use them in all your spreadsheets.

Like variables, arrays in VBA are declared using Dim. Besides the array name, you also need to specify the number and type of values the array will store.

The full syntax looks like this:

Dim ExampleArray(6) As String

Where:

Dim = Command for declaring variables/arrays

ExampleArray = Array name

(6) = Number of values to be stored in the array*

As String = The type of data stored in the array

* In VBA, as in most programming languages, count starts from 0. Hence, (6) actually means that there are 7 stored values (from 0 to 6). If you want to count from 1 instead, you would write (1 to 6), like this:

Dim MyArray(1 to 6) As String

Learn more about arrays in Excel in this advanced online training course for Excel 2013.

How to Use Excel VBA Array

The best way to understand how arrays work in Excel is to create one ourselves.

Step 1: Enable Developer Tab

The first step is to enable the Developer tab in Excel. This will enable us to create formulas and macros.

  • Go to File -> Options -> Customize Ribbon.

  • In the Main Tabs, make sure that Developer is selected.

Step 2: Enable Macros

Before we can start creating our array, we will need to enable macros (which are disabled by default for security purposes).

  • Go to File -> Options -> Trust Center

  • Click on Trust Center Settings

  • In the window that pops up, click on Macro Settings

  • Select Enable all macros

Step 3: Create a Button

Before writing our little VBA program, we will first create a button that can run it.

  • Open the Developer tab and click on ‘Insert’

  • Select ‘Button’ under ‘Form Control’ as shown:

  • Click and drag anywhere in the worksheet to create your button.

  • The Assign Macro dialog box will pop up. Here, you can give a custom name to your button, or you can leave it as is. Once you’ve selected the name, click on New

  • The Microsoft Visual Basic for Applications window will pop open. You can also access it by press ALT + F11.

  • In the main code editor window, type in the following program, right after ‘Sub Button1_Click()’:

Dim CustomerName(1 to 10) As String
For i = 1 to 10
CustomerName(i) = InputBox(“Please Enter the Customer Name”)
Cells(i, 1) = CustomerName(i)
Next

  • Save the program by clicking on the save icon. Enter a name in the save dialog box and make sure to choose Excel Macro-Enabled Workbook

Your program is now associated with the button. Pressing the button will trigger the VBA program

New to Excel? This fast track course on Excel will help you get started.

Step 4: Run the Program

Close the VBA window (ALT + F11) after saving the program. You will now see your original worksheet with the button.

Click the button (if the button is not enabled, try clicking on any cell to deselect it before clicking). A prompt asking you to enter “Please Enter Customer Name” (or whatever else you wrote in the program) will pop-up.

Since we set our range in the formula from 1 to 10, the prompt will ask for our input 10 times. Whatever values you enter in the dialog box will automatically fill up the first column:

That’ it! You’ve successfully created a VBA macro using an array!

Breaking it Down: Understanding the VBA Array Formula

Before we leave, let’s take another look at the VBA array formula we used above:

Sub Button1_Click()
Dim CustomerName(1 To 10) As String
For i = 1 To 10
CustomerName(i) = InputBox("Please Enter the Customer Name")
Cells(i, 1) = CustomerName(i)
Next
End Sub

Let’s try to understand it a little better:

Sub Button1_Click()

This command is basically used to refer to the button we created in our workbook. Button1 is the name of our button; Click() is the action that triggers it.

Dim CustomerName(1 to 10) As String

This is our actual array. Here:

Dim = Command used to assign variables and arrays

CustomerName = Name of array

(1 to 10) = The number of values stored in the array.

As String = This tells Excel that the values to be stored are String, not numbers (numbers would be Integer)

Moving on

For i = 1 to 10

This is a VBA for loop. It tells VBA to go through the values 1 to 10 sequentially.

CustomerName(i) = InputBox("Please Enter the Customer Name")

Here, CustomerName(i) cycles through i (from 1 to 10), assigning each the value entered in the InputBox.

Cells(i, 1) = CustomerName(i)

This tells Excel to enter the values of i accepted in the previous line in the first column. If you wanted to enter them in the second column, you would write Cells(i, 2)

Next

Every For loop must end with a Next command.

End Sub

This signals that the program is over.

Now that you know how to use an array, why not take a course like Advanced Excel Training that will introduce you to more advanced Excel concepts, including how to make use of VBA arrays.

Источник

Содержание

  1. Свойство Range.FormulaLocal (Excel)
  2. Синтаксис
  3. Замечания
  4. Пример
  5. Поддержка и обратная связь
  6. Вставить формулу массива в Excel VBA
  7. Excel vba вставить формулу массива
  8. Excel vba вставить формулу массива
  9. Excel vba вставить формулу массива

Свойство Range.FormulaLocal (Excel)

Возвращает или задает формулу для объекта, используя ссылки в стиле A1 на языке пользователя. Для чтения и записи, Variant.

Синтаксис

expression. FormulaLocal

выражение: переменная, представляющая объект Range.

Замечания

Если ячейка содержит константу, это свойство возвращает эту константу. Если ячейка пуста, свойство возвращает пустую строку. Если ячейка содержит формулу, свойство возвращает формулу в виде строки в том же формате, в котором она будет отображаться в строке формул (включая знак равенства).

Если присвоить значение или формулу ячейки для даты, Microsoft Excel проверяет, отформатирована ли эта ячейка с помощью одного из форматов даты или времени. В противном случае числовой формат изменяется на формат короткой даты по умолчанию.

Если диапазон состоит из одного или двух измерений, можно установить формулу для массива Visual Basic с теми же размерами. Аналогично, можно поместить формулу в массив Visual Basic.

При установке формулы в диапазоне с несколькими ячейками все ячейки в диапазоне заполняются формулой.

Пример

Предположим, что вы ввели формулу =SUM(A1:A10) в ячейку A11 на листе на одном листе, используя версию Microsoft Excel на американском английском языке. Если затем открыть книгу на компьютере под управлением немецкой версии и выполнить следующий пример, в этом примере отображается формула =SUMME(A1:A10) в окне сообщения.

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Вставить формулу массива в Excel VBA

Я записал формулу массива, чтобы вставить в VBA. Вот что у меня после записи. Однако когда я запускаю макрос, он просто не работает.

Из-за отрицательного знака?

Из формулы Excel

Ошибка 1004 — Невозможно установить свойство FormulaArray класса Range.

Прошу прощения за формат кода. Это выглядело ужасно.

Предел вставки массива формул составляет 255 символов с VBA.

Это означает, что мне нужно будет создать диапазоны для ячеек. Спасибо! Могу я спросить, откуда у вас эта информация. Я хочу это проверить.

Есть крайний вариант: использовать человека.

Пусть макрос поместит формулу в ячейку как String, а пользователь завершит процесс:

Я ПОНИМАЮ! Это творчески. Спасибо!

Или вы можете разбить длинную формулу на несколько частей и заменить ее в конце фактической формулой, как показано ниже .

Это еще один изящный способ сделать это! Потрясающие

@OliverBird Спасибо! Любая автоматизация будет неполной, если вы вынуждены попросить пользователя выполнить некоторые действия вручную. Поэтому для меня на самом деле нет никакого смысла вводить формулу как обычную формулу, а затем просить пользователя повторно ввести ее как формулу массива. 🙂

Источник

Excel vba вставить формулу массива

Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вычисление формулы массива через VBA и запись результата (Макросы/Sub)

Вычисление формулы массива через VBA и запись результата

matigovas Дата: Суббота, 31.03.2018, 08:26 | Сообщение № 1

Народ с форума помог с задачей, но теперь она усложнилась. Есть формула массива

и она работает как надо, но проблема в том, что таких формул стало очень много и они тормозят работу как Excel, так и людей. Формулы массива идут последовательно в строке начиная со столбца J и грубо говоря до «бесконечности». Самый простой выход, который я вижу — это вычисление формул массива через макрос по нажатию кнопки и помещение результата, скажем в ячейку J15 и дальше по строке. Т.е. само вычисление происходит внутри vba, а итогом становится лишь результат в ячейке.

Народ с форума помог с задачей, но теперь она усложнилась. Есть формула массива

и она работает как надо, но проблема в том, что таких формул стало очень много и они тормозят работу как Excel, так и людей. Формулы массива идут последовательно в строке начиная со столбца J и грубо говоря до «бесконечности». Самый простой выход, который я вижу — это вычисление формул массива через макрос по нажатию кнопки и помещение результата, скажем в ячейку J15 и дальше по строке. Т.е. само вычисление происходит внутри vba, а итогом становится лишь результат в ячейке. matigovas

Сообщение Народ с форума помог с задачей, но теперь она усложнилась. Есть формула массива

и она работает как надо, но проблема в том, что таких формул стало очень много и они тормозят работу как Excel, так и людей. Формулы массива идут последовательно в строке начиная со столбца J и грубо говоря до «бесконечности». Самый простой выход, который я вижу — это вычисление формул массива через макрос по нажатию кнопки и помещение результата, скажем в ячейку J15 и дальше по строке. Т.е. само вычисление происходит внутри vba, а итогом становится лишь результат в ячейке. Автор — matigovas
Дата добавления — 31.03.2018 в 08:26

Источник

Excel vba вставить формулу массива

Pelena, Елена, тут более широкий вопрос и не всегда СУММПРОИЗВ выручит.

adamm1603, по ссылке метод интересный и возможен, но не в вашем случае, так как придется разбивать формулу на части, при этом первая должна работать без второй. Если для единичной это можно сделать руками, то при том что вы хотите, автоматизировать трудно. Собственно там и написано
If the long formula can be broken into parts, where the second part can be replaced by a dummy function, this approach can be used…
дело в том что Replace тоже не всемогущь и не позволяет заменить что-то, на строку более 255 символов.

Pelena, Елена, тут более широкий вопрос и не всегда СУММПРОИЗВ выручит.

adamm1603, по ссылке метод интересный и возможен, но не в вашем случае, так как придется разбивать формулу на части, при этом первая должна работать без второй. Если для единичной это можно сделать руками, то при том что вы хотите, автоматизировать трудно. Собственно там и написано
If the long formula can be broken into parts, where the second part can be replaced by a dummy function, this approach can be used…
дело в том что Replace тоже не всемогущь и не позволяет заменить что-то, на строку более 255 символов. bmv98rus

Замечательный Временно просто медведь , процентов на 20.

Ответить

Сообщение Pelena, Елена, тут более широкий вопрос и не всегда СУММПРОИЗВ выручит.

adamm1603, по ссылке метод интересный и возможен, но не в вашем случае, так как придется разбивать формулу на части, при этом первая должна работать без второй. Если для единичной это можно сделать руками, то при том что вы хотите, автоматизировать трудно. Собственно там и написано
If the long formula can be broken into parts, where the second part can be replaced by a dummy function, this approach can be used…
дело в том что Replace тоже не всемогущь и не позволяет заменить что-то, на строку более 255 символов. Автор — bmv98rus
Дата добавления — 19.07.2019 в 09:53

Pelena Дата: Пятница, 19.07.2019, 10:08 | Сообщение № 25

Я говорю о данной конкретной формуле, ессно.

В своё время тоже делала через Replace. Были бы данные в файле, а то на пустых ячейках неинтересно проверять)

Я говорю о данной конкретной формуле, ессно.

В своё время тоже делала через Replace. Были бы данные в файле, а то на пустых ячейках неинтересно проверять) Pelena

«Черт возьми, Холмс! Но как. »
Ю-money 41001765434816

Ответить

Сообщение Я говорю о данной конкретной формуле, ессно.

В своё время тоже делала через Replace. Были бы данные в файле, а то на пустых ячейках неинтересно проверять) Автор — Pelena
Дата добавления — 19.07.2019 в 10:08

bmv98rus Дата: Пятница, 19.07.2019, 10:30 | Сообщение № 26

Замечательный Временно просто медведь , процентов на 20.
adamm1603 Дата: Пятница, 19.07.2019, 13:12 | Сообщение № 27

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

1. через имена, думаю не менее проблемный)
2. СУММПРОИЗВ, стоит попробовать!
3. sendkeys, тут я пока в полном тупике, скоро английский выучу, читая буржуйские сайты)

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

1. через имена, думаю не менее проблемный)
2. СУММПРОИЗВ, стоит попробовать!
3. sendkeys, тут я пока в полном тупике, скоро английский выучу, читая буржуйские сайты) adamm1603

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

1. через имена, думаю не менее проблемный)
2. СУММПРОИЗВ, стоит попробовать!
3. sendkeys, тут я пока в полном тупике, скоро английский выучу, читая буржуйские сайты) Автор — adamm1603
Дата добавления — 19.07.2019 в 13:12

Источник

Excel vba вставить формулу массива
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как вставить формулу массива в видимые ячейки фильтра? (Макросы/Sub)

Как вставить формулу массива в видимые ячейки фильтра?
machodg Дата: Воскресенье, 03.12.2017, 17:33 | Сообщение № 1
Nic70y Дата: Воскресенье, 03.12.2017, 20:55 | Сообщение № 2
machodg Дата: Воскресенье, 03.12.2017, 21:35 | Сообщение № 3

Спасибо,
но к сожалению нужно макросом, т.к. этот фаил пересылается «чайникам», которые должны лишь в столбец «Н» вписать количества и дальше посмотреть на результат путем всего лишь клика на ячейку «Заказ». (на самом деле этот фаил — небольшой фрагмент от большой статистической системы)

Желаю доброй ночи.

Спасибо,
но к сожалению нужно макросом, т.к. этот фаил пересылается «чайникам», которые должны лишь в столбец «Н» вписать количества и дальше посмотреть на результат путем всего лишь клика на ячейку «Заказ». (на самом деле этот фаил — небольшой фрагмент от большой статистической системы)

Желаю доброй ночи. machodg

Сообщение Спасибо,
но к сожалению нужно макросом, т.к. этот фаил пересылается «чайникам», которые должны лишь в столбец «Н» вписать количества и дальше посмотреть на результат путем всего лишь клика на ячейку «Заказ». (на самом деле этот фаил — небольшой фрагмент от большой статистической системы)

Желаю доброй ночи. Автор — machodg
Дата добавления — 03.12.2017 в 21:35

Nic70y Дата: Понедельник, 04.12.2017, 07:40 | Сообщение № 4
machodg Дата: Понедельник, 04.12.2017, 12:49 | Сообщение № 5

«], т.е. SHIFT+CTRL+ENTER для перевода постой формулы в формулу массива. (посмотрите код в примере):

Set Myrange = Application.Range(Cells(FirstRow, 8), Cells(LastRow, 8))

For Each c In Myrange.SpecialCells(xlVisible)
c.Select
With c
SendKeys «^+

»
DoEvents
End With
Next c

«], т.е. SHIFT+CTRL+ENTER для перевода постой формулы в формулу массива. (посмотрите код в примере):

Set Myrange = Application.Range(Cells(FirstRow, 8), Cells(LastRow, 8))

For Each c In Myrange.SpecialCells(xlVisible)
c.Select
With c
SendKeys «^+

»
DoEvents
End With
Next c

«], т.е. SHIFT+CTRL+ENTER для перевода постой формулы в формулу массива. (посмотрите код в примере):

Set Myrange = Application.Range(Cells(FirstRow, 8), Cells(LastRow, 8))

For Each c In Myrange.SpecialCells(xlVisible)
c.Select
With c
SendKeys «^+

»
DoEvents
End With
Next c
machodg Дата: Понедельник, 04.12.2017, 13:03 | Сообщение № 6
Serge_007 Дата: Понедельник, 04.12.2017, 14:15 | Сообщение № 7
sboy Дата: Понедельник, 04.12.2017, 14:23 | Сообщение № 8
bmv98rus Дата: Понедельник, 04.12.2017, 15:46 | Сообщение № 9

Замечательный Временно просто медведь , процентов на 20.
Nic70y Дата: Понедельник, 04.12.2017, 16:07 | Сообщение № 10
_Boroda_ Дата: Понедельник, 04.12.2017, 17:59 | Сообщение № 11

Ответить

machodg Дата: Вторник, 05.12.2017, 02:04 | Сообщение № 12

[/vba]
Соответственно и цикл по заполнению ячеек не понадобился:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim FirstRow, LastRow As Integer

If Target.Address = «$G$2» And Cells(1, 1) = 1 Then
Cells(1, 1) = 0
Application.ScreenUpdating = 0
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With

If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If

If Cells(3, 7) = 0 Or Cells(3, 7) = «» Then
FirstRow = Range(«G2»).End(xlDown).Row
Else
FirstRow = 3
End If
LastRow = Columns(7).Rows(1040000).End(xlUp).Row

‘1) Ustanovka AutoFiltra
Selection.AutoFilter Field:=7, Criteria1:=»<>«

‘2)Vstavka formul v vidimie iacheiki

Cells(FirstRow, 9) = _
«=IF(RC7<>0,IF(RC3=»»A»»,SUMIF(R3C3:R2186C3,»»A»»,R3C7:R2186C7),IF(RC3=»»B»»,SUMIF(R3C3:R2186C3,»»B»»,R3C7:R2186C7),SUMIF(R3C3:R2186C3,»»C»»,R3C7:R2186C7)))/SUM(R3C7:R2186C7),»»-«»)»

Range(Cells(FirstRow, 9), Cells(LastRow, 9)).Select
Selection.SpecialCells(xlCellTypeVisible).FillDown

Cells(FirstRow, 8).FormulaArray = _
«=SUM(IF(R3C[-5]:R2186C[-5]=RC[-5],R3C[-2]:R2186C[-2]/R3C[-3]:R2186C[-3]*R3C[-1]:R2186C[-1]))/(SUM(IF(R3C[-5]:R2186C[-5]<>«»»»,R3C[-2]:R2186C[-2]/R3C[-3]:R2186C[-3]*R3C[-1]:R2186C[-1])))»

Range(Cells(FirstRow, 8), Cells(LastRow, 8)).Select
Selection.SpecialCells(xlCellTypeVisible).FillDown

End If
Cells(1, 1) = 1
Application.ScreenUpdating = 1
End Sub

Еще раз большое спасибо.
Всем желаю успехов.

[/vba]
Соответственно и цикл по заполнению ячеек не понадобился:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim FirstRow, LastRow As Integer

If Target.Address = «$G$2» And Cells(1, 1) = 1 Then
Cells(1, 1) = 0
Application.ScreenUpdating = 0
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With

If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If

If Cells(3, 7) = 0 Or Cells(3, 7) = «» Then
FirstRow = Range(«G2»).End(xlDown).Row
Else
FirstRow = 3
End If
LastRow = Columns(7).Rows(1040000).End(xlUp).Row

‘1) Ustanovka AutoFiltra
Selection.AutoFilter Field:=7, Criteria1:=»<>«

‘2)Vstavka formul v vidimie iacheiki

Cells(FirstRow, 9) = _
«=IF(RC7<>0,IF(RC3=»»A»»,SUMIF(R3C3:R2186C3,»»A»»,R3C7:R2186C7),IF(RC3=»»B»»,SUMIF(R3C3:R2186C3,»»B»»,R3C7:R2186C7),SUMIF(R3C3:R2186C3,»»C»»,R3C7:R2186C7)))/SUM(R3C7:R2186C7),»»-«»)»

Range(Cells(FirstRow, 9), Cells(LastRow, 9)).Select
Selection.SpecialCells(xlCellTypeVisible).FillDown

Cells(FirstRow, 8).FormulaArray = _
«=SUM(IF(R3C[-5]:R2186C[-5]=RC[-5],R3C[-2]:R2186C[-2]/R3C[-3]:R2186C[-3]*R3C[-1]:R2186C[-1]))/(SUM(IF(R3C[-5]:R2186C[-5]<>«»»»,R3C[-2]:R2186C[-2]/R3C[-3]:R2186C[-3]*R3C[-1]:R2186C[-1])))»

Range(Cells(FirstRow, 8), Cells(LastRow, 8)).Select
Selection.SpecialCells(xlCellTypeVisible).FillDown

End If
Cells(1, 1) = 1
Application.ScreenUpdating = 1
End Sub

Еще раз большое спасибо.
Всем желаю успехов. machodg

[/vba]
Соответственно и цикл по заполнению ячеек не понадобился:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim FirstRow, LastRow As Integer

If Target.Address = «$G$2» And Cells(1, 1) = 1 Then
Cells(1, 1) = 0
Application.ScreenUpdating = 0
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With

If ActiveSheet.FilterMode = True Then
ActiveSheet.ShowAllData
End If

If Cells(3, 7) = 0 Or Cells(3, 7) = «» Then
FirstRow = Range(«G2»).End(xlDown).Row
Else
FirstRow = 3
End If
LastRow = Columns(7).Rows(1040000).End(xlUp).Row

‘1) Ustanovka AutoFiltra
Selection.AutoFilter Field:=7, Criteria1:=»<>«

‘2)Vstavka formul v vidimie iacheiki

Cells(FirstRow, 9) = _
«=IF(RC7<>0,IF(RC3=»»A»»,SUMIF(R3C3:R2186C3,»»A»»,R3C7:R2186C7),IF(RC3=»»B»»,SUMIF(R3C3:R2186C3,»»B»»,R3C7:R2186C7),SUMIF(R3C3:R2186C3,»»C»»,R3C7:R2186C7)))/SUM(R3C7:R2186C7),»»-«»)»

Range(Cells(FirstRow, 9), Cells(LastRow, 9)).Select
Selection.SpecialCells(xlCellTypeVisible).FillDown

Cells(FirstRow, 8).FormulaArray = _
«=SUM(IF(R3C[-5]:R2186C[-5]=RC[-5],R3C[-2]:R2186C[-2]/R3C[-3]:R2186C[-3]*R3C[-1]:R2186C[-1]))/(SUM(IF(R3C[-5]:R2186C[-5]<>«»»»,R3C[-2]:R2186C[-2]/R3C[-3]:R2186C[-3]*R3C[-1]:R2186C[-1])))»

Range(Cells(FirstRow, 8), Cells(LastRow, 8)).Select
Selection.SpecialCells(xlCellTypeVisible).FillDown

End If
Cells(1, 1) = 1
Application.ScreenUpdating = 1
End Sub

Еще раз большое спасибо.
Всем желаю успехов. Автор — machodg
Дата добавления — 05.12.2017 в 02:04

Источник

Adblock
detector

Источник

Вставить формулу массива через vba

Kongа

 Дата: Среда, 20.01.2021, 04:14 |
Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 24


Репутация:
0
±

Замечаний:
0% ±


Excel 2013

Здравствуйте, подскажите, пожалуйста как перевести формулу массива в vba, чтобы она использовала диапазон со второй до последней заполненной ячейки в столбце С листа1.
Вот формула:

Код

=СУММ(—(ЧАСТОТА(ЕСЛИ(Лист3!C2:C5<>»»;ЕСЛИ(Лист3!D2:D5=»Мята»;ПОИСКПОЗ(Лист3!C2:C5;Лист3!C2:C5;0)));СТРОКА(Лист3!C2:C5)-СТРОКА(Лист3!X2)+1)>0))

Пыталась занести ее через FormulaLocal
[vba]

Код

Лист2.[D3].FormulaLocal = «=СУММ(—(ЧАСТОТА(ЕСЛИ(‘Лист3’!C2:C» & LastRow & «<>»»»»;ЕСЛИ(‘Лист3’!D2:D» & LastRow & «=» & «»»Мята»»;ПОИСКПОЗ(‘Лист3′!C2:C» & LastRow & «;’Лист3’!C2:C» & LastRow & «;0)));СТРОКА(‘Лист3’!C2:C» & LastRow & «)-СТРОКА(‘Лист3’!X2)+1)>0))»

[/vba]
, но так она встает как обычная формула и тогда встает проблема как её заставить сделаться «массивной». Если делаю, через .FormulaArray, то не получается сделать её с LastRow.

К сообщению приложен файл:

1268884.xlsm
(16.2 Kb)

Сообщение отредактировал Kongа — Среда, 20.01.2021, 04:47
 

Ответить

китин

 Дата: Среда, 20.01.2021, 08:38 |
Сообщение № 2

Группа: Модераторы

Ранг: Экселист

Сообщений: 6973


Репутация:
1063
±

Замечаний:
0% ±


Excel 2007;2010;2016

а если попробовать вместо
[vba][/vba]
[vba][/vba]
поставить?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

 

Ответить

skyfors

 Дата: Среда, 20.01.2021, 09:27 |
Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 16


Репутация:
0
±

Замечаний:
0% ±


Excel 2010

[vba]

Код

    With Worksheets(«Лист3»)
        LastRow = .Cells(.Rows.Count, 3).End(xlUp).Row
    End With

         Лист2.[D3].FormulaLocal = _
        «=СУММ(—(ЧАСТОТА(ЕСЛИ(Лист3!C2:C» & LastRow & «<>»»»»;ЕСЛИ(Лист3!D2:D» & LastRow & «=» & «»»Мята»»» & «;ПОИСКПОЗ(Лист3!C2:C» & LastRow & «;Лист3!C2:C» & LastRow & «;0)));СТРОКА(Лист3!C2:C» & LastRow & «)-СТРОКА(Лист3!C2» & «)+1)>0))»
     Лист2.[D3].FormulaArray = Лист2.[D3].Formula

[/vba]
 

Ответить
Источник

В формулах листа оператор «=» умеет работать с массивом, но в VBA так не получится.

Можно вычислять как формулу листа:

Debug.Print Application.Evaluate("SumProduct((""Условие 1"" = A4:A10) * E4:H10)")

Но зачем функция листа, если VBA сам может справиться?

Sub uuu()
Dim ArrDir(), ArrSumS()
Dim direct As String
Dim dSum As Double
Dim i As Long, j As Long
    i = 10: j = 8 ' где-то раньше определили последние строку/столбец
    direct = "Условие 1" ' значение для сравнения

    ' значения диапазонов листа записываем в массивы
    With Workbooks(fExp).Sheets(fExpShN)
        ArrDir = .Range("A4:A" & i).Value
        ArrSumS = .Range(.Cells(4, 5), .Cells(i, j)).Value
    End With

    ' переменные i, j уже свободны, используем в циклах
    For i = 1 To UBound(ArrDir) ' цикл по вертикали
        If ArrDir(i, 1) = direct Then
            For j = 1 To UBound(ArrSumS, 2) ' цикл по второй размерности
                dSum = dSum + ArrSumS(i, j) ' сумма
            Next j
        End If
    Next i

    Debug.Print dSum
End Sub

 --------------------------------

Примечания к коду автора:

  • родителя можно определять один раз: оператор With/End Wiht ускоряет обработку и помогает сделать код читабельнее;

  • ссылка на книгу не нужна, если макрос записан в этой же книге;

  • для определения диапазона не обязательно применять .Address;

  • строка Application.WorksheetFunction… в любом случае вызвала бы ошибку: получаемое значение никуда не передается.

Правильно:

.Cells(1,1).Value = Application.WorksheetFunction…

dSum = Application.WorksheetFunction…

MsgBox Application.WorksheetFunction…

Источник

Понравилась статья? Поделить с друзьями:
  • Формулы для ячейки excel в vba
  • Формулы массива excel по нескольким условиям
  • Формулы массива excel даты
  • Формулы массива excel 2016
  • Формулы массив excel для чего нужны