После цикла For от 1 до 150 идут нули сплошняком, если отключить нули то они везде убираются, а надо чтобы в ячейке D после расчета формулы если образуется ноль то там и должен оставаться . Чтобы нули если и были то только в активной ячейке, а то значения не вбил а нули уже до самого низа
Код |
---|
Sub Worksheet_SelectionChange(ByVal Target As Range)
For I = 1 To 150
P = Range("P" & 2 + I)
Q = Range("Q" & 2 + I)
Cells(2 + I, 2) = Int(P) 'округляет до целого числа
Cells(2 + I, 5) = Int(Q)
Cells(2 + I, 3) = Int(((P - Int(P)) * 10))
Cells(2 + I, 6) = Int(((Q - Int(Q)) * 10))
Cells(2 + I, 4) = (P * 10 - Int(P * 10)) * 100
Cells(2 + I, 7) = (Q * 10 - Int(Q * 10)) * 100
Cells(2 + I, 13) = Abs(P - Q)
Next
End Sub |