☰

条件に基づいてセルを自動入力するにはどうすればよいですか?

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

変更が 2 つのセル内で発生したときにこれを実行させ、一致した場合は別のセルにデータを入力します。消去したい場合は、それも可能です。

関連情報