=ЕСЛИОШИБКА(ПОИСКПОЗ(1;D8:D999^0;)+СТРОКА();ПОИСКПОЗ(9E+307;A:A)+1)-ПОИСКПОЗ(9E+307;$D$1:D7)

=ПРОСМОТР(9E+307;D$7:D7)/$Q7

=ВПР(C3;ИНДЕКС(Лист2!$C$3:$E$5;Ч(ИНДЕКС(--Лист2!$B$3:$B$5;0));Ч(ИНДЕКС({2;1;3};0)));3;0)

Function DECIMAL2RGB(ColorVal) As Variant
'   Converts a color value to an RGB triplet
'   Returns a 3-element variant array
    With Application
        DECIMAL2RGB = .Bitand(.Bitrshift(ColorVal, Array(0, 8, 16)), &HFF)
    End With
End Function

Sub colorize()
    Dim p As Paragraph, prev&, b As Boolean
    Application.ScreenUpdating = 0
    With CreateObject("vbscript.regexp")
        .Global = False: .Pattern = "^\d+\.\d+\s"
        For Each p In ThisDocument.Paragraphs
            If .test(p.Range.Text) Then
                If prev > 0 Then
                    p.Parent.Range(prev - 1, p.Previous.Range.End).HighlightColorIndex = IIf(b, 3, 7)
                End If
                prev = p.Range.Start + 1
                b = Not b
            ElseIf p.Next Is Nothing Then
                p.Parent.Range(prev - 1, p.Range.End).HighlightColorIndex = IIf(b, 3, 7)
            End If
        Next
    End With
    Application.ScreenUpdating = 1
End Sub

=АГРЕГАТ(14;6;C2:C38/(ПРОСМОТР(B2:B38;{0,065;0,072})=0,065);1)

((196*256<<8)+212*256+72).toString(16) //результат - c4d448

application.dec2hex(rgb(196,212,72),6) 'результат - 48D4C4

dim v as variant
'...
v = GetSetting(APPNAME, "Defaults", ctl.Name, ctl.Value)
if isnumeric(v) then
    ctl.Value = v
endif

'[select.special(11)]'
'[select(, "RC1")]'

Private Sub Worksheet_Calculate()
    Worksheets(Me.Name).UsedRange
    Me.Cells.SpecialCells(11).EntireRow.Cells(, "A").Select
End Sub

=ДАТА(ЛЕВБ(A2;4);ПСТР(A2;5;2);ПРАВБ(A2;2))

Sub drawCircles()
    Dim pCircle As Shape
    Dim pPoly As Shape
    Dim pNodes As ShapeNodes
    Dim pSheet As Worksheet
    Dim kNode As Long, xOff As Double, yOff As Double
    Dim dX As Double, dY As Double, pointDist As Double
    Dim Xc As Double, Yc As Double, curDist As Double
    Set pSheet = ActiveSheet
    Set pPoly = pSheet.Shapes("Полилиния 2")
    Set pCircle = pSheet.Shapes("Овал 16")
    xOff = -0.5 * pCircle.Width
    yOff = -0.5 * pCircle.Height
    curDist = 0#
    Set pNodes = pPoly.Nodes
    For kNode = 1 To pNodes.Count - 1
        dX = pNodes(kNode + 1).Points(1, 1) - pNodes(kNode).Points(1, 1)
        dY = pNodes(kNode + 1).Points(1, 2) - pNodes(kNode).Points(1, 2)
        pointDist = Math.Sqr(dX ^ 2 + dY ^ 2)
        dX = dX / pointDist
        dY = dY / pointDist
        Do Until curDist > pointDist
            Xc = pNodes(kNode).Points(1, 1) + curDist * dX + xOff
            Yc = pNodes(kNode).Points(1, 2) + curDist * dY + yOff
            'pSheet.Shapes.AddShape msoShapeOval, Xc, Yc, pCircle.Width, pCircle.Height
            With [Овал 16].Duplicate
                .Top = Yc
                .Left = Xc
            End With
            curDist = curDist + 50
        Loop
        curDist = curDist - pointDist
    Next
End Sub

Sub xx()
    With [Группа 4].ShapeRange.Duplicate
        .Left = .Left + .Width - 12
        .Top = .Top - 12
        .Flip 0
    End With
End Sub

=ЕСЛИ(И(G10<>"";H11<>"");ЕСЛИ(ЕСЛИОШИБКА(И(СОВПАД(ИНДЕКС(J$1:J10;Ч(ИНДЕКС(ПРОСМОТР(2;1/(J$1:J10<>"");СТРОКА(J$1:J10))-{0;1};)));0)););ЕСЛИ(ЕСЛИОШИБКА(СЧЁТЕСЛИ(ИНДЕКС(G$1:G10;ПРОСМОТР(2;1/(J$1:J10<>"");СТРОКА(J$1:J10))+1):G10;"A")>0;G10="A");Ч(G10=H11);"");Ч(G10=H11));"")

[=0]Не равно;Равно