Function count_rate(val1, val2)
Dim prng()
Dim valx, valy, i
prng = Range(ThisWorkbook.Worksheets("Êóðñû").Cells(2, 1), ThisWorkbook.Worksheets("Êóðñû").Cells(5, 1))
For i = 1 To 4
If val1 = prng(i, 1) Then
valx = i + 1
checker1 = 1
End If
If val2 = prng(i, 1) Then
valy = i + 1
checker2 = 1
End If
If checker1 = 1 And checker2 = 1 Then
count_rate = ThisWorkbook.Worksheets("Êóðñû").Cells(valx, valy)
Exit Function
End If
Next i
count_rate = 0
End Function
На одном компе все работает нормально, на другом какой-то микроглюк, сами собой вырубаются эвенты, после этого их только через вба врубать. В дебагер не выкидывает, никаких ошибок. Ума не приложу в чем дело, на обоих 2007 эксель. Опытным путем понял, что глюк проходит если закомпилить строку
prng = Range(ThisWorkbook.Worksheets("Êóðñû").Cells(2, 1), ThisWorkbook.Worksheets
Dim prng()
Dim valx, valy, i
prng = Range(ThisWorkbook.Worksheets("Êóðñû").Cells(2, 1), ThisWorkbook.Worksheets("Êóðñû").Cells(5, 1))
For i = 1 To 4
If val1 = prng(i, 1) Then
valx = i + 1
checker1 = 1
End If
If val2 = prng(i, 1) Then
valy = i + 1
checker2 = 1
End If
If checker1 = 1 And checker2 = 1 Then
count_rate = ThisWorkbook.Worksheets("Êóðñû").Cells(valx, valy)
Exit Function
End If
Next i
count_rate = 0
End Function
На одном компе все работает нормально, на другом какой-то микроглюк, сами собой вырубаются эвенты, после этого их только через вба врубать. В дебагер не выкидывает, никаких ошибок. Ума не приложу в чем дело, на обоих 2007 эксель. Опытным путем понял, что глюк проходит если закомпилить строку
prng = Range(ThisWorkbook.Worksheets("Êóðñû").Cells(2, 1), ThisWorkbook.Worksheets