求助 怎么改 大神指导

犹尤

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "离职" Then
  Target.EntireRow.Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
  Target.EntireRow.Delete
End If
End Sub

修改以上VBA使其能够在单元格内容是由其他Excel功能（如公式计算、条件格式规则、数据验证等）自动更改时，也会触发

风雨声点滴

将开头使用的Worksheet_Change事件替换成Worksheet_Calculate 事件，该事件将在任何单元格的内容发生更改时触发，无论这种更改是由用户直接编辑、公式计算结果的变更还是其他Excel功能造成的。

风雨声点滴

因为Worksheet_Calculate事件不能像 Worksheet_Change事件一样返回被更改的目标单元格(Target)。所以我们需要扫描你所关注的特定范围，例如某列

修改即为：
Option ExplicitPrivate Sub Worksheet_Calculate()    Dim rng As Range    Dim cell As Range    Set rng = Me.Range("A:A") ' 设置你关注的列范围，例如 A 列，任意调整    For Each cell In rng        If cell.Value = "离职" Then            cell.EntireRow.Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)            cell.EntireRow.Delete        End If    Next cellEnd Sub

ykcbf1100

参考一下：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Me.Cells) Is Nothing Then
        If Target.Value = "离职" Then
            Target.EntireRow.Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
            Target.EntireRow.Delete
        End If
    End If
End Sub

犹尤

风雨声点滴 发表于 2024-3-16 20:03
将开头使用的Worksheet_Change事件替换成Worksheet_Calculate 事件，该事件将在任何单元格的内容发生更改时 ...

感谢大神

除了将开头的Worksheet_Change事件替换成Worksheet_Calculate 事件，下面的具体怎么改
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "离职" Then
  Target.EntireRow.Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
  Target.EntireRow.Delete
End If
End Sub

犹尤

风雨声点滴 发表于 2024-3-16 20:08
因为Worksheet_Calculate事件不能像 Worksheet_Change事件一样返回被更改的目标单元格(Target)。所以我们 ...

多谢 大神
我复制了但是没有反应，怎么办？

犹尤

ykcbf1100 发表于 2024-3-17 11:30
参考一下：
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then  ...

多谢大神
我复制了 但是还是只有手动输入离职才会触发，用公式自动生成的离职还是不触发。
大神怎么办 求指导

犹尤

犹尤 发表于 2024-3-17 14:07
感谢大神

除了将开头的Worksheet_Change事件替换成Worksheet_Calculate 事件，下面的具体怎么改

大神 求指导

ykcbf1100

犹尤 发表于 2024-3-17 14:11
多谢大神
我复制了 但是还是只有手动输入离职才会触发，用公式自动生成的离职还是不触发。
大神怎么办  ...

你还是上个附件吧，这样说不清楚。

犹尤

这是附件 大神请指导