Я хочу написать код, который позволил бы мне взять среднее значение двух моих объединенных ячеек и ввести их в другую объединенную ячейку. Тем не менее, я хочу сделать оператор if, который будет читать значение любой из усредненных ячеек как 0, если значение изначально было «<1,5», без изменения фактического значения на 0. </p>
У меня есть базовыйкод записан, но оператор if продолжает менять значение на 0, когда мне нужно, чтобы оно оставалось неизменным при чтении его как 0.
Это то, что я имею до сих пор.
Sub medium_oil_grease ()
Dim ogloc1 As Range, ogloc2 Как Range Set ogloc1 = Range ("J103: L103") Set ogloc2 = Range ("J104: L104")
Если диапазон ("J103: L103") = "<1,5", то результат = 0 </p>
Если диапазон ("J104: L104") = "<1,5", то результат = 0 </p>
Sheets («Sheet1»). Выберите диапазон («H124: J124»). Значение = Application.Average («ogloc1: ogloc2»)
End Sub