Private Sub ComboBox3_Change()
    On Error Resume Next
    With Intersect(Range("tabl_group[[#all]," & ComboBox3 & "]").SpecialCells(2, 23), [tabl_group[#data]])
        Me.ComboBox4.Clear
        With .Areas(1)
            Me.ComboBox4.List = IIf(.Cells.Count > 1, .Value, Array(.Value))
        End With
    End With
End Sub

Application.Transpose(Range("tabl_group").ListObject.HeaderRowRange.Value)

[transpose(tabl_group[#headers])]

    With Application
        .ScreenUpdating = 0
            With .ActiveSheet
                With Sheets("group")
                    .Activate: .[a2].Select
                End With
                .Activate
            End With
        .ScreenUpdating = 1
    End With

Private Sub CommandButton2_Click()
    If [a1] >= [a2] And [a1] <= [a3] Then MsgBox "fgh"
End Sub

Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    Dim dt As Date
    With TextBox1
        If IsDate(.Value) Then
            dt = CDate(.Value)
            .Value = Format(dt, "dd.mm.yyyy")
            [a2].Formula = dt
        Else
            Cancel = True
        End If
    End With
End Sub

Private Sub TextBox2_AfterUpdate()
    Dim dt As Date
    With TextBox2
        If IsDate(.Value) Then
            dt = CDate(.Value)
            .Value = Format(dt, "dd.mm.yyyy")
            [a3].Formula = dt
        Else
            Cancel = True
        End If
    End With
End Sub
Private Sub UserForm_Initialize()
    Application.EnableEvents = 0
    TextBox1 = [a2].Text
    TextBox2 = [a3].Text
    Application.EnableEvents = 1
End Sub

    With [tabl_logbook].ListObject
        If .InsertRowRange Is Nothing Then .DataBodyRange.Delete
    End With

Private Sub TextBox1_Change()
[a2].Formula = CDate(TextBox1.Value)
End Sub

Private Sub TextBox2_Change()
[a3].Formula = CDate(TextBox2.Value)
End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = [a2].Text
TextBox2.Value = [a3].Text
End Sub

VBE.ActiveVBProject.References.AddFromFile Environ("systemdrive") & "\PROGRA~1\COMMON~1\MICROS~1\OFFICE" & Val(Application.Version) \ 1 & "\ACEDAO.DLL"

.Value = Day(Date)

.ListIndex = Day(Date) - 1

Private Sub UserForm_Initialize()
    With FormLogbook
        With .ComboBox1
            .List = [transpose(proper(text(row(r1:r12)*30,"[$-419]mmm")))] 'Заполнение данными ComboBox11
            .ListIndex = Month(Date) - 1
        End With
        With .ComboBox2
            .List = [transpose(row(r1:r31))] 'Заполнение данными ComboBox2
            .Value = Day(Date)
        End With
    End With
End Sub

Sub Вариант_1()
    Dim c_x1y1 As Range, c_x2y2 As Range, x#, y#, i%, h#
    
    lastcol = Cells(2, Columns.Count).End(xlToLeft).Column
    
    Set c_x1y1 = Range(Cells(2, 2), Cells(3, lastcol))
    Set c_x2y2 = Range(Cells(6, 2), Cells(7, lastcol))
    
    With ActiveSheet.Shapes
        On Error Resume Next
        i = 1
        Do While Err = 0
            .Item("line " & i).Delete
            .Item("label " & i).Delete
            i = i + 1
        Loop
        On Error GoTo 0
        For i = 1 To lastcol - 1
            x = c_x1y1(1, i) + (c_x2y2(1, i) - c_x1y1(1, i) - c_x1y1(1, 1).Width) / 2
            y = c_x1y1(2, i) + (c_x2y2(2, i) - c_x1y1(2, i) - c_x1y1(7, 1).Height) / 2
            With .AddConnector(1, c_x1y1(1, i), c_x1y1(2, i), c_x2y2(1, i), c_x2y2(2, i))
                .Name = "line " & i
            End With
            With .AddTextbox(1, x, y, c_x1y1(1, i).Width, c_x1y1(7, i).Height)
                .Name = "label " & i
                h = .Height
                With .TextFrame
                    .Characters.Text = c_x1y1(7, i)
                    .HorizontalAlignment = xlHAlignCenter
                    .VerticalAlignment = xlVAlignCenter
                    .MarginBottom = 0: .MarginLeft = 0
                    .MarginRight = 0: .MarginTop = 0
                    .AutoSize = True
                End With
                If .Height <> h Then .Top = .Top - (.Height - h) / 2
            End With
        Next i
    End With
End Sub