Excel VBA，当选项发生变化时，怎么自动清空原来的输入？

A1是个下拉框，可选择yes/no当选择Yes时，B1,B2里可以输入值；当改变选项为“no”的时候，我想达到自动清除原来B1,B2里面输入的值，不需要去手动点run... A1是个下拉框，可选择yes/no
当选择Yes时，B1,B2里可以输入值；
当改变选项为“no”的时候，我想达到自动清除原来B1,B2里面输入的值，不需要去手动点run 展开

 我来答

2个回答

#热议# 海关有哪些禁运商品？查到后怎么办？

百度网友59e329458
2012-04-09 · TA获得超过1197个赞

知道小有建树答主

回答量：246

采纳率：100%

帮助的人：150万

我也去答题访问个人页

关注

展开全部

只要在A1选No的时候B1，B2清除数值就可以了，不必要那么复杂。
在表格Change事件中写入代码：

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Address = "$A$1" Then
If .Value = "No" Then
Range("B1:B2").Value = ""
End If
End If
End With
End Sub
解释：A1制作成有效性序列Yas，No；每当A1选择一次No的时候B1，B2自动清除。

本回答由提问者推荐

已赞过 已踩过<

评论收起

百事牛
2024-10-22 广告

百事牛是共享提供商，我们提供可靠有效的服务，适当合理的授权费有利于的继续更新优化。同样的事情，同样的方法，百事牛团队十年磨一剑，始终至聚焦在密码恢复领域，深耕于此，我们已研制出有别于其他公司的算法和运算模式，百事牛的暴力模式加入了分布式点... 点击进入详情页

本回答由百事牛提供

三三万尺
2012-04-09 · TA获得超过166个赞

知道小有建树答主

回答量：179

采纳率：0%

帮助的人：220万

我也去答题访问个人页

关注

展开全部

这个可以通过插入两个选项按钮来实现，一个yes一个no
再分别插入两个模块，一个是yes指定的宏，一个是no指定的宏
Sub yes选项()
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
End Sub

Sub no选项()
ActiveSheet.Protect DrawingObjects:=False, Contents:=False, Scenarios:=False
Range("B1:B2").Select
Selection.ClearContents
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
这样就可以实现你想要的功能了，希望能帮到你