Разбор сложной функции на составные части

[jimmyyong]

Иногда случается так, что сталкиваясь со сложными функциями, включающими в себя множество других, хочется понять логику вычислений.
В следствии этого решил научить VBA выделять из сложной функции входящие в нее простые функции. И вот что у меня получилось.
Интересно услышать комментарии по этому вопросу.

ЗЫ. Подфункции вставляются непосредственно под рассматриваемой формулой
Функция Fun_FindButtomFunction - ищет простые ПОДфункции в рассматриваемой функции и каждый раз возвращает одну простую функцию.

SS.jpg

Sub FunctionDisassemble()
   Dim i As Byte
   Dim R1 As Range
   Dim TXT_F As String, F_Eng As String, F_Rus As String

   Set R1 = Application.InputBox(Prompt:="Выберите ячейку для разбора функции", Type:=8).Cells(1)
   TXT_F = R1.Formula

   'Перебираем основную формулу пока внутри нее есть формулы 
   Do While TXT_F Like "*[A-Za-z](*)*"
        i = i + 1
        'Ищем формулу нижнего уровня
        F_Eng = Fun_FindButtomFunction(TXT_F)
        'Вставляем найденную формулу
        R1.Offset(i, 1).Formula = "=" & F_Eng
        'Удаляем формулу из строки
        TXT_F = Replace(TXT_F, F_Eng, R1.Offset(i, 1).Address)
        'Выделяем и вставляем название формулы на русском
        F_Rus = R1.Offset(i, 1).FormulaLocal
        R1.Offset(i, 0) = Mid(F_Rus, 2, InStr(1, F_Rus, "(") - 2)
   Loop
End Sub

Function Fun_FindButtomFunction(ByVal TXT As String) As String
   Dim i As Integer, N_Start As Integer, N_End As Integer, Start_Bracket  As Integer
   ' Поиск закрывающей скобки
   For i = 1 To Len(TXT)
            If Mid(TXT, i, 1) = ")" Then
               N_End = i
                                Exit For
            End If
   Next i
   If N_End = 0 Then Exit Function

   ' Поиск открывающей скобки
   For i = N_End To 1 Step -1
       If Mid(TXT, i, 1) = "(" Then Start_Bracket = i: Exit For
   Next i
   If Start_Bracket = 0 Then Exit Function

   'Поиск названия функции
   For i = Start_Bracket - 1 To 1 Step -1
   If Not Mid(TXT, i, 1) Like "[A-Za-z]" Then N_Start = i + 1: Exit For
   Next i

   Fun_FindButtomFunction = Mid(TXT, N_Start, N_End - N_Start + 1)
End Function

[ShAM66]

При этом не забываем про волшебную клавишу F9.
http://www.excelworld.ru/publ/hacks/...las/17-1-0-142

[IgorGO]

я когда-то поставил себе задачу скромнее
разбить большую формулу на составляющие в скобках
у меня получилось так:

Function NumCkobki(s0 As String) As String
'разбивает длинную формулу на фрагменты заключенные в скобки (*)
  c = 0: s = ""
  For i = 1 To Len(s0)
    ch = Mid(s0, i, 1)
    If ch = "(" Then
      c = c + 1
      s = s & Chr(10)
      For n = 1 To c * 2
        s = s & " "
      Next
      s = s & LTrim(Str(c))
    End If
    If ch = ")" Then
      s = s & Chr(10)
      For n = 1 To c * 2
        s = s & " "
      Next
      c = c - 1
    End If
    s = s & ch
  Next
  NumCkobki = s
  Debug.Print s
End Function

[jimmyyong]

Сообщение от IgorGO

я когда-то поставил себе задачу скромнее
разбить большую формулу на составляющие в скобках

Уважаемый IgorGo Ваша функция интересна, но по крайней мере для меня не совсем понятно как Вы ее используете(-вали). Будьте так любезны приложить какой-либо файл-пример ее использования.

[IgorGO]

формула используемая в соседней теме в жизни выглядит так:

=СУММ(--(МУМНОЖ(ТРАНСП(--(RC[-1]=R2C2:R366C2));--(R2C1:R366C1=СТОЛБЕЦ(C1:C34)))>0))

а обработанная предложенной функцией так

=СУММ
  1(--
    2(МУМНОЖ
      3(ТРАНСП
        4(--
          5(RC[-1]=R2C2:R366C2
          )
        );--
        4(R2C1:R366C1=СТОЛБЕЦ
          5(C1:C34
          )
        )
      )>0
    )
  )

формула становиться структурной
открывающиеся скобки пронумерованы, вертикально под номером открывающейся скобки есть соотв. ей закрывающаяся скобка