Доброго дня!
Есть файл для расчета характеристик жидкости(энтальпия), расчет основан на двух переменных (температура, давление). Что б не вносить вручную 1000 значений попыталась написать код, но получается только для одной переменной, подскажите как учесть две переменные (диапазона значений) и результат фиксировать в соответствующей строке для исходных значений. ниже код который удалось написать.
Sub ПеребратьВыделенныеЯчейки()
Dim rn As Range
On Error Resume Next
Set rn = Intersect(Selection, ActiveSheet.UsedRange)
On Error GoTo 0
If rn Is Nothing Then Exit Sub
Dim cl As Range
For Each cl In Range("E4:E11")
Range("K7").Value = cl.Value
Application.Calculate
cl.Cells(1, 2).Value = Range("J15").Value
Next
End Sub
Есть файл для расчета характеристик жидкости(энтальпия), расчет основан на двух переменных (температура, давление). Что б не вносить вручную 1000 значений попыталась написать код, но получается только для одной переменной, подскажите как учесть две переменные (диапазона значений) и результат фиксировать в соответствующей строке для исходных значений. ниже код который удалось написать.
Sub ПеребратьВыделенныеЯчейки()
Dim rn As Range
On Error Resume Next
Set rn = Intersect(Selection, ActiveSheet.UsedRange)
On Error GoTo 0
If rn Is Nothing Then Exit Sub
Dim cl As Range
For Each cl In Range("E4:E11")
Range("K7").Value = cl.Value
Application.Calculate
cl.Cells(1, 2).Value = Range("J15").Value
Next
End Sub
Изменено: - 24.03.2022 22:30:55
