Добрый день. Нужна помощь в формуле: Есть бланк заказа, в нем столбец "кратность" и рядом столбец "заказ". Если клиент вводит в ячейку "заказ" число не кратное числу из ячейки "кратность", то число должно округлиться в большую или меньшую сторону кратно числу из ячейки "кратность". Пример: "кратность 24" клиент ставит в заказ "20" должно округлиться до 24, а если ставит в заказ 198, то округлиться до 192. Файл в приложении. Заранее спасибо!
Добрый день. Нужна помощь в формуле: Есть бланк заказа, в нем столбец "кратность" и рядом столбец "заказ". Если клиент вводит в ячейку "заказ" число не кратное числу из ячейки "кратность", то число должно округлиться в большую или меньшую сторону кратно числу из ячейки "кратность". Пример: "кратность 24" клиент ставит в заказ "20" должно округлиться до 24, а если ставит в заказ 198, то округлиться до 192. Файл в приложении. Заранее спасибо!Vadnikulin
Спасибо, а возможно чтобы число менялось в самой ячейке "заказ", а не в доп ячейке. Т.е если клиент ставит в Е7 25, в самой ячейке Е7 число менялось на 24. Формулой, как я понимаю, этого не сделать.
Спасибо, а возможно чтобы число менялось в самой ячейке "заказ", а не в доп ячейке. Т.е если клиент ставит в Е7 25, в самой ячейке Е7 число менялось на 24. Формулой, как я понимаю, этого не сделать.Vadnikulin
будет меняться, если вводить значения по одному [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Then Exit Sub If Target.Count = 1 Then Target.Value = WorksheetFunction.MRound(Target, Target.Offset(0, -1)) End If End Sub
[/vba]
будет меняться, если вводить значения по одному [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 5 Then Exit Sub If Target.Count = 1 Then Target.Value = WorksheetFunction.MRound(Target, Target.Offset(0, -1)) End If End Sub