[已解决]多单元格事件问题，请大神指点！！

liwenhong · 发表于 2014-10-27 10:56

本帖最后由 liwenhong 于 2014-10-27 12:51 编辑

对想要效果的描述：对于E2、E3单元格来说，当两个单元格内都有内容时（空、“0”和“请选择”除外），就跳出“执行命令1”对话框。也就是说，当其中一个是空、“0”或“请选择”时，就不会跳出“执行命令1”对话框。对于对于M2、M3单元格，当两个单元格内都有内容时（空、“0”和“请选择”除外），才跳出“执行命令2”对话框。也就是说，当其中一个是空、“0”或“请选择”时，就不会跳出“执行命令2”对话框。
附件：

如何实现：在一个工作表中多单元格满足条件时才执行.zip (8.87 KB, 下载次数: 7)

Excel学徒123 · 发表于 2014-10-27 12:00

这个最佳答案由 Excel学徒123 给出，感谢 Excel学徒123 的回答。

单击隐藏图章

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Row = 2 Or Target.Row = 3) And Target.Column = 5 Then
If Cells(2, 5) <> "" And Cells(3, 5) <> "" And Cells(2, 5) <> "请选择" And Cells(2, 5) <> 0 And Cells(3, 5) <> "请选择" And Cells(3, 5) <> 0 Then
MsgBox "执行命令1"
End If
End If
If (Target.Row = 2 Or Target.Row = 3) And Target.Column = 13 Then
If Cells(2, 13) <> "" And Cells(3, 13) <> "" And Cells(2, 13) <> "请选择" And Cells(3, 13) <> "请选择" And Cells(2, 13) <> 0 And Cells(3, 13) <> 0 Then
MsgBox "执行命令2"
End If
End If
End Sub

复制代码

在你原来的代码基础上修改的，看看是不是你想要的结果{:1012:}

liwenhong · 发表于 2014-10-27 12:50

Excel学徒123 发表于 2014-10-27 12:00
在你原来的代码基础上修改的，看看是不是你想要的结果

经调试，代码完全符合题目的要求，佩服思路之清晰，也非常感谢！以下是我在原代码上改的，不成功
注意！！以下代码修改的不成功

Private Sub Worksheet_Change(ByVal Target As Range)
If (Target.Row = 2 Or Target.Row = 3) And Target.Column = 5 Then
If (Cells(2, 5) <> "" Or Cells(2, 5) <> 0 Or Cells(2, 5) <> "请选择") And (Cells(3, 5) <> "" Or Cells(3, 5) <> 0 Or Cells(3, 5) <> "请选择") Then
Cells(10, 5) = "成功1"
End If
End If
If (Target.Row = 2 Or Target.Row = 3) And Target.Column = 13 Then
If (Cells(2, 13) <> "" Or Cells(2, 13) <> 0 Or Cells(2, 13) <> "请选择") And (Cells(3, 13) <> "" Or Cells(3, 13) <> 0 Or Cells(3, 13) <> "请选择") Then
Cells(10, 13) = "成功2"
End If
End If
End Sub

复制代码

Excel学徒123 · 发表于 2014-10-27 15:27

liwenhong 发表于 2014-10-27 12:50
经调试，代码完全符合题目的要求，佩服思路之清晰，也非常感谢！以下是我在原代码上改的，不成功
注意！ ...

把思路理清之后，实际上很容易写出来的{:1012:}

		自动登录	找回密码
密码			注册

[已解决]多单元格事件问题，请大神指点！！

评分

浏览过的版块