0 / 0 / 0
Регистрация: 17.08.2021
Сообщений: 12
|
|
|
1
|
Не могу понять в ошибку в строчке кода
17.08.2021, 11:48. Показов 2638. Ответов 8
Суть макроса такова что нужно из заранее созданного диапазона использовать значения, Проблема в том что цикл для первого диапазона (9 строка кода) он воспринимает только когда указываешь ячейки а во втором (23 строка) всё нормально.
ИСПРАВНЫЙ КОД
| Visual Basic | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
| Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [F39].Address Then 'выделение ячейки
Dim i As Integer, a As Double, b As Double, aa As Double, bb As Double
If [F39] < Application.Min([X]) Or [F39] > Application.Max([X]) Then
[F40] = ""
MsgBox "Введенное значение вне области функции"
Exit Sub
End If
For i = 28 To 36
a = Cells(i, "B"): b = Cells(i + 1, "B")
If [F39] <= a And [F39] >= b Then
aa = Cells(i, "C"): bb = Cells(i + 1, "C")
[F40] = ((aa - bb) / (a - b)) * ([F39] - b) + bb: Exit For
End If
Next
End If
If Target.Address = [F42].Address Then
If [F42] < Application.Min([f]) Or [F42] > Application.Max([f]) Then
[F40] = ""
MsgBox "Введенное значение вне области функции"
Exit Sub
End If
For i = Worksheets(1).Range("f").Rows To Worksheets(1).Range("f").Count
aa = Cells(i, "C"): bb = Cells(i + 1, "C")
If [F42] <= aa And [F42] >= bb Then
a = Cells(i, "B"): bb = Cells(i + 1, "B")
[F43] = (([F42] - bb) * (a - b)) / (aa - bb) + b
End If
Next
End If
End Sub |
|
НЕСПРАВНЫЙ КОД
| Visual Basic | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
| Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [F39].Address Then 'выделение ячейки
Dim i As Integer, a As Double, b As Double, aa As Double, bb As Double
If [F39] < Application.Min([X]) Or [F39] > Application.Max([X]) Then
[F40] = ""
MsgBox "Введенное значение вне области функции"
Exit Sub
End If
For i = Worksheets(1).Range("X").Rows To Worksheets(1).Range("X").Count
a = Cells(i, "B"): b = Cells(i + 1, "B")
If [F39] <= a And [F39] >= b Then
aa = Cells(i, "C"): bb = Cells(i + 1, "C")
[F40] = ((aa - bb) / (a - b)) * ([F39] - b) + bb: Exit For
End If
Next
End If
If Target.Address = [F42].Address Then
If [F42] < Application.Min([f]) Or [F42] > Application.Max([f]) Then
[F40] = ""
MsgBox "Введенное значение вне области функции"
Exit Sub
End If
For i = Worksheets(1).Range("f").Rows To Worksheets(1).Range("f").Count
aa = Cells(i, "C"): bb = Cells(i + 1, "C")
If [F42] <= aa And [F42] >= bb Then
a = Cells(i, "B"): bb = Cells(i + 1, "B")
[F43] = (([F42] - bb) * (a - b)) / (aa - bb) + b
End If
Next
End If
End Sub |
|
0
|
(
Сообщение было отмечено AbramovBE как решение
