ilyachalov (ilyachalov) wrote,
ilyachalov
ilyachalov

Определение своих функций в MS Excel

Когда в формулах ячеек не хватает стандартных функций «MS Excel», можно описать свою функцию, по-английски «user defined function» (UDF).

В «MS Excel 2002» это делается так:
1) Открываем пункт меню «Сервис» → «Макрос» → «Редактор Visual Basic»;
2) Создаем новый модуль «Insert» → «Module»;
3) Пишем в созданном модуле функцию Function … End Function.

Всё, после этого можно пользоваться новой функцией.

Мне, например, захотелось функцию сложения ячеек диапазона, причем только ячеек, числа в которых набраны шрифтом определенного цвета.

25 + 13 + 48 + 2 = 15

Описываю функцию (текст взял отсюда):

Function SumColored(ByVal Rg As Range, ByVal R As Byte, ByVal G As Byte, ByVal B As Byte) As Double
V = 0
For Each C In Rg.Cells
If C.Font.Color = RGB(R, G, B) Then V = V + C.Value2
Next C
SumColored = V
End Function


Использую в формуле ячейки:

=SumColored(G10:G358;255;0;0)
Tags: Инструмент, Программирование
Subscribe

  • Post a new comment

    Error

    Anonymous comments are disabled in this journal

    default userpic

    Your IP address will be recorded 

  • 0 comments