Переменные типы в функции Excel VBA

Question

Я хочу создать функцию, которая вычисляет ячейку в определенном диапазоне.

Когда я возвращаю значение calc для excel, я получаю #VALUE! ошибка, что означает , что типы переменных различны.

Я попытался использовать Cint (var) и получить ту же ошибку.

Вот код без Cint():

Function CalcTest(Interval As Range) As Integer 
    Dim x As Integer 
    Dim y As Integer 
    x = Interval.Offset(0, 0).Value 
    y = Interval.Offset(1, 0).Value 
    CalcTest = x + y 
End Function 

Я уже пробовал:

Function CalcTest(Intervalo As Range) As Integer 
    CalcTest = Interval.Offset(0, 0).Value + Interval.Offset(1, 0).Value 
End Function 

И:

Function CalcTest(Interval As Range) As Integer 
    Dim x As Integer 
    Dim y As Integer 
    x = CInt(Interval.Offset(0, 0).Value) 
    y = CInt(Interval.Offset(1, 0).Value) 
    CalcTest = x + y 
End Function 

И без declarating де тип функции:

Function CalcTest(Interval As Range) 
    ... 
    ... 
End Function 

И в Excel я вызываю функцию с некоторым диапазоном:

=CalcText(A1:A2) 

Что я делаю неправильно?

#

Большая картина:

Что мне нужно сделать, это создать CEL в любом месте, которое подсчитывает от общих значений от $ R седловины для каждого occurrency ключевого значения в $ N col.

За каждый раз, когда у меня есть «TH» в $ N Col, мне нужно скопировать значение $ R col этого строки в cel.

То же самое для многих других $ N Значения.

В данном примере значение накопленной CEL для TH в $ N 25.

Tks за помощь !!!

Answer 1

Вы делаете так трудно на себя.

Поместите в ячейку в строке 2 и перетащить его вниз:

=SUMIF(N$2:N2,"TH",R$2:R2) 

Answer 2

Это то, что вы пытаетесь?

Public Function CalcTest(rng1 As Range, rng2 As Range) As Variant 
    On Error GoTo Whoa 

    CalcTest = rng1.Value + rng2.Value 

    Exit Function 
Whoa: 
    CalcTest = "Please check the Range Values" 
End Function 

В ячейке Excel, поместите эту формулу =CalcText(A1,A2)

Answer 3

Вы не должны упростить код на то, что не достаточно представлять ваш вопрос. Из ваших комментариев и вопросов.

Function CalcTest(Interval As Range) As Integer 
    Dim x As Range 
    CalcTest = 0 
    For Each x In Interval 
     If IsNumeric(x) Then 
      CalcTest = CalcTest + x.Value 
     End If 
    Next x 
End Function 

Это позволит убедиться, что вы складываете на самом деле число.

Но, как это не будет работать какой-либо иной то функция рабочего листа:

=Sum(Range) 

Просто преобразования значения Integer не будет работать, если то, что вы преобразования не converatble. Если вы передадите письмо в функцию CInt(), он просто потерпит неудачу.