[已解决]自动化的程序怎么编辑

markang

各位同学,老师,你们好!
我对自动执行的程序理解的还不好,这里问个简单的例子
sub tt()
if range("a1")=1 then range("b1")=2

end sub
执行上面的程序还要在表格增加"触发条件",比如添加按钮,指定宏......
有什么办法可以让其自动执行呢?即在a1单元格输入1,b1自动跳出来2?

最佳答案

月排行榜 / 总排行榜

yorkchenshunan

2015-8-25 18:04

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count <> 1 Then Exit Sub
   
3.         If Target = [a1] Then
   
4.             If [a1] = 1 Then
   
5.                 [b1] = 2
   
6.             Else
   
7.                 [b1] = ""
   
8.             End If
   
9.     End If
   
10. End Sub

复制代码

跳转到最佳答案楼层

爱疯

如果把代码写在相应事件里，可以在a1单元格输入1,b1自动等于2

跳？怎么跳{:291:}

yorkchenshunan

用工作表事件呗

markang

是自动显示,不是"跳"
用下面?我们又没动工作表咯,会有效果吗?回去试一试
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

yorkchenshunan

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Count <> 1 Then Exit Sub
   
3.         If Target = [a1] Then
   
4.             If [a1] = 1 Then
   
5.                 [b1] = 2
   
6.             Else
   
7.                 [b1] = ""
   
8.             End If
   
9.     End If
   
10. End Sub

复制代码

markang

brilliant! 我就要这样的效果,感谢!, 以后可以举一反三了