excel复选框的选择调整加减(VBA)...

发布网友 发布时间：23小时前

我来回答

共4个回答

热心网友 时间：30分钟前

右击Sheet1标签，然后点击查看代码，将下列代码复制到Sheet1代码窗口中:
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets(2).Range("D2") = Sheets(1).Range("C3")
End Sub

再将下列这段代码复制到Sheet2的工作表代码窗口中：
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets(1).Range("C3") = Sheets(2).Range("D2")
End Sub

除了使用工作表事件，想不出还有其它办法了。

热心网友 时间：31分钟前

关注

热心网友 时间：31分钟前

如果,复选框的值等于True,Z320=Y320+Y319,Z319=Y318+Y319
否则Z319=Y319-Y320,Z19=Y318-Y319

热心网友 时间：34分钟前

if 复选框.value=true then
条件1
else
条件2
end if