Я хотел иметь возможность создать макрос для изменения значения в ячейке B на EPTBSIET если он равняется этому значению в ячейке E - SIETCO . Я был в состоянии составить формулу IF но я бы предпочел, чтобы значение не записывалось в другую ячейку. Любое предложение?

=IF(ISNUMBER(FIND("SIETCO",E2)),"EPTBSIET","")

1 ответ1

0

Вы можете использовать следующий код VBA, чтобы изменить вмененное значение, которое увеличивает "SIETCO", на "EBTBSIET" в диапазоне A1:A10. Вы должны быть в состоянии легко адаптировать это к вашим потребностям.

В редакторе кода вам нужно добавить этот код на лист, на котором вы хотите его использовать, а не в модуль.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("A1:A10")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Not Target.Find("SIETCO", LookIn:=xlValues) Is Nothing Then
        Target.Value = "EBTBSIET"
    End If
    Application.EnableEvents = True
End Sub

Источник: http://msdn.microsoft.com/en-us/library/office/ff839775(v=office.15).aspx

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .