Здравствуйте!
В Excel есть стандартные функции типа СУММ, МАКС и другие.
А как бы мне написать свою функцию что бы её можно было вызывать 
с определёнными параметрами. Например что нибудь типа УРА(A1,F33, $A$4)

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

плин не туда простите 

Это сообщение отредактировал(а) vovk - 24.9.2008, 01:16

и у меня тогда без Вашего сообщения тупость получается. Но вопрос остаётся в силе.

Это сообщение отредактировал(а) RDC - 24.9.2008, 01:22

Ай спасибо, сам уже разобрался.

Поделись, пожалуйста. Тоже очень нужно

Сервис - Макрос - Редактор VBA
Вставить - Модуль (если уже есть модули - можно использовать их, но модули форм и классов не подходят)
Пишем текст функции, обязательно описывая ее как Public.
Сохраняем. 

Теперь функция доступна в построителе выражений в разделе Пользовательские функции.

Если функция вызывает другие функции, и нежелательно появление подфункций в построителе - описываем подфункции как Private.

Аналогично можно описывать Public Const.

Чтобы функция была доступна всегда, ее лучше писать не в текущую книгу, а в Personal.xls.

Помогите разобраться в редакторе VBA!
Я его нашла и открыла, но понять как связать его с данными в я чейке    


Sub FindAndSelect()
   Dim strStartAddr As String ' Хранит координаты первого найденного _
                               значения
   Dim rgResult As Range

   ' Поиск первого входжения искомого слова
   Set rgResult = Range("B1:B10").Find("Прибыль", , xlValues)
   If Not rgResult Is Nothing Then
      ' Сохраним адрес найденной ячейки (чтобы контролировать _
       зацикливание поиска)
      strStartAddr = rgResult.Address
   End If
Do While Not rgResult Is Nothing
      ' Обработка результата поиска
      rgResult.Interior.Color = RGB(255, 255, 0)

      ' Новый поиск
      Set rgResult = Range("B1:B10").FindNext(rgResult)
      If rgResult.Address = strStartAddr Then
         ' Поиск завершен
         Exit Do
      End If
   Loop
End Sub

Модератор: Пожалуйста, один топик - один вопрос.