
excel
vb.netPrivate Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Cells(Target.Row, Target.Column) = Cells(Target.Row, Target.Column) / 2 Application.EnableEvents = TrueEnd Sub通过这个代码,在工作表上按下F9或选择"宏->运行宏"即可看到效果。另外,如果需要将每个单元格都进行除以2操作,可以将以上代码保存为VBA模块,在相应单元格上双击即可。Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号