есть макрос для MS Excel, нужно преобразовать этот макрос в скрипт (или сделать аналогичный) для платформы Google doc (app) макрос: - вопрос №2261785

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 <> " " Then S_Summ = S_Summ + sl End If: Next Zifra = S_Summ End Function

декабрь 26, 2016 г.