=МЕДИАНА(ЕСЛИ(($I$3:$I$653=N3)*($J$3:$J$653=O3);$K$3:$K$653))

=ДВССЫЛ("Лист2!C"&B2+1)

Dim СуммаТП1 As Double, i&

For i = 1 To 10 ' количество Textbox-ов
    If Controls("ruboper" & i).Value <> "" Then
        СуммаТП1 = СуммаТП1 + CDbl(Controls("ruboper" & i).Value)
    End If
Next i
Me.TextBox56.Value = Format(СуммаТП1, "# ##0.00")

Sub openFile()
Dim wb As Workbook
Dim sFile$
sFile = "C:\Test\ИмяФайла.xlsx"
Set wb = Workbooks.Open(sFile)
Application.Run "'ИмяФайла.xlsx'!ИмяМакроса"
End Sub

Set objApp = CreateObject("Word.Application")
                        objApp.Visible = False
                        Set objDoc = objApp.Documents.Open(File.path)
                            s = objDoc.Range.Information(4)
                            sh.Cells(k, 1) = File.Name: sh.Cells(k, 2) = s
                            objApp.Quit

For i= 1 to n
With Controls("Forms.Textbox.1")
.name = "txb" & i
.
.
End with
Next i

=--ЕСЛИОШИБКА(ЦЕЛОЕ(B2);ЛЕВСИМВ(B2;10))

=ПЕРЕКЛЮЧ(C1;"*";A1*A2;"/";A1/A2)