在Excel VBA中单击按钮后调整单元格值

我在Excel VBA方面非常基础，并且一直在解决一个问题

我的解决方案要求我在两列“Y”和“N”之间切换“是”或“否”。 在本练习中，单元格值为“是”或“否”的行在手动编辑之前保持不变，但不能同时包含“是”和“否”。 简单地说，代码要求每次单击时，在同一行的指定列中，在“是”和“否”之间进行切换

此图显示了我的第一个切换的功能。不适合我的解决方案

然而，我的代码倾向于做其他事情。我已经设法编译了。但是我需要一些帮助

Sub-Toggle（）
作为整数的Dim i
对于要查找的i=1到10'单元格范围
如果单元格（i，5）.Value=“否”，则
单元格（i，4）。Value=“是”
单元格（i，5）。ClearContents在切换到Yes之前必须清除No值
ElseIf单元格（i，4）。Value=“Yes”然后
单元格（i，5）。Value=“否”
单元格（i，4）。ClearContents在切换到No之前必须清除Yes值
出口接头
如果结束
接下来我
'仅当循环完成但未成功时，此MsgBox才会显示
MsgBox（“在范围内找不到值！”）
端接头

我想通过一些故障排除，我可以通过简单地从代码中删除“Exit Sub”来获得结果，并且它可以按照我想要的方式切换单元格中的值

嗨。在第一个“是”选项中，代码将退出，因为退出子选项将删除它，代码将正常工作，直到msgbox。你必须找到另一个msgbox的解决方案