Question

excel vba中，如何让宏一直处于运行状态。

我先利用数据有效性建了一个下拉列表，然后编辑VBA的代码，设定几个条件语句。
即，当满足条件语句时，程序便会执行。
以下即是代码：
If Range("A17").Value = "Dosol" + " " + "skirts" Then
Range("A18").Value = "hello" + " " + "454," + " " + "makesure" + " " + "iloveyou"

ElseIf Range("A17").Value = "Sky" Then
Range("A18").Value = "good," + " " + "Inow" + " " + "speaking,"
End if
A17就是我设定的下拉列表，而A18，就是我希望他显示出来的值。
很简单的一组条件语句、
现在最大的问题的，我点了之后，他总是没有反应，宏不执行。
就是说我点中了A17下拉列表中的某一项，让其达到固定值的时候，A18并没有跟着起到变化。而只有我点一下执行宏的语句时才会有所改变。
问题是我不想每点一下下拉列表中的值就都要去多点一下宏，请问有什么办法可以解决吗，让宏一直处于执行的状态。我不断的更换下拉列表中的值，而下面的值也就是跟着不断的一起变换。

Answer 1

你没有激发事件啊。看看我修改后的代码，只要选择的单元格是A17，就会执行。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
With Target
If .Row = 17 And .Column = 1 Then
If .Value = "Dosol" + " " + "skirts" Then
Range("A18").Value = "hello" + " " + "454," + " " + "makesure" + " " + "iloveyou"
ElseIf .Value = "Sky" Then
Range("A18").Value = "good," + " " + "Inow" + " " + "speaking,"
End If
End If
End With
End Sub

Answer 2

你的宏写法不对，文本怎么能相加呢？ 如果要连接 也只能用&
如果想要A18单元格因为A17单元格变化而变化，就是需要一个A17单元格的一个触发事件
这个事件是 worksheet_change() 单元格内容改变事件
写法是
private sub worksheet_change(byval target as range)
end sub

Answer 3

你还是在A18中输入公式吧。。。。。
=IF(A17="Dosol skirts","hello 454 makesure iloveyou",IF(A17="sky","good Inow speaking,",""))

Answer 4

把代码放到 worksheet 的 change 模块里面，应该就可以触发了

Answer 5

根据你的描述，可以断定你的代码不是写在单元格事件中。
你的代码应该放到单元格事件中去。当单元格发生变化时运行宏。 HI我，帮你搞定