Excel VBA увеличить значение ячейки, не создавая циклическую ссылку

Question

У меня есть таблица, в которой клетки D4:D93 являются Data Validation выпадающие списки только Yes и No в качестве опции.

Я пытаюсь выяснить, как код VBA, так что, когда Yes выбран в ячейке в этом диапазоне, то значение в совпадающей ячейки в диапазоне I4:I93 изменений быть сумма совпадающих ячеек в I4:I93 и V4:V93 ,

Я искал дни и пытался так много вещей, что даже не знаю, с чего начать, насколько я пробовал. Некоторые попытки не привели к тому, что ничего не произошло. Другие привели к замораживанию или сбою Excel из-за циклических ссылок. Не знаю, является ли это актуальным, но D4:D93 и I4:I93 являются частью таблицы, но V4:V93 нет.

Answer 1

Попробуйте этот макрос лист событий:

Private Sub Worksheet_Change(ByVal Target As Range) 
    Dim D As Range, rw As Long 
    Set D = Range("D4:D93") 

    If Intersect(Target, D) Is Nothing Then Exit Sub 
    If LCase(Target.Value) <> "yes" Then Exit Sub 
    rw = Target.Row 
    Application.EnableEvents = False 
     Range("I" & rw).Value = Range("I" & rw).Value + Range("V" & rw).Value 
    Application.EnableEvents = True 
End Sub 

Поскольку это таблица кода, он очень прост в установке и автоматическое использование:

1. правой кнопкой мыши имя вкладки в нижней части окно Excel
2. выберите View Code - это вызывает окно VBE
3. вставьте материал и закройте окно VBE

Если у вас есть какие-либо проблемы, сначала попробуйте его на пробном листе.

Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel позднее 2003 года, вы должны сохранить файл как .xlsm, а не формата XLSX

Чтобы удалить макрос:

1. довести до окна VBE, как указано выше
2. ясно код из
3. закрыть окно VBE

Чтобы узнать больше о макросах в целом, см:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

и

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Чтобы узнать больше о Event Macros (таблица кодов), см:

http://www.mvps.org/dmcritchie/excel/event.htm

Макросы должны быть разрешены для этой работы!