Question

请教各位老师，如图表格，使用单元格触发事件怎样写VBA代码？

Answer 1

给你做了个示例文件。文件中采用了两个方法：

1. 采用工作表函数的办法，见sheet1。其中G列的公式以G2单元格为例：

   =IF((D2<B2)*(E2=1),"提前完成",IF((B2=D2)*(E2=1),"及时完成",IF(D2>B2,"滞后完成","")))
   

2. shee2采用VBA的方法,只要你A:D列有更新，就会自动更新G列状态，代码如下：

   Private Sub Worksheet_Change(ByVal Target As Range)
       Dim Cell As Range, i As Integer, str As String
       If Not Intersect(Target, Range("A2:D10000")) Is Nothing Then
           For Each Cell In Target
               i = Cell.Row
               str = ""
               If Cells(i, 4) < Cells(i, 2) And Cells(i, 5) = 1 Then str = "提前完成"
               If Cells(i, 4) = Cells(i, 2) And Cells(i, 5) = 1 Then str = "及时完成"
               If Cells(i, 4) > Cells(i, 2) Then str = "滞后完成"
               Cells(i, 7) = str
           Next Cell
       End If
   End Sub

Answer 2

这个应该不需要用VBA，用IF语句就够了，但是你的描述似乎有问题：”当B列<或>D列、E列=或≠100%"，这里没能理解，是你打错了还是？