Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как посчитать сумму чисел находящихся одной ячейке, стоимость нескольких услуг прописывается в одну ячейку, нужно посчитать ее сумму
 
#1
14.03.2022 16:43:21
Есть выгрузка по чеку клиента в рамках одного визита, проблема в том что если клиент воспользовался несколькими услугами, то в одной ячейке будет прописана стоимость 3-ех услуг, как посчитать сумму этой ячейки, чтобы не потерять фио клиента?
Пример во вложении.
Изменено: Тимур Гулиев - 14.03.2022 16:45:43 (внес пояснения)
 
 
 
#2
14.03.2022 16:48:28
Текст по столбцам, в качестве разделителя Ctrl+J
 
 
 
#3
14.03.2022 16:59:59
Код
как посчитать сумму этой ячейки

Код
Sub GetSumma()
Dim mo As Object
Dim n As Integer
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
With CreateObject("VBScript.RegExp")
  .Global = True
  .MultiLine = True
  .Pattern = "^\d+$"
  For i = 3 To iLastRow
    If .Test(Cells(i, 2)) Then
      Set mo = .Execute(Cells(i, 2))
      For n = 0 To mo.Count - 1
        Cells(i, 3) = Cells(i, 3) + CDbl(mo(n))
      Next
    End If
  Next
End With
End Sub
 
 
 
#4
14.03.2022 17:00:46
Цитата
написал:
екст по столбцам, в качестве разделителя Ctrl+J
Вот спасибо тебе! Напиши мне +79372678887 - закину на вкусняшки денежку))
 
 
 
#5
14.03.2022 17:19:38
Цитата
Тимур Гулиев написал:
закину на вкусняшки денежку
Если Вы мне, то достаточно простого человеческого спасибо
 
 
 
#6
14.03.2022 20:03:13
уж сколько раз подобное разбиралось
=SUM(IFERROR(--MID(SUBSTITUTE(CHAR(10)&B3;CHAR(10);REPT(" ";99));ROW($1:$10)*99;99);))
Изменено: БМВ - 14.03.2022 20:03:24
По вопросам из тем форума, личку не читаю.
 
 
 
#7
14.03.2022 20:39:44
Если есть ФИЛЬТР.XML, то можно так
Код
=ЕСЛИОШИБКА(СУММ(ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(B3;СИМВОЛ(10);"</s><s>")&"</s></t>";"//s"));0)
Изменено: Msi2102 - 14.03.2022 20:41:42
 
 
 
#8
14.03.2022 21:08:25
Msi2102, можно , но это как раз тот случай когда не проще, не короче и медленнее
Код
=SUM(IFERROR(--MID(SUBSTITUTE(CHAR(10)&B9,CHAR(10),REPT(" ",99)),ROW($1:$10)*99,99),))
         773,4375
Код
=IFERROR(SUM(FILTERXML("<t><s>"&SUBSTITUTE(B9,CHAR(10),"</s><s>")&"</s></t>","//s")),0)
        1921,875
но есть + ,произвольное количество слогаемых.
Изменено: БМВ - 14.03.2022 21:24:10
По вопросам из тем форума, личку не читаю.
 
 
 
#9
14.03.2022 23:19:42
Цитата
БМВ написал:
но это как раз тот случай когда не проще,
так я и не спорю, просто как ещё один вариант
 
 
 
Страницы: 1
Наверх