вызов функции

[-Anton-]

Добрый день всем.

Пытаюсь разобраться и написать простенькую программку.

Не могу понять, почему функция не передаёт значение в переменную.

Создал в проекте 2 модуля. В 1 модуле Обработа_Таблицы


Sub Обработка_таблицы()

Dim ПервСтрОбраб, ПослСтрОбраб As Long

ПервСтрОбраб = 1
ПослСтрОбраб = КолСтрокВсего

End Sub



в 2 модуле функция КолСтрокВсего.


Function КолСтрокВсего() As Long

Dim ПослСтрока As Long

ПослСтрока = Cells(Rows.Count, 1).End(xlUp).Row

End Function


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

Но вот при возврате в процедуру Обработка_Таблицы переменной ПослСтрОбраб присваивается значение 0.

почему так?

[Казанский]

Возвращаемое значение надо присвоить имени функции:

Function КолСтрокВсего() As Long
'Dim ПослСтрока As Long
КолСтрокВсего = Cells(Rows.Count, 1).End(xlUp).Row
End Function

[-Anton-]

Спасибо большое, сообразил.