
excel
Sub 单击事件()Dim ws As WorksheetSet ws = ThisWorkbook.Worksheets("Sheet1")For i = 1 To ws.UsedRange.Rows.CountFor j = 1 To ws.UsedRange.Columns.CountIf ws(i, j).Value = True Thenws(i, j).Value = FalseEnd IfNext j, Next iEnd Sub然后,在excel中找到你想要设置效果的复选框,并将其设置为"点击时"触发该VBA代码。这样,当用户点击复选框时,该代码就会自动运行,并将所有选中状态变为未选中。同时,当前日期时间也会自动上移一格。请注意,以上代码仅供参考,具体实现方式可能会因版本和配置不同而有所差异。如果你需要更多帮助,请随时向我提问!Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号