OnEntry VBA功能 [英] OnEntry VBA function

问题描述

每当我对作业报告表进行调整时，我正在尝试使用（评估：C4）中的数字填充一系列单元格（安装协议：i列的部分）。但是它没有正确更新。任何建议？

  Sub AutoInsertUsage（）
 ThisWorkbook.Sheets（Job Report）OnEntry =Usage 
 End Sub 
 
子用法（）
带表（安装协议）
 .Range（i47：i72）=表（评估） .Range（c4）
 .Range（i24：i38）= Sheets（Assessment）。Range（c4）
 .Range（i41：i44）= 评估）范围（c4）
 .Range（i10：i11）=表（评估）。范围（c4）
结束
结束子
  

PS：安装协议表的i列单元格被锁定进行编辑，否则我将简单地= '评估！' C $ 4 $。

解决方案

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

  Private Sub Worksheet_Change（ByVal目标作为范围）
带表格（安装协议）
 .Range（i47：i72）=表（评估）。范围（c4）
 .Range i24：i38）=表（评估）。范围（c4）
 .Range（i41：i44）=表（评估）。 b .Range（i10：i11）= Sheets（Assessment）。Range（c4）
 End with 
 End Sub 
  

Target 参数将填充已修改的单元格范围，因此您可以从更新需要完成。

I'm trying to have a range of cells (Installation Agreement: parts of i column) populated with the number in (Assessment : C4) every time I make an adjustment to the "Job Report" sheet. But it's not updating correctly. Any suggestions?

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: The i column cells of the Installation Agreement sheet are locked for editing, otherwise I would simply do "='assessment!'C$4$".

解决方案

Go into the VBA module for the Job Report tab (right-click on the tab and hit "View Code"), then use the Worksheet_Change event as so:

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

The Target parameter will be populated with the range of cells that were modified, so you can decide from that if the update needs to be done or not.

这篇关于OnEntry VBA功能的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！