Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Извлечь числа из текста одинакового формата
 
#1
30.07.2018 10:53:31
Добрый день. Есть текстовое поле в виде количества суток, дней и минут (пример в файле). Данные из полей необходимо суммировать. Возникла проблема перевести данное поле в какой-нибудь формат или вытянуть числа из текста по отдельным ячейкам (потом уже проще).
 
 
 
#2
30.07.2018 11:07:37
вариант на PQ
 
 
 
#3
30.07.2018 13:39:58
вариант функции  в диапазоне B3:D11

Код
Function ccc1(t$, s$)
With CreateObject("VBScript.RegExp"): .Pattern = "\d+ (?=" & s & ")"
  If .test(t) Then ccc1 = CInt(.Execute(t)(0)) Else ccc1 = ""
End With
End Function


 
Изменено: кузя1972 - 30.07.2018 13:40:16
 
 
 
#4
30.07.2018 13:58:37
решение формулой
 
 
 
#5
30.07.2018 15:06:16
Спасибо. Приложу свой вариант, долго, трудно...  
 
 
 
#6
30.07.2018 18:42:57
Вариант udf, которая сразу сумму считает:
Код
Public Function TimeSum(rn As Range)
    Dim c As Range, st As String
    For Each c In rn
        st = c.Value
        st = Replace(st, "сут.", "+")
        st = Replace(st, "час.", "/24+")
        st = Replace(st, "мин.", "/24/60")
        st = Replace(st, " ", "")
        TimeSum = TimeSum + Application.Evaluate(st)
    Next c
    TimeSum = Int(TimeSum) & " сут. " & Format(TimeSum, "h час. m мин.")
End Function
 
 
 
#7
31.07.2018 09:35:00
Сумма не считается, если в выбранном диапазоне (В3:В14) есть пустые ячейки или нет показателя с "мин.". Как посчитать среднее значение в зависимости от непустого в диапазоне А3:А14?
 
 
 
#8
31.07.2018 10:17:18
Ну тогда так:
Код
Public Function TimeSum(rn As Range, Optional oper As String)
    Dim c As Range, st As String
    TimeSum = 0
    For Each c In rn
        st = c.Value
        If st <> "" Then
            st = Replace(st, "сут.", "+")
            st = Replace(st, "час.", "/24+")
            st = Replace(st, "мин.", "/24/60")
            st = Replace(st, " ", "")
            If Right(st, 1) = "+" Then st = Left(st, Len(st) - 1)
            TimeSum = TimeSum + Application.Evaluate(st)
        End If
    Next c
    If oper = "avg" Then TimeSum = TimeSum / rn.Cells.Count
    TimeSum = Int(TimeSum) & " сут. " & Format(TimeSum, "h час. m мин.")
End Function
 
 
 
#9
31.07.2018 10:32:24
 А если выбрать диапазон В3:В14, но среднее должно посчитать при условии, что из диапазона А3:А14 возьмет только количество, где не пусто?
 
 
 
#10
31.07.2018 10:52:24
Код
Public Function TimeSum(rn As Range, rnmark As Range, Optional oper As String)
    Dim st As String, j As Integer, k As Integer
    If rn.Cells.Count <> rnmark.Cells.Count Then Exit Function
    TimeSum = 0
    For j = 1 To rn.Cells.Count
        If rnmark.Cells(j) <> "" Then
            st = rn.Cells(j)
            k = k + 1
            If st <> "" Then
                st = Replace(st, "сут.", "+")
                st = Replace(st, "час.", "/24+")
                st = Replace(st, "мин.", "/24/60")
                st = Replace(st, " ", "")
                If Right(st, 1) = "+" Then st = Left(st, Len(st) - 1)
                TimeSum = TimeSum + Application.Evaluate(st)
            End If
        End If
    Next j
    If oper = "avg" Then TimeSum = TimeSum / k
    TimeSum = Int(TimeSum) & " сут. " & Format(TimeSum, "h час. m мин.")
End Function
 
 
 
#11
31.07.2018 11:18:56
Создал пример второго варианта ссылка на данные из других таблиц и немного поправил код... Правильно?
Еще как нибудь можно просуммировать итоги по двум таблицам в сводную ячейку J16=C16+G16  и вывести среднее по двум таблицам?
Изменено: Bogdan05 - 31.07.2018 11:35:31
 
 
 
#12
08.08.2018 16:19:11
Добрый день. Ну в итоге я себе это вижу примерно так
 
 
 
Страницы: 1
Наверх