Function Zifra(RNG As Range) As Double

Dim RegEx As Object

Dim ssl As String, S_Summ As Double

For n = 1 To RNG.Columns.Count

For m = 1 To RNG.Rows.Count

ssl = ssl & RNG.Cells(m, n)

Next: Next

Set RegEx = CreateObject("VBScript.RegExp")

    With RegEx

        .Global = True

        .Pattern = "\D"

       ssl = .Replace(ssl, " ")

    End With

Set objRegEx = Nothing

  ssl = RTrim(LTrim(ssl))

     For n = 1 To Len(ssl)

      sl = Mid(ssl, n, 1)

     If sl

     S_Summ = S_Summ + sl

     End If: Next

  Zifra = S_Summ

End Function

8 лет назад
guest_1482740178656
8 лет в сервисе
Был
8 лет назад

Заявки фрилансеров

Нет заявок фрилансеров