右键SHEET1查看代码复制代码下列代码PrivateSubWorksheet_Change(ByValTargetAsRange)Application.EnableEvents=False'防止自动变化后重复激发事件,导致循环溢出..Target.Value=Val(Target.Value)*4Application.EnableEvents=TrueEndSub关闭窗口返回EXECL,在单元格里输入4,结果为16分你看着给吧!