При нахождении определенного слова в одной ячейке, меняется другая ячейка - VBA
Формулировка задачи:
Доброго дня! Помогите пожалуйста написать макрос.
пример показан на скриншотах
1 скрин - в ячейкее E5 нет слов bad_item поэтому E9 остается неизменной (значение 100)
2 скрин - в ячейкее E5 появляюся слова bad_item поэтому E9 берет следующее значение из столбца G (значение 200)
3 скрин - в ячейкее E5 нет слов bad_item поэтому E9 остается неизменной (значение 200)
4 скрин - в ячейкее E5 появляюся слова bad_item поэтому E9 берет следующее значение из столбца G (значение 300)
и т.д.
ячейка Е5 постоянно меняется... и за ней должна меняться ячейка Е9
как только в ячейке Е5 появляется слова bad_item то сразу же ячейка Е9 должна переходить на следующее значение столбца G (100,200,300,400....и т. д.)
Решение задачи: «При нахождении определенного слова в одной ячейке, меняется другая ячейка»
textual
Листинг программы
Dim i2 As Long Sub bad_item() Dim i As Long i = 17 If i2 = 0 Then i2 = 10 If InStr(1, Range("E5").Text, "bad_item", 1) Then Range("E9").Value = Excel.Application.ActiveSheet.Columns("g").Cells(i2).Value If i2 < i Then i2 = i2 + 1 Else Reset End If End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) With Target If Target.Row = 5 And Target.Column = 5 Then bad_item End With End Sub Private Sub Reset() i2 = 0 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д