تنفيذ المعادلة من VBA بدلا من الخلية

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("B8:B50")) Is Nothing Then

        Application.EnableEvents = False

            Target.Offset(, 1).Value = Evaluate("IFNA(VLOOKUP(" & Target.Value & ",'[DB.xlsx]1'!$A$1:$B$3,2,0),"""")")

        Application.EnableEvents = True

    End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim wb As Workbook

    Const wbName As String = "DB.xlsx"

    

    If Not Intersect(Target, Range("B8:B50")) Is Nothing Then

        Application.ScreenUpdating = False

        Application.EnableEvents = False

            On Error Resume Next

                If wb Is Nothing Then

                    Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & wbName, ReadOnly:=True)

                Else

                    Set wb = Workbooks(wbName)

                End If

            On Error GoTo 0

            Target.Offset(, 1).Value = Evaluate("IFNA(VLOOKUP(" & Target.Value & ",'[DB.xlsx]1'!$A$1:$B$3,2,0),"""")")

            wb.Close False

        Application.EnableEvents = True

        Application.ScreenUpdating = True

    End If

End Sub