Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как сложить числа в текстовой ячейке
 
#1
04.04.2012 13:12:03
Здравствуйте.  
Помогите пожалуйста, всю голову сломал, ничего не получается.  
 
Есть тексовые ячейки с цифрами и буквами, необходимо сложить все цифры в ячейке.
 
 
 
#2
04.04.2012 13:27:07
UDF:  
 
Function specsum(s$) As Double  
   Dim i&  
   For i = 1 To Len(s)  
       If Not IsNumeric(Mid(s, i, 1)) Then Mid(s, i, 1) = "+"  
   Next  
   specsum = Evaluate("=" & s & "+0")  
End Function
 
 
 
#3
04.04.2012 13:28:58
Эмм...    
"=" &  
лишнее...
 
 
 
#4
04.04.2012 13:38:12
Подскажите.  
А как этот макрос работает?
 
 
 
#5
04.04.2012 13:48:32
Зачем писать своё, если есть формула (формула массива) МСН:  
 
=СУММ(--ПСТР(0&A3;НАИБОЛЬШИЙ(ЕЧИСЛО(-ПСТР(" "&A3;СТРОКА($1:$99)+1;1))*ЕОШ(-ПСТР(" "&A3;СТРОКА($1:$99);1))*СТРОКА($1:$99);СТРОКА($1:$10))+1;НАИБОЛЬШИЙ(ЕЧИСЛО(-ПСТР(A3;СТРОКА($1:$99);1))*ЕОШ(-ПСТР(A3;СТРОКА($1:$99)+1;1))*СТРОКА($1:$99);СТРОКА($1:$10))-НАИБОЛЬШИЙ(ЕЧИСЛО(-ПСТР(" "&A3;СТРОКА($1:$99)+1;1))*ЕОШ(-ПСТР(" "&A3;СТРОКА($1:$99);1))*СТРОКА($1:$99);СТРОКА($1:$10))+1))
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#6
04.04.2012 13:56:10
Файл с работы не хочу посылать.  
Поэтому изучайте приёмы: http://www.planetaexcel.ru/tip.php?aid=62  
и делайте аналогично с этим кодом.  
На лист пишется просто: =specsum(A3)  
 
Ещё раз код без лишнего (и тип поменял, Double лишнее):  
 
Function specsum(s$) As Long  
   Dim i&  
   For i = 1 To Len(s)  
       If Not IsNumeric(Mid(s, i, 1)) Then Mid(s, i, 1) = "+"  
   Next  
   specsum = Evaluate(s & "+0")  
End Function  
 
 
Владимир - мне это никогда не разобрать... :)
 
 
 
#7
04.04.2012 14:20:48
Спасибо всем!  
Разобрался, всё работает (и формула и функция).
 
 
 
#8
04.04.2012 23:38:10
Цифры. Числа. Есть разница?
 
 
 
#9
13.06.2012 22:52:39
Скажите, а как модифицировать эту функцию, чтобы складывала дробные числа, а то "точки" воспринимает, как текст и разбивает число.  
 
Function specsum(s$) As Long  
Dim i&  
For i = 1 To Len(s)  
If Not IsNumeric(Mid(s, i, 1)) Then Mid(s, i, 1) = "+"  
Next  
specsum = Evaluate(s & "+0")  
End Function
 
 
 
#10
13.06.2012 22:59:36
в смысле "разбивает число"?
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
 
 
#11
13.06.2012 23:14:14
{quote}{login=vikttur}{date=04.04.2012 11:38}{thema=}{post}Цифры. Числа. Есть разница?{/post}{/quote}  
что за глупости? ) Круг и квадрат. Есть разница? Конечно нет! И то и другое геометрическая фигура )))
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#12
13.06.2012 23:23:59
в смысле "разбивает число"?  
В смысле есть строка 98.5текст1.5  
Вместо сложения 98.5+1.5 и результа 100    
складывает 98+5+1+5 и результат 106
 
 
 
#13
13.06.2012 23:27:07
{quote}{login=nerv}{date=13.06.2012 11:14}{thema=}{post}что за глупости? ){/post}{/quote}  
Буквы и слова есть разница?
 
 
 
#14
13.06.2012 23:29:03
{quote}{login=}{date=13.06.2012 11:23}{thema=}{post}складывает 98+5+1+5 и результат 106{/post}{/quote}Excel так не умеет... 109 - можно, 106... то же можно, если знать, почему...
 
 
 
#15
13.06.2012 23:31:12
а разве в нижеуказанном варианте не складывает как Вам нужно?  
 
Function specsum(s$) As Long  
Dim i&  
For i = 1 To Len(s)  
If Not IsNumeric(Mid(s, i, 1)) Then Mid(s, i, 1) = "+"  
Next  
specsum = Evaluate(s & "+0")  
End Function
Киса, я хочу Вас спросить, как художник — художника: Вы рисовать умеете?
 
 
 
#16
13.06.2012 23:37:06
Function specsum(ByVal s$) As Double  
Dim i&  
For i = 1 To Len(s)  
   If InStr("0123456789.", Mid$(s, i, 1)) = 0 Then Mid$(s, i, 1) = "+"  
Next i  
specsum = Evaluate(s & "+0")  
End Function
 
 
 
#17
14.06.2012 00:13:01
MCH - спасибо! Закрыто.
 
 
 
#18
14.06.2012 10:19:35
Погодите закрывать - нужно упомянуть, что это тоже не универсальный вариант, он не рассчитан на другой разделитель (мало ли где будут использовать), и на то, что в строке может быть точка просто так, не в числе.
 
 
 
#19
14.06.2012 10:51:02
Function specsum(ByVal s$, Optional del$ = ".") As Double  
Dim i&, x  
For i = 1 To Len(s)  
   If InStr("0123456789" & del, Mid$(s, i, 1)) = 0 Then Mid$(s, i, 1) = " "  
Next i  
For Each x In Split(Application.Trim(Replace(s, del, ".")))  
   specsum = specsum + Val(x)  
Next x  
End Function  
 
В данном случае можно задать разделитель целой  дробной части, по умолчанию, если не указать - точка  
Кроме того, не будет возникать ошибка, если в числе есть две точки, после второй точки цифры отбрасываются
 
 
 
Страницы: 1
Читают тему
Наверх