Доброго времени суток всем увлеченным экселем людям.
В одной теме мне посоветовали заменить свой код на код ниже, но он по-какой-то причине не работает - синтаксическая ошибка, хотя логика кажется вполне нормальной. Кто поможет разобраться ?
Function count_rate(val1, val2)
Dim prng(1 To 4)
prng = Worksheets("Eo?nu" .Range(Worksheets("Eo?nu" .Cells(2, 1), Worksheets("Eo?nu" .Cells(5, 1)).Value
checker = 0
For i = 1 To 4
If val1 = prng(i) Then
val1 = i + 1
checker1 = checker1 + 1
End If
If val2 = prng(i) Then
val2 = i + 1
checker2 = checker2 + 1
End If
If checker1 =1 and checker2 =1 Then
count_rate = Worksheets("Eo?nu" .Cells(val1, val2)
Exit Function
End If
Next i
В одной теме мне посоветовали заменить свой код на код ниже, но он по-какой-то причине не работает - синтаксическая ошибка, хотя логика кажется вполне нормальной. Кто поможет разобраться ?
Function count_rate(val1, val2)
Dim prng(1 To 4)
prng = Worksheets("Eo?nu" .Range(Worksheets("Eo?nu" .Cells(2, 1), Worksheets("Eo?nu" .Cells(5, 1)).Value
checker = 0
For i = 1 To 4
If val1 = prng(i) Then
val1 = i + 1
checker1 = checker1 + 1
End If
If val2 = prng(i) Then
val2 = i + 1
checker2 = checker2 + 1
End If
If checker1 =1 and checker2 =1 Then
count_rate = Worksheets("Eo?nu" .Cells(val1, val2)
Exit Function
End If
Next i