Dim Dates(1 To 30) As Date

For z = i To j - 1
    If Range("A" & z) > "01.01.2018" Then
       Dates(t) = CDate(Range("A" & z))

        ......

       t = t + 1
    End If
Next z

WsG.Activate
    ActiveSheet.Shapes.AddChart.Select
    With ActiveChart
    .ChartType = xlXYScatterSmooth
    .SeriesCollection.NewSeries
    .SeriesCollection(1).Name = "="""KGF""
    .SeriesCollection(1).XValues = Dates
    .SeriesCollection(1).Values = KGF

=РЯД("KGF";{"1/1/2019";"1/1/2020";"1/1/2021";"1/1/2022";"1/1/2023";"1/1/2024";"1/1/2025";"1/1/2026";"1/1/2027";"1/1/2028";"1/1/2029";"1/1/2030";"1/1/2031";"1/1/2032";...

WorkersColl.Add .Range("B" & i).Value, CStr(.Range("B" & i).Value)

Public WorkersColl As Collection

Public Sub testeditbox(ctrl As IRibbonControl, tttt$) 
MsgBox tttt 
End Sub 
Function tttt(control As IRibbonControl, ByRef returnedVal) 
returnedVal = "" 
End Function

 <editBox id="edBox" enabled="true" getText="tttt" onChange="testeditbox"/>

Option Explicit

Public RibbonTextBox As String

'Callback for MyEditBox onChange
Sub SetTextValue(control As IRibbonControl, text As String)
     RibbonTextBox = text
End Sub

'Callback for MyButton1 onAction
Sub HelloWorld(control As IRibbonControl)
     MsgBox RibbonTextBox
End Sub

<editBox id="SheetName" onChange="SetText" getText="GetText" label="Имя листа"/>
<button id="Button1" label="Найти лист в открытой книге" onAction="find_well_in_activewb" size="large" imageMso="FindDialog"/>

    For j = 1 To N_pipe
        NKT_info(j, 1) = L & j
        NKT_info(j, 2) = d & j
    Next j

Function 123()
Dim Q_guess1 As Double, Q_guess2 As Double, Q_guess3 As Double
Dim A1 As Double, A2 As Double, A3 As Double, P_tr As Double
Q_guess3 = 400
For P_tr = 5 To 40
    Q_guess1 = Q_guess3
    Q_guess2 = 0.9 * Q_guess3
    A1 = V_zab(Q_guess1, P_tr) - 100500
    A2 = V_zab(Q_guess2, P_tr) - 100500

    ....
    A3 = V_zab(Q_guess3, P_tr) - 100500

   ....
Next P_tr
ThisWorkbook.Worksheets("Расчет").ChartObjects.Select
With ActiveChart
    .SeriesCollection.NewSeries
    .SeriesCollection(.SeriesCollection.Count).XValues = VJ_XTable
    .SeriesCollection(.SeriesCollection.Count).Values = VJ_YTable
End With
End Function 

Call Q_guess_VJ
Call Q_guess_SP
Call Q_guess_NK 

Range("I1:M" & Cells(Rows.Count, 10).End(xlUp).Row).Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs filename:="C:\123\123.txt", FileFormat:=xlUnicodeText, CreateBackup:=False
ActiveWindow.ActiveSheet.Delete
 

Set ra = Range("I1:M" & Cells(Rows.Count, 10).End(xlUp).Row) '.Resize(, 11)
arr = ra.Value    
Open ActiveWorkbook.Path & "\test.txt" For Output As 1
Write #1, arr
Close #1


Open "c:\1.txt" For Output As #1
For i = LBound(arr) To UBound(arr)
        For j = 1 To 5
            Print #1, arr(i, j)
        Next j
Next i
Close #1
 

For i = 1 To 15
    ar(i) = Worksheets("123").Range("C" & i).Value
Next
Worksheets("123").[N8:N23] = ar

Worksheets("123").Range("N8:N" & ArrayBound + 8).Value = ar
[n8].Resize(UBound(ar), 1) = ar

For X = 5 To 40 Step 0.25
    
Q_guess1 = 0.95 * Q_guess3
Q_guess2 = 0.87 * Q_guess3
A1 = f(x, Q_guess1) - C
A2 = f(x, Q_guess2) - C
Q_guess3 = Q_guess2 - A2 * (Q_guess2 - Q_guess1) / (A2 - A1) 'хорды
A3 =  f(x, Q_guess3) - C

For i = 1 To 100
    If Abs(A1) > Abs(A2) Then 'удаление лишнего начального приближения
        Q_guess1 = Q_guess3
        A1 = A3
        Else
        Q_guess2 = Q_guess3
        A2 = A3
    End If
    If Abs(Q_guess1 - Q_guess2) < 1 Or Q_guess1 < 0 Or Q_guess2 < 0 Then
    Exit For 'критерий останова
    End If
     Q_guess3 = Q_guess2 - A2 * (Q_guess2 - Q_guess1) / (A2 - A1) 'новое значение Q_guess3
    A3 = f(x, Q_guess3) - C
Next i

Next X

For X = 5 To 40 Step Step_123
....
If x>20 then Step_123 = ..

With Selection
 .NumberFormat = "#,##0.00"
 .Replace ",", "."
 .Formula = .Formula
End With

Workbooks.Open filename:=FileAdressGraf, ReadOnly:=True
Workbooks(FileNameGraf).Sheets("123").ChartArea.Copy
ThisWorkbook.Activate
With Worksheets("111")
    .Range("E9").Select
    .Paste
End With
Workbooks(FileNameGraf).Close SaveChanges:=False

Function GetValue(path, file, sheet, ref)
Dim arg As String
arg = "'" & path & "[" & file & "]" & sheet & "'!" & Range(ref).Range("A1").Address(, , xlR1C1)
GetValue = ExecuteExcel4Macro(arg)
End Function

Range("B" & i + 12) = GetValue(FileAdressO, FileNameO, sheet, adress)

    ActiveSheet.Shapes.AddChart.Select
    With ActiveChart
    .ChartType = xlXYScatterSmoothNoMarkers
    .SeriesCollection(.SeriesCollection.Count).Delete
    .SeriesCollection.NewSeries
    .SeriesCollection(1).XValues = "='123'!$I$8:$I$82"
    .SeriesCollection(1).Values = "='123'!$H$8:$H$82"
    .ChartStyle = 245
    .ChartArea.Left = Worksheets("123").Range("K37").Left
    .ChartArea.Top = Worksheets("123").Range("K37").Top
    .ChartArea.Width = 450
    .ChartArea.Height = 425
    .SeriesCollection(1).Format.Line.Weight = 5
    .Legend.Delete
    .Axes(xlValue, xlPrimary).HasTitle = True: .Axes(xlValue, xlPrimary).AxisTitle.Text = "123"
    .Axes(xlCategory, xlPrimary).HasTitle = True: .Axes(xlCategory, xlPrimary).AxisTitle.Text = "12345, %"
    End With

    .SeriesCollection(11).Delete
    .SeriesCollection(10).Delete
    .SeriesCollection(9).Delete
    .SeriesCollection(8).Delete
    .SeriesCollection(7).Delete
    .SeriesCollection(6).Delete

Rs = 0000000.0123 (Р^6) + ...

Private Sub GoButton_Click()
With Worksheets("123")
Call XarakCalc
    Select Case True
    Case Chart5_Select 'имеется серия графиков, пользователь выбирает, по какому конкретно он хочет получить прогноз
    Dim trendline, x, y
    N = TextBox9.Text: K = TextBox10.Text 'ввод границ прогноз - 50 и 60ая точка, к примеру
    ReDim x(1 To K - N + 1): ReDim y(1 To K - N + 1)
    j = 0
    For i = N To K
        j = j + 1
        If Np_o(i) = Empty Then 'это массив объявляется в XarakCalc, в него заносятся значения ячеек из определнного столбца
            y(j) = 0
        Else
            y(j) = Np_o(i)
        End If
        If ObrTime(i) = Empty Then 'это массив объявляется в XarakCalc, в него заносятся значения ячеек из определнного столбца
            x(j) = 0
        Else
            x(j) = ObrTime(i)
        End If
    Next i
     
     .Range("C7") = WorksheetFunction.Sum(WorksheetFunction.LinEst(y, x))
   .....
  End Sub

......
trendline = WorksheetFunction.LinEst(y, x, 1, 1) 'y, x вычисляются так же, как и в коде выше
    ReDim x(1 To 2): ReDim Np_o(1 To 2)
    x(1) = ObrTime(N)
    x(2) = ObrTime(K)
    Np_o(1) = trendline(1, 1) * x(1) + trendline(1, 2)
    Np_o(2) = trendline(1, 1) * x(2) + trendline(1, 2)
' далее он добавляется на уже существующи график
.......

 Range("K5").FormulaR1C1 = "=SUM(LINEST(R[-3]C[-4]:R[36]C[-4], R[-3]C[-5]:R[36]C[-5])*{45,1})"

    ActiveSheet.Shapes("Button 3").ZOrder msoBringToFront
    ActiveSheet.Shapes("Button 3").ZOrder msoBringToFront

ActiveSheet.Shapes("Chart1").ZOrder msoSendToBack

    For Each Cell In Worksheets("Расчеты").Range("Np_o")
        If IsEmpty(Cell) Then Exit For
        N = N + 1
        Np_o(N) = Cell.Value
    Next Cell

    For Each Cell In Worksheets("Расчеты").Range("Np_w")
        If IsEmpty(Cell) Then Exit For
        I = I + 1
        Np_w(I) = Cell.Value
    Next Cell

    For J = 1 To LastRow - 12
      VNF(J) = Np_w(J) / Np_o(J)
    Next J

    ActiveSheet.Shapes.AddChart.Select
    With ActiveChart
    .ChartType = xlXYScatterSmooth
    .SeriesCollection.NewSeries
    .SeriesCollection(1).XValues = Np_o
    .SeriesCollection(1).Values = VNF
 . . . . .