как запустить формулу посредством vba

[johny_03]

как сделать выполнение формулы по клику vba

=СУММПРОИЗВ(($A$4:$A$369>=T5)*($A$4:$A$369<=U5)*("расход"=$C$2:$Q$2)*$C$4:$Q$369)

Заранее благодарен!

[VictorM]

Вешаем на кнопку простейший макрос, (записал макрорекордером, немного подправил)

Sub Макрос1()
'
    ActiveCell.FormulaLocal = "=СУММПРОИЗВ(($A$4:$A$369>=T5)*($A$4:$A$369<=U5)*(""расход""=$C$2:$Q$2)*$C$4:$Q$369)"
  'Если формула больше не нужна, заменяем формулу полученным значением
       ActiveCell.Copy
      Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

[kuklp]

Здравствуйте. Насколько я понял из поста
http://www.programmersforum.ru/showthread.php?t=180712
автору надо только application.calculate.
Ну или преобразовать в даты вставленные значения.
П.С. Без примера мы только гадаем.

[VictorM]

Здравствуйте.

П.С. Без примера мы только гадаем.

Да это, собственно, как всегда))
Опять окажется, что вроде все так, только нужно "с перламутровыми пуговицами") (с)

[Казанский]

'Если формула больше не нужна, заменяем формулу полученным значением
ActiveCell.Value = ActiveCell.Value

[johny_03]

Вложил файл.
По умолчанию ячейки T4 и U4 должны быть пустыми, тогда ячейки S2 и S3 считают промежуток с 01 числа сегодняшнего месяца по сегодняшнее число.
Если в ячейках T4 и U4 заданы даты, то считается заданный промежуток и результат выводится в ячейки S6 и S7.
Всё как-бы работает, только если дату в ячейки T4 и U4 вводить вручную. А если через календарь, то не работает.
И по возможности хотелось бы выводить результат в одни и те же ячейки, т.е. в S2 и S3 в зависимости от того, задан интервал или нет.
Заранее всем спасибо!

[doober]

Код в модуль Листа
Снять в обоих LinkedCell на ячейки,и все пересчитает нормально

Private Sub Calendar1_AfterUpdate()
[T4] = CDate(Calendar1.Value)
Application.Calculate
End Sub

Private Sub Calendar2_AfterUpdate()
[U4] = CDate(Calendar2.Value)
Application.Calculate
End Sub

[johny_03]

всё работает замечательно! Спасибо большое!