Условия если в ячейке не только цифра но и символ

@Zver6233 · Регистрация: 21.06.2013

Author24 — интернет-сервис помощи студентам

А1=2руб А2=4руб А3=7руб А4=5руб
Как сделать условия если равно4 или меньше тогда +1 а если 5 и больше равно +2 и так чтобы искало сумму.
2 4 7 5 ет +1+1+2+2=6

@AleksSid · 13.11.2014, 06:05

ФМ

Код

=СУММ(ЕСЛИ(A1:A4<5;1;2))

@snipe · 13.11.2014, 06:43

В VBA есть функция Val
суть в том что эта функция будет искать с начала строки все числа пока не встретит символ который числом не является, в качестве разделителя воспринимает только точку (это надо учитывать из-за национальных настроек компа )
таким образом в вашем случае
в модуле пишем функцию

Visual Basic

Public Function ConRUR(r As Range) As Double
For i = 1 To r.Rows.Count
asd = Replace(r.Cells(i, 1), ",", ".")
If Val(asd) >= 5 Then ConRUR = ConRUR + 2 Else ConRUR = ConRUR + 1
Next i
End Function

файл сохраняем в формате xlsm (если у вас офис 2007 и выше)

теперь в в нужной ячейке пишем =ConRUR(a1:a4) и получаем результат

@AleksSid · 13.11.2014, 09:55

Если у вас стоят разные символы в столбце, и они не заданы форматом, с учётом что между числом и символом есть пробел, можно использовать такую формулу, ФМ

Код

=СУММ(ЕСЛИ(--ЛЕВСИМВ(A6:A9;ПОИСК(" ";A6)-1)<5;1;2))

@Zver6233 · 13.11.2014, 22:57 **[ТС]**

Сообщение от AleksSid

=СУММ(ЕСЛИ(--ЛЕВСИМВ(A6:A9;ПОИСК(" ";A6)-1)<5;1;2))

Почему А6 аргумент в ПОИСК?Функция не совсем то что я хотел. она не суммирует.
мне нужно чтобы каждый елемент меньше 5 обозначался как 1 а больше 5 обозначался как 2.
в итоге должно получится что у меня 2 числа меньше 5 это соответственно +1+1 и 2 числа больше или равно 5 а это +2+2 и вконце концов должно в суме получится сумма=6

Добавлено через 22 минуты

Сообщение от snipe

Visual Basic

Public Function ConRUR(r As Range) As Double
For i = 1 To r.Rows.Count
asd = Replace(r.Cells(i, 1), ",", ".")
If Val(asd) >= 5 Then ConRUR = ConRUR + 2 Else ConRUR = ConRUR + 1
Next i
End Function

а как еще условия вписать чтобы если ячейка пустая то +0

@AleksSid · 14.11.2014, 05:03

Сообщение от Zver6233

Почему А6 аргумент в ПОИСК?Функция не совсем то что я хотел. она не суммирует.

Покажите файл где формула не суммирует. Вы мой файл смотрели, обе формулы ФМ (формулы массива) вводятся одновременным нажатием клавиш Ctrl-Shift-Enter.

@snipe · 14.11.2014, 05:26

Visual Basic

Public Function ConRUR(r As Range) As Double
For i = 1 To r.Rows.Count
frt=r.cells(i,1)
if frt="" then frt="0"
asd = Replace(frt, ",", ".")
If Val(asd) >= 5 Then
ConRUR = ConRUR + 2 
Else
if  Val(asd)<>0 then ConRUR = ConRUR + 1
end if
Next i
End Function

@Zver6233 · 14.11.2014, 17:18 **[ТС]**

Условия если в ячейке не только цифра но и символ

Сообщение от AleksSid

Покажите файл где формула не суммирует. Вы мой файл смотрели, обе формулы ФМ (формулы массива) вводятся одновременным нажатием клавиш Ctrl-Shift-Enter.

@Zver6233 · 14.11.2014, 17:20 **[ТС]**

в первом должно было бить 7 а во втором 10

@Zver6233 · 14.11.2014, 17:22 **[ТС]**

Сообщение от snipe

Public Function ConRUR(r As Range) As Double

как убрать такое окно?

@AleksSid · 14.11.2014, 18:33

Сообщение от AleksSid

Если у вас стоят разные символы в столбце, и они не заданы форматом, с учётом что между числом и символом есть пробел, можно использовать такую формулу, ФМ

Да, во второй формуле была ошибка, исправил.

Код

=СУММ(ЕСЛИ(--ЛЕВСИМВ($A$10:$A$15;ПОИСК(" ";$A$10:$A$15)-1)<5;1;2))

но она не подходит для первого диапазона т. к. в первом диапазоне символы заданы форматом.

@Zver6233 · 14.11.2014, 18:38 **[ТС]**

Сообщение от AleksSid

Да, во второй формуле была ошибка, исправил.

спасибо за не равнодушие. Но я уже использую функцию которую написал снайп

@Zver6233 37 / 37 / 18 Регистрация: 21.06.2013 Сообщений: 271 Записей в блоге: 1
	14.11.2014, 18:38 [ТС]	12
	Сообщение от AleksSid Да, во второй формуле была ошибка, исправил. спасибо за не равнодушие. Но я уже использую функцию которую написал снайп 0

@AleksSid 772 / 615 / 294 Регистрация: 05.01.2014 Сообщений: 1,338
	14.11.2014, 05:03	6
	Сообщение от Zver6233 Почему А6 аргумент в ПОИСК?Функция не совсем то что я хотел. она не суммирует. Покажите файл где формула не суммирует. Вы мой файл смотрели, обе формулы ФМ (формулы массива) вводятся одновременным нажатием клавиш Ctrl-Shift-Enter. 0

@Zver6233 37 / 37 / 18 Регистрация: 21.06.2013 Сообщений: 271 Записей в блоге: 1
	14.11.2014, 17:18 [ТС]	8
	Сообщение от AleksSid Покажите файл где формула не суммирует. Вы мой файл смотрели, обе формулы ФМ (формулы массива) вводятся одновременным нажатием клавиш Ctrl-Shift-Enter. 0

@Zver6233 37 / 37 / 18 Регистрация: 21.06.2013 Сообщений: 271 Записей в блоге: 1
	14.11.2014, 17:20 [ТС]	9
	в первом должно было бить 7 а во втором 10 0

@Zver6233 37 / 37 / 18 Регистрация: 21.06.2013 Сообщений: 271 Записей в блоге: 1
	14.11.2014, 17:22 [ТС]	10
	Сообщение от snipe Public Function ConRUR(r As Range) As Double как убрать такое окно? 0

Условия если в ячейке не только цифра но и символ

Решение