Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Не убираются нули в ячейках, убрать нули в ячейках, где записана формула
 
После цикла 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
 
Мало что понял из объяснения.
На вскидку: делайте цикл не на 150 строк (я так понимаю это с запасом), а до последней строки с данными
Согласие есть продукт при полном непротивлении сторон.
 
Строка с данными неизвестна она будет меняться.
Страницы: 1
Читают тему (гостей: 2)
Наверх