| Вопрос: Параметры пользовательской функции | Добавлено: 07.11.07 13:56 |
Автор вопроса:  SvetlanaL | ICQ: 229-356-346 |
|
Создаю функцию
Function СумКат(n1, n2, str13) Dim sumk As Double L = n1 Do While L <= n2 If Cells(str13, 13) = Cells(L, 24) Then sumk = sumk + Cells(L, 14) End If L = L + 1 Loop СумКат = sumk End Function Могу ли я вызвать функцию из макроса и передать параметры? SUB MAC n1 n2 str13 Cells(m, 14).Select ActiveCell.FormulaR1C1 = "=СУмКат(n1,n2,str13)" END sub |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  Nytrogen Вопросов: 18 Ответов: 186 |
Профиль | | #1 | Добавлено: 07.11.07 17:37 |
|
Можешь. Если тебе надо записать формулу в активную ячейку, то пиши так:
ActiveCell.Formula = "=СумКат(" & n1 & "; " & n2 & "; " & str13 & "
 "Если же в ячейку нужно записать только результат формулы, то можно написать так: ActiveCell.Value = СумКат(n1, n2, str13)
|
||
|
Номер ответа: 2 Автор ответа: SvetlanaL ICQ: 229-356-346 Вопросов: 8 Ответов: 20 |
Профиль | | #2 | Добавлено: 08.11.07 14:35 |
| Спасибо!!! | ||
Страница: 1 |