OnEntry VBA功能

Question

每次调整“作业报告”表时，我都会尝试使用（评估：C4）中的数字填充一系列单元格（安装协议：i列的一部分）。但它没有正确更新。有什么建议吗？

Sub AutoInsertUsage()
ThisWorkbook.Sheets("Job Report").OnEntry = "Usage"
End Sub

Sub Usage()
    With Sheets("Installation Agreement")
        .Range("i47:i72") = Sheets("Assessment").Range("c4")
        .Range("i24:i38") = Sheets("Assessment").Range("c4")
        .Range("i41:i44") = Sheets("Assessment").Range("c4")
        .Range("i10:i11") = Sheets("Assessment").Range("c4")
        End With
End Sub

PS：安装协议表的i列单元格已被锁定以进行编辑，否则我只需执行“='评估！'C $ 4 $”。

Answer 1

进入VBA模块以获取“作业报告”选项卡（右键单击选项卡并点击“查看代码”），然后使用Worksheet_Change事件：

Private Sub Worksheet_Change(ByVal Target As Range)
    With Sheets("Installation Agreement")
        .Range("i47:i72") = Sheets("Assessment").Range("c4")
        .Range("i24:i38") = Sheets("Assessment").Range("c4")
        .Range("i41:i44") = Sheets("Assessment").Range("c4")
        .Range("i10:i11") = Sheets("Assessment").Range("c4")
    End With
End Sub

Target参数将填充已修改的单元格范围，因此您可以决定是否需要更新。