Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 13 And Target.Row > 1 Then
Target.Offset(0, 1) = Target.Value * 5
End If
End Sub
自动根据excel的某一列单元格的值计算,并将计算的结果给同行的下一列单元格赋值
最新推荐文章于 2024-04-05 20:18:05 发布
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 13 And Target.Row > 1 Then
Target.Offset(0, 1) = Target.Value * 5
End If
End Sub