Поведенческий анализ формулы - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Поведенческий анализ формулы (Результат вычисления формулы - текст?)

Поведенческий анализ формулы

Serge_007

Дата: Суббота, 19.11.2011, 22:23 | Сообщение № 21

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (light26)

логика, вроде, понятна, а вот почему массив?

Да не заморачивайся.
Это решение наверное только мой воспалённый мозг мог предложить smile

Не надо, это слишком извращённо smile

ЮMoney:41001419691823 | WMR:126292472390

Ответить

light26

Дата: Суббота, 19.11.2011, 23:30 | Сообщение № 22

Группа: Друзья

Ранг: Старожил

Сообщений: 1351

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

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

2007, 2010, 2013

Quote (RAN)

Вставить функцию и выделить нужный диапазон смогёш?

Ну, это я на 5 ))))
Но в твоем примере макрос работает.

Я не волшебник. Я только учусь

Ответить

light26

Дата: Суббота, 19.11.2011, 23:39 | Сообщение № 23

Группа: Друзья

Ранг: Старожил

Сообщений: 1351

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

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

2007, 2010, 2013

Quote (Serge_007)

изначально данные расположены по... плохо, короче говоря.

иначе не расположишь. Смысел такой:в каждой строке таблицы есть информация о сооружении. Сооружений несколько в разных местах.
так вот =СЧЕТЗ считает количество сооружений в каждом месте, а в итоге надо посчитать сколько сооружений всего. Так что данные расположены так, как они расположены. Я просто, в качестве примера, привел именно тот столбец, который принимает участие в вычислениях

Я не волшебник. Я только учусь

Ответить

Serge_007

Дата: Суббота, 19.11.2011, 23:50 | Сообщение № 24

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (light26)

иначе не расположишь.

Ещё как расположишь.
Но, хозяин - барин. Отсюда и нелепые решения.

ЮMoney:41001419691823 | WMR:126292472390

Ответить

RAN

Дата: Воскресенье, 20.11.2011, 00:00 | Сообщение № 25

Группа: Друзья

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

Сообщений: 5660

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

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

2010

Quote (light26)

Ну, это я на 5 ))))

Тогда в чем проблема?
Найди в функциях, определенных пользователем, функцию "qqq" и вставь ее в нужном месте.

Быть или не быть, вот в чем загвоздка!

Ответить

light26

Дата: Воскресенье, 20.11.2011, 09:07 | Сообщение № 26

Группа: Друзья

Ранг: Старожил

Сообщений: 1351

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

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

2007, 2010, 2013

RAN, для особо одаренных можно))... Функция qqq задана макросом? и введя в любую ячейку =qqq(любой диапазон) я получу подсчет результата?
а для того, чтобы изменить выводимый и считаемый текст мне надо
Function qqq(rn As Range)
Dim cl As Range, n
For Each cl In rn
If cl Like ("*штук") Then тут
n = n + (--Split(cl, "штук")(0)) и тут заменить "штук " на то, что надо считать
End If
Next
qqq = n & " штук" а тут "штук" заменить на то, что надо выводить
End Function
Я верно мыслю?

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Воскресенье, 20.11.2011, 09:08

Ответить

light26

Дата: Воскресенье, 20.11.2011, 09:10 | Сообщение № 27

Группа: Друзья

Ранг: Старожил

Сообщений: 1351

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

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

2007, 2010, 2013

Quote (Serge_007)

Ещё как расположишь.
Но, хозяин - барин. Отсюда и нелепые решения

Ну не тяни кота за все подробности))). Объясни где ошибка и в чем нелепость?

Я не волшебник. Я только учусь

Ответить

RAN

Дата: Воскресенье, 20.11.2011, 12:41 | Сообщение № 28

Группа: Друзья

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

Сообщений: 5660

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

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

2010

Совершенно верно.
А так и в код модуля лазить не надо, просто в мастере функций введи нужные "штуки"
Обозвал Function Считать_штуки

К сообщению приложен файл: 5120036.xls (35.5 Kb)

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Воскресенье, 20.11.2011, 12:44

Ответить

light26

Дата: Воскресенье, 20.11.2011, 13:57 | Сообщение № 29

Группа: Друзья

Ранг: Старожил

Сообщений: 1351

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

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

2007, 2010, 2013

RAN, Круто)))
И напоследок, для создания собственной функции можно использовать любые или только латинские буквы?

Я не волшебник. Я только учусь

Ответить

RAN

Дата: Воскресенье, 20.11.2011, 14:38 | Сообщение № 30

Группа: Друзья

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

Сообщений: 5660

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

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

2010

А это смотря где

Быть или не быть, вот в чем загвоздка!

Ответить

light26

Дата: Воскресенье, 20.11.2011, 16:40 | Сообщение № 31

Группа: Друзья

Ранг: Старожил

Сообщений: 1351

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

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

2007, 2010, 2013

Quote (RAN)

А это смотря где

В данном конкретном случае.

Function СЧЕТТЕКСТА(rn As Range)
Dim cl As Range, n
For Each cl In rn
If cl Like ("*штук") Then
n = n + (--Split(cl, "штук")(0))
End If
Next
СЧЕТТЕКСТА = n & " штук"
End Function