[/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)))

Public Sub IfErr()
For Each cell In Selection
cell.Formula = "=ЕСЛИОШИБКА(" & cell.Formula & ";"")"
Next cell
End Sub