'计算选项-〉设置“自动重算” '模块中添加代码 Function a(r As Range) a = r.Value * r.Value End Function '单元格中输入函数=a(A1)
热心网友时间:2022-06-22 21:22
要用Change事件来实现,把下列代码复制到你要实现此功能的工作表VBA窗口中 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 Then Target.Offset(0, 1) = Target * Target End If End Sub