Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [VBA]Пользовательская функция

Автор: AlexArs 28.9.2007, 07:55

Лабораторная работа №4
Пользовательская функция с необязательными параметрами
Функция возвращает количество строк в аргументе-диапазоне, если второй необязательный элемент равен 1. Если 0, то количество столбцов. Иначе – строку ‘error’

Автор: kapbepucm 28.9.2007, 14:42

Код

Public Function Lab4(Optional a1, Optional a2)
  If IsMissing(a1) Or IsMissing(a2) Then GoTo ErrLabel
  Select Case a2
  Case 0
    Lab4 = a1.Columns.Count
  Case 1
    Lab4 = a1.Rows.Count
  Case Else
    GoTo ErrLabel
  End Select
Exit Function
ErrLabel:
  Lab4 = "error"
End Function

Автор: AlexArs 29.9.2007, 01:43

он у меня все значения "error" пишет, прикрепи исходник

Автор: AlexArs 30.9.2007, 06:11

спс