Как я могу заполнить эту функцию?

Question

Function Velocidades() As Integer
    Dim C As Integer
    If Range("D1") = 2 And Range("B1") = "A" Then
        C = 3
    ElseIf Range("D1") = 3 And Range("B1") = "A" Then
        C = 6
    Else
        C = 0
    End If
    Velocidades = C
End Function

Я только начал работать с VBA, и мне нужна помощь. Мне нужно заполнить столбец (одну из ячеек, в которой я пишу функцию), поэтому информация, отображаемая в каждой ячейке столбца, является результатом применения функции выше к столбцам D и B того же столбца. строка, поэтому в строке 3 функция должна применяться к D3 и B3. Проблема, которую я получаю, состоит в том, что мои выходные данные вытягивают значение из ячейки, в которой я пишу функцию, вплоть до конца набора данных.

Answer 1

Предполагая, что у вас есть UDF, я думаю , что вы хотите, это:

Public Function Velocidades(myNumber As Long, myString As String) As Long

Dim C As Long
If myNumber = 2 And myString = "A" Then
    C = 3
ElseIf myNumber = 3 And myString = "A" Then
    C = 6
Else
    C = 0
End If
Velocidades = C
End Function

Затем, в D2, введите: =Velocidades(D2,B2) и заполните вниз