Private Sub Worksheet_Change(ByVal Target As Range)        For Each cell In Target



         If Not Intersect(cell, Range("D2:D1000")) Is Nothing And _



                                       Target.Offset(0, 2) = "" Then



                With Target.Offset(0, -2)



                    .Value = Date



                    .EntireColumn.AutoFit



                End With



       End If



    Next cell



End Sub

[/CODE][CODE]Sub SendData()
    'первый способ(не работает)
    Dim f1, f2 As Variant                          ' попытка занести значение полей в переменную, для более удобной работы с ними
    Set f1 = Range("Field1").Value                 ' попытка занести значение полей в переменную, для более удобной работы с ними
    Set f2 = Range("Field2").Value                 ' попытка занести значение полей в переменную, для более удобной работы с ними
    Cnn.Execute ("INSERT INTO test (FirstField, SecondField) VALUES (f1,f2);")                                                             ' Пробный вброс данных в таблицу через SQL запрос
    
    'второй способ(работает, но только константы, а не чтение с ячеек)
    'Cnn.Execute ("INSERT INTO test (FirstField, SecondField) VALUES ('ff1','ff2');")                                                      ' Пробный вброс данных в таблицу через SQL запрос
    
    'третий способ(предпочтительный, но не работает)
    'Rst.Fields(0).Value = Range("Field1").Value     ' Нужно как-то объявлять что-то для выполнения этой строки? Почему жалуется на эту строку.
    'Rst.Fields(1).Value = Range("Field2").Value     ' Нужно как-то объявлять что-то для выполнения этой строки? Почему жалуется на эту строку.
    MsgBox "Данные отправлены"
    Exit Sub
End Sub

=СУММПРОИЗВ((ТРАНСП($C$6:$C$25)=$I$6:$I$30)*ТРАНСП(D$6:D$25)*ИНДЕКС($J$6:$O$30;;ПОИСКПОЗ($Q7;$J$5:$O$5;0)))

'Расчёт расхода на продукцию'!$A$4:$A$76=ТРАНСП($B$9:$B$28)

=СУММПРОИЗВ(('Расчёт расхода на продукцию'!$A$4:$A$76=ТРАНСП($B$9:$B$28))*ТРАНСП(J$9:J$28)*ИНДЕКС('Расчёт расхода на продукцию'!$C$4:$CP$76;;$C61))

(ДЛСТР($C4)-ДЛСТР(ПОДСТАВИТЬ($C4;"вв";"")))/2

=A4-ЛЕВСИМВ($C4;-1+ПОИСК("вв";$C4))

=(ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;"1вв";"")))/3 - посчитает кол-во повторений выражения 1вв