Результат работы функции всегда равен нулю

@Georg1777 · Регистрация: 25.08.2018

Добрый день.

написал функцию, однако результат работы функции равен нулю.
Что делаю не правильно?

Visual Basic

Public Function Dodo (data As Range) as Double
    Dim x As Range
    Dim za, zx, zz As Double
  
    For Each x In data 
  
        If x.Value2 <> 1000 And (x.Value <> "") Then
            za = za + x.Value
            zx = zx + 1
        ElseIf x.Value2 <> 1000000 And (x.Value <> "") Then
            za = za + x.Value
            zx = zx + 1
        ElseIf IsEmpty(x) Then
 
        End If
 
 
 
 
      Next x
   
    zz = za / zx
   
End Function

в ячейку возвращается 0.
В процессе выполнения видно, что в переменную zz указывается правильный результат. Однако в ячейку на листе указывается 0.

@Kate_27 · 21.06.2019, 20:33

Georg1777, ну так функция ничего не пишет ни в какую ячейку...
Ну и не возвращает ничего тоже.
Может надо не zz назвать, а dodo?

Visual Basic

1	Dodo = za / zx

@Georg1777 · 24.06.2019, 10:07 **[ТС]**

Kate_27,
Спасибо, помогло.

@Vlad999 · 24.06.2019, 11:12

смысл с двух проверок если далее действия одинаковые?

@Georg1777 0 / 0 / 0 Регистрация: 25.08.2018 Сообщений: 5
	24.06.2019, 10:07 [ТС]	3
	Kate_27, Спасибо, помогло. 0

@Vlad999 3823 / 2250 / 751 Регистрация: 02.11.2012 Сообщений: 5,907
	24.06.2019, 11:12	4
	смысл с двух проверок если далее действия одинаковые? 0

Опции темы

Результат работы функции всегда равен нулю

Решение