☰

как автоматически заполнить ячейки на основе условий?

tag-icon • tag-icon microsoft-excel-2010 vba
как автоматически заполнить ячейки на основе условий?

Мне нужно автоматически заполнить ячейку на основе того, содержат ли 2 ячейки определенные значения, а затем автоматически запустить ее. Вот что у меня есть на данный момент:

Private Sub Worksheet_Change(ByVal Target As Range)
     If target.Cells(5, "B").Value = "Secured" And target.Cells(6, "B").Value = "Amendment" Then
        Cells(10, "B") = "T2 - Medium Risk"
    End If

End Sub

Оператор if будет таким, =IF(AND(D34="Secured",D35="Amendment"),"yes","")но «да» нужно поместить в другую ячейку.

решение1

Это то, что вы ищете

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
     If Not Intersect(Target, Range("B5:B6")) Is Nothing Then
        If Cells(5, 2) = "Secured" And Cells(6, 2) = "Amendment" Then
            Cells(10, 2) = "T2 - Medium Risk"
        End If
    End If
End Sub

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

Связанный контент