[VBA] Посчитать количество непустых ячеек диапазона.

[Aleksandra]

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

Может уже кто делал что-нибудь подобное. Помогите, пожалуйста, буду очень признательна.

[npak]

Код:

Function my_count_nonblank(x As Range) As Integer
    my_count_nonblank = x.Cells.Count - WorksheetFunction.CountBlank(x)
End Function

[Aleksandra]

А это полный код? а то у меня что-то не работает ничего. или это я не понимаю. 

[npak]

да, это полный код
попробуйте набрать в строке подсказки Excel "user-defined functions"

и обратите особенное внимание на статью http://office.microsoft.com/en-us/excel/HA010548461033.aspx?pid=CL100570551033

Из неё вы узнаете, что user-defined functions нужно определять в модуле, а так же как создавать модуль

[Aleksandra]

Спасибо большое! Все работает. Очень вам благодарна за помощь!

[Aleksandra]

А вы не могли бы мне помочь с ещё одной лабораторной? 

[npak]

давайте. Вы, по крайней мере, смогли четко сформулировать в теме сообщения, что вам нужно.

[Aleksandra]

Пользовательская функция, возвращающая массив. Во всех словах массива - аргумента букву "а" заменить на букву "б".

Заранее спасибо большое!!! 

[Sla]

Aleksandra,  совсем не смешно
есть хелп, есть понятие - работа со строками. в хелпе есть достаточное количество примеров. В конце концов, есть учебники.

[npak]

Вы точно воспроизвели задачу? Какой тип аргумента должен быть у функции, и что именно функция должна возвращать?

Ладно, вот вам такой вариант - функция возвращает массив

Код:

Public Function MyReplace(x As Range) As Variant
    Dim result() As String
    ReDim result(1 To x.Count)
    Dim pos As Integer
    pos = 1
    Dim cell As Range
    For Each cell In x.Cells
        Dim str As String
        str = cell.Text
        Dim str2 As String
        str2 = Replace(str, "a", "b", 1, -1)
        result(pos) = str2
        pos = pos + 1
    Next
    MyReplace = Array(result)
End Function