EXCEL. сложение и умножение в одной ячейке. - Мир MS Excel

Регистрация

Напомнить пароль

= Мир MS Excel/EXCEL. сложение и умножение в одной ячейке. - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » EXCEL. сложение и умножение в одной ячейке. (Формулы/Formulas)

EXCEL. сложение и умножение в одной ячейке.

Дата: Воскресенье, 31.03.2024, 19:43 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 4

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

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

Помогите, пожалуйста. Задача в двух вопросах!! 1)Eсли в ячейки цифра до 10, то сумма в др ячейке нужна 0. А если цифра в ячейке от 11 и выше, то надо умножить на 3.
Например: Цифра в ячейке 22 * 3 = 36, 30 * 3 = 60. т.е. при этом умножении первый десяток не учитывается

2)В ячейке может стоять любое число, а рядом с ним (в этой же ячейке) тоже любое число , но оно в скобках. Это число в скобках надо умножить на 3. При том 1 часть вопроса должна тоже участвовать в решении.
Например:
1) 10 (1) результат в др ячейке 3
2) 15 (2) результат в др ячейке 21
3) 22 (4) результат в др ячейке 48
Помогите, пожалуйста!

Ответить

Дата: Воскресенье, 31.03.2024, 21:08 | Сообщение № 2

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

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

Сообщений: 1655

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

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

Excel LTSC 2024 RUS

По первому вопросу можно так:

Код

=ЕСЛИ(A1>=11;(A1-10)*3;)

Второй вопрос не понял.
Приложите файл, как надо.

Сообщение отредактировал DrMini - Воскресенье, 31.03.2024, 21:09

Ответить

Дата: Воскресенье, 31.03.2024, 21:15 | Сообщение № 3

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

Ранг: Участник клуба

Сообщений: 4501

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

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

Excel 2003

Код

=(МАКС(;ЛЕВБ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;")";);"(";ПОВТОР(" ";19));19)-10)+ПРАВБ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;")";);"(";ПОВТОР(" ";19));19))*3

Код

=СУММ(--(0&ТЕКСТ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;")";);"(";ПОВТОР(" ";19));{1;19};19)-{10;0};"0;;")))*3

К сообщению приложен файл: kniga10.xlsx (8.6 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Воскресенье, 31.03.2024, 21:25

Ответить

Дата: Воскресенье, 31.03.2024, 21:27 | Сообщение № 4

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

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

Сообщений: 1655

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

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

Excel LTSC 2024 RUS

По второму вопросу вышло так:

Код

=ЕСЛИ(ЛЕВСИМВ(A3;НАЙТИ("(";A3)-1)>=11;(ЛЕВСИМВ(A3;НАЙТИ("(";A3)-1)-10)*3;)+ПСТР(A3;ПОИСК("(";A3)+1;ПОИСК(")";A3)-ПОИСК("(";A3)-1)*3

К сообщению приложен файл: slozhenie_v_odnoj_jachejke.xlsx (9.3 Kb)

Ответить

Дата: Воскресенье, 31.03.2024, 21:31 | Сообщение № 5

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

Ранг: Участник клуба

Сообщений: 4501

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

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

Excel 2003

DrMini, 5 (2) должно быть 6, а у вас -9

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Дата: Воскресенье, 31.03.2024, 21:33 | Сообщение № 6

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

Ранг: Прохожий

Сообщений: 4

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

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

DrMini,

К сообщению приложен файл: kopija_kopija_akt_4_aprel1.xlsx (15.5 Kb)

Ответить

Дата: Воскресенье, 31.03.2024, 21:33 | Сообщение № 7

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

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

Сообщений: 1655

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

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

Excel LTSC 2024 RUS

Цитата AlexM, 31.03.2024 в 21:31, в сообщении № 5 (

)

5 (2) должно быть 6, а у вас -9

Точняк.
UPD
тогда так:

Код

=СУММ(ЕСЛИ(--ЛЕВСИМВ(A3;НАЙТИ("(";A3)-1)>=11;(ЛЕВСИМВ(A3;НАЙТИ("(";A3)-1)-10)*3;);ПСТР(A3;ПОИСК("(";A3)+1;ПОИСК(")";A3)-ПОИСК("(";A3)-1)*3)

К сообщению приложен файл: 2321924.xlsx (9.3 Kb)

Сообщение отредактировал DrMini - Воскресенье, 31.03.2024, 21:44

Ответить

Дата: Воскресенье, 31.03.2024, 21:38 | Сообщение № 8

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

Ранг: Участник клуба

Сообщений: 4501

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

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

Excel 2003

Код

=ЕСЛИОШИБКА(СУММ(--(0&ТЕКСТ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(E11&"(0)";")";);"(";ПОВТОР(" ";19));{1;19};19)-{10;0};"0;;")))*3;"")

Или последний аргумент функции ЕСЛИОШИБКА() поставьте 0

К сообщению приложен файл: kopija_kopija_akt_4_aprel1_1.xlsx (16.2 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Воскресенье, 31.03.2024, 22:08

Ответить

Дата: Воскресенье, 31.03.2024, 21:50 | Сообщение № 9

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

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

Сообщений: 1829

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

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

Excel 2013, 2016

А так устроит?

Код

=ЕСЛИ(ЛЕВБ(A1;ПОИСК("(";A1)-1)-10>0;ЛЕВБ(A1;ПОИСК("(";A1)-1))-ПСТР(A1;ПОИСК("(";A1);99)*3

Программировать проще, чем писать стихи.

Ответить

Дата: Воскресенье, 31.03.2024, 21:53 | Сообщение № 10

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

Ранг: Участник клуба

Сообщений: 4501

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

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

Excel 2003

Светлый, 22 (4) результат в др ячейке 48
10 - 0
11 - 3

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Дата: Воскресенье, 31.03.2024, 22:02 | Сообщение № 11

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

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

Сообщений: 1829

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

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

Excel 2013, 2016

Тогда так:

Код

=ЕСЛИ(ЛЕВБ(A1;ПОИСК("(";A1)-1)-10>0;(ЛЕВБ(A1;ПОИСК("(";A1)-1)-10)*3)-ПСТР(A1;ПОИСК("(";A1);99)*3

*Или так:

Код

=(ТЕКСТ(ЛЕВБ(A1;ПОИСК("(";A1)-1)-10;"0;\0")-ПСТР(A1;ПОИСК("(";A1);99))*3

**С учётом ошибки:

Код

=(ТЕКСТ(ЛЕВБ(A3;ЕСЛИОШИБКА(ПОИСК("(";A3);9)-1)-10;"0;\0")-ЕСЛИОШИБКА(ПСТР(A3;ПОИСК("(";A3);9);))*3

Программировать проще, чем писать стихи.

Сообщение отредактировал Светлый - Воскресенье, 31.03.2024, 22:18

Ответить

Дата: Воскресенье, 31.03.2024, 22:06 | Сообщение № 12

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

Ранг: Участник клуба

Сообщений: 4501

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

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

Excel 2003

Ошибка при значениях без числа в скобках
10 и 11 получаем #ЗНАЧ!

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Дата: Воскресенье, 31.03.2024, 22:20 | Сообщение № 13

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

Ранг: Прохожий

Сообщений: 4

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

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

РЕбят!!! реально, Спасибо за помощь. Заработало все! все как нужно! долго не отвечал, . проверял, на одном компе (жены )все ОК, а на моем компе пишет ошибка #ИМЯ?. разобрался , версия EXCEL 2003 года, да-да, комп, старый но я только в нем работаю. Можно ли под мою версию что-то или "запить водой"?

Ответить

Дата: Воскресенье, 31.03.2024, 22:23 | Сообщение № 14

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

Ранг: Участник клуба

Сообщений: 4501

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

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

Excel 2003

тогда так.

К сообщению приложен файл: kopija_kopija_akt_4_aprel1_2.xlsx (16.2 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

Дата: Воскресенье, 31.03.2024, 22:29 | Сообщение № 15

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

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

Сообщений: 1829

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

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

Excel 2013, 2016

Для 2003:

Код

=(ТЕКСТ(ЛЕВБ(A1;ЕСЛИ(ЕОШ(ПОИСК("(";A1));9;ПОИСК("(";A1))-1)-10;"0;\0")-ЕСЛИ(ЕОШ(ПОИСК("(";A1));;ПСТР(A1;ПОИСК("(";A1);99)))*3

*

Код

=ЕСЛИ(ЕОШ(ПОИСК("(";A1));ТЕКСТ(A1-10;"0;\0");(ТЕКСТ(ЛЕВБ(A1;ПОИСК("(";A1)-1)-10;"0;\0")-ПСТР(A1;ПОИСК("(";A1);99)))*3

**

Код

=ЕСЛИ(ЕОШ(-A1);ТЕКСТ(ЛЕВБ(A1;ПОИСК("(";A1)-1)-10;"0;\0")-ПСТР(A1;ПОИСК("(";A1);99);ТЕКСТ(A1-10;"0;\0"))*3

***Подсмотрел

Код

=ЕСЛИ(ЕОШ(-A1);МАКС(ЛЕВБ(A1;ПОИСК("(";A1)-1)-10;)-ПСТР(A1;ПОИСК("(";A1);99);МАКС(A1-10;))*3

Программировать проще, чем писать стихи.

Сообщение отредактировал Светлый - Воскресенье, 31.03.2024, 23:12

Ответить

Дата: Воскресенье, 31.03.2024, 22:37 | Сообщение № 16

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

Ранг: Прохожий

Сообщений: 4

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

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

Оооооо!! для меня это чудо! на моем компе тож заработало. Спасибо еще раз Ребята за помощь! Всего Вам хорошего! Спасибо!

Ответить

Дата: Воскресенье, 31.03.2024, 23:05 | Сообщение № 17

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

Ранг: Участник клуба

Сообщений: 2748

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

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

начинал с Excel 4.0, видел 2.1

Запилил через имя calcLeftCell, созданное по Ctrl+F3, с использованием макрофункции ВЫЧИСЛИТЬ:

Код

=ВЫЧИСЛИТЬ("МАКС(;"&ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1&"(0)";"(";"+");")";"*3");"+";"-10)*3+";1))

Имя создавалось при активной ячейке B1, поэтому ячейка слева от нее - A1, на которую и ссылается формула. Поскольку макрофункции относятся к макросам, то прилагаемый файл имеет тип .xlsM, а не .xlsX (это нормально).

Работает так: в некоторую ячейку вводится проверочное выражение, а в ячейку СПРАВА от нее (в той же строке, но в следующем столбце) вводится формула "вычисленияЯчейкиСлева":

Код

=calcLeftCell

В процессе работы функция ВЫЧИСЛИТЬ обрабатывает примерно следующие выражения, подготовленные для нее "внутренней начинкой" формулы:
Так, для числа 30 фактически происходит вычисление выражения (ответ = 60):

Код

=МАКС(;30-10)*3+0*3

а для строки "22 (4)" - вычисление выражения (ответ = 48):

Код

МАКС(;22 -10)*3+4*3+0*3

Фиктивная строка "(0)" внутри формулы добавляется в конец каждого тестируемого выражения - для единообразия обработки строк с "добавкой" в скобках и без нее.

[p.s.]И раз уж невольно про макросы вспомнили,[/p.s.]
то до кучи еще и UDF с одной строкой кода:
[vba]

Код

Public Function calcCell(x)
calcCell = 3 * (WorksheetFunction.Max(0, Val(x) - 10) + Val(Split(x & "(0)", "(")(1)))
End Function

[/vba]

Запилил через имя calcLeftCell, созданное по Ctrl+F3, с использованием макрофункции ВЫЧИСЛИТЬ:

Код

=ВЫЧИСЛИТЬ("МАКС(;"&ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1&"(0)";"(";"+");")";"*3");"+";"-10)*3+";1))

Имя создавалось при активной ячейке B1, поэтому ячейка слева от нее - A1, на которую и ссылается формула. Поскольку макрофункции относятся к макросам, то прилагаемый файл имеет тип .xlsM, а не .xlsX (это нормально).

Работает так: в некоторую ячейку вводится проверочное выражение, а в ячейку СПРАВА от нее (в той же строке, но в следующем столбце) вводится формула "вычисленияЯчейкиСлева":

Код

=calcLeftCell

В процессе работы функция ВЫЧИСЛИТЬ обрабатывает примерно следующие выражения, подготовленные для нее "внутренней начинкой" формулы:
Так, для числа 30 фактически происходит вычисление выражения (ответ = 60):

Код

=МАКС(;30-10)*3+0*3

а для строки "22 (4)" - вычисление выражения (ответ = 48):

Код

МАКС(;22 -10)*3+4*3+0*3

Фиктивная строка "(0)" внутри формулы добавляется в конец каждого тестируемого выражения - для единообразия обработки строк с "добавкой" в скобках и без нее.

[p.s.]И раз уж невольно про макросы вспомнили,[/p.s.]
то до кучи еще и UDF с одной строкой кода:
[vba]

Код

Public Function calcCell(x)
calcCell = 3 * (WorksheetFunction.Max(0, Val(x) - 10) + Val(Split(x & "(0)", "(")(1)))
End Function

[/vba]Gustav

К сообщению приложен файл: calcLeftCell.xlsm (9.0 Kb)

МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал Gustav - Воскресенье, 31.03.2024, 23:28

Ответить

СообщениеЗапилил через имя calcLeftCell, созданное по Ctrl+F3, с использованием макрофункции ВЫЧИСЛИТЬ:

Код

=ВЫЧИСЛИТЬ("МАКС(;"&ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1&"(0)";"(";"+");")";"*3");"+";"-10)*3+";1))

Имя создавалось при активной ячейке B1, поэтому ячейка слева от нее - A1, на которую и ссылается формула. Поскольку макрофункции относятся к макросам, то прилагаемый файл имеет тип .xlsM, а не .xlsX (это нормально).

Работает так: в некоторую ячейку вводится проверочное выражение, а в ячейку СПРАВА от нее (в той же строке, но в следующем столбце) вводится формула "вычисленияЯчейкиСлева":

Код

=calcLeftCell

В процессе работы функция ВЫЧИСЛИТЬ обрабатывает примерно следующие выражения, подготовленные для нее "внутренней начинкой" формулы:
Так, для числа 30 фактически происходит вычисление выражения (ответ = 60):

Код

=МАКС(;30-10)*3+0*3

а для строки "22 (4)" - вычисление выражения (ответ = 48):

Код

МАКС(;22 -10)*3+4*3+0*3

Фиктивная строка "(0)" внутри формулы добавляется в конец каждого тестируемого выражения - для единообразия обработки строк с "добавкой" в скобках и без нее.

[p.s.]И раз уж невольно про макросы вспомнили,[/p.s.]
то до кучи еще и UDF с одной строкой кода:
[vba]

Код

Public Function calcCell(x)
calcCell = 3 * (WorksheetFunction.Max(0, Val(x) - 10) + Val(Split(x & "(0)", "(")(1)))
End Function

[/vba]

Автор - Gustav
Дата добавления - 31.03.2024 в 23:05

Дата: Воскресенье, 31.03.2024, 23:13 | Сообщение № 18

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

Ранг: Участник клуба

Сообщений: 4110

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

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

Excel 2013/2016

ну и я отмечусь

Код

=SUM(--TEXT(({0;""}&MID(SUBSTITUTE(E11&"(0)";"(";REPT(" ";15)&"(");{1;"15"};15))-{10;0};{"0;\0";"0;0"}))*3

Не знаю может ли быть только (3) я учел.

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

Сообщение отредактировал bmv98rus - Воскресенье, 31.03.2024, 23:17

Ответить

Дата: Понедельник, 01.04.2024, 10:31 | Сообщение № 19

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

Ранг: Участник клуба

Сообщений: 4501

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

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

Excel 2003

Еще вариант

Код

=3*(МАКС(;ЛЕВБ(A2;ПОИСК("?(";A2&"("))-10)-ЕСЛИ(Ч(A2);;ПСТР(A2;ПОИСК("(";A2);9)))

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Понедельник, 01.04.2024, 11:19

Ответить

Дата: Понедельник, 01.04.2024, 21:00 | Сообщение № 20

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

Ранг: Участник клуба

Сообщений: 4110

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

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

Excel 2013/2016

AlexM, а как правильно. Дожал или ужал :-)
Если в ячейке пусто то ошибка.

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

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по Excel » EXCEL. сложение и умножение в одной ячейке. (Формулы/Formulas)

Страница 1 из 2
1
2
»

© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!