Авто расчет НДС

[Mak2a]

Вопрос такой необходимо сделать функцию таким образом, чтобы допустим я в ячейку A1 я вводил число и к нему автоматически плюсовалось 18%, это соответственно необходимо применить к диапазону ячеек. Суть такая мне необходимо чтобы цены за услуги в ячейки были уже с процентом, т.е С НДС. Я уже сломал голову на этом. Помогите плиз

[nilem]

Такой вот примерчик сохранился. В зеленые ячейки пишем сумму без НДС, или в сиреневые ячейки пишем сумму с НДС - остальные ячейки заполняются сами.

[Mak2a]

example.jpg




Покажу свой пример

[nilem]

Тогда так. Для А1:А1000

[Mak2a]

Не совсем то конечно но буду думать

[IgorGO]

опаньки, а чем это то, что nilem предложил

не совсем то но буду думать

???
Разве что, чтобы реагировать на копирование данных (когда изменилась не одна ячейка, а много сразу) я бы так переписал

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim c As Range
  If Intersect(Target, [a1:a1000]) Is Nothing Then Exit Sub
  Application.EnableEvents = False
  For Each c In Intersect(Target, [a1:a1000])
    If IsNumeric(c) Then c.Value = c.Value * 1.18
  Next
  Application.EnableEvents = True
End Sub

но это уже самодеятельность, а не ответ на Ваш вопрос.

чтобы допустим я в ячейку A1 я вводил число и к нему автоматически плюсовалось 18%

как по мне, то nilem со 100% попадаем ответил на Ваш вопрос, но Вам виднее, конечно, думайте...

[Mak2a]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [a1:a1000]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If IsNumeric(Target) Then Target.Value = (Target.Value * 0.18) + Target.Value
Application.EnableEvents = True
End Sub


'Sub ert()
'Application.EnableEvents = True
'End Sub


ответили действительно правильно, только я сам себе сам все усложнил У игора все ок формула
Однако теперь проблема возникает в перечислении диапазонов я выбираю необходимые столбцы, но ничего не происходит, я так понимаю после квадратных скобок идет запятая? Просто я начинаю только поэтому сложновато

[IgorGO]

а) приведенная в Вашем примере строка
If Target.Count > 1 Then Exit Sub
завершит работу процедуры, если Target (исходный диапазон) действительно является диапазоном ячеек, а не ячейкой.

б)

я выбираю необходимые столбцы, но ничего не происходит

процедура настроена на работу только с столбцом А, а во всех других ничего происходить и не будет.

как написано - так работает.

[Mak2a]

Угу спасибо за советы ребята, уже сам разобрался)