关于Worksheet_Change事件中多个Target不关联

longming3

Worksheet_Change事件中多个Target不关联的问题
已经设定Target.Column <> 5 Or Target.row  = 1了，现在继续再设定Target如何进行，详细请见附件。多谢

vTxBoNUK.rar (94.18 KB, 下载次数: 24)

2010-8-3 20:30 上传

点击文件名下载附件
关于Worksheet_Change事件中多个Target不关联

[此贴子已经被作者于2010-8-3 20:30:08编辑过]

开辆小富康

用if来取多种条件。

longming3

能帮我看看附件解决一下问题吗

longming3

麻烦看下附件，解决一下

fjmxwrs

照你的意思应该是与第5列和第一行无关呀，为什么<>5，应该是=5吧

If Target.Column = 5 Or Target.Row = 1 Then Exit Sub

fjmxwrs

你是要指定是第5列吗？

fjmxwrs

你设置的&lt;&gt;5和row=1退出是指定target的区域为E2：E65536，只有这区域才有事件发生

[此贴子已经被作者于2010-8-3 20:58:28编辑过]

longming3

现在还有其他列要指定，应该如何改？

流云QQ33319779

在此路过学习学习

无聊的疯子

既然工龄与 身份证 无关,为啥还要专门强调

当身份证号码为空是，后面的工龄和辅助3的转换拼音照样能计算，也就是与身份证单元格没有关系
录入完身份证号码，入职时间没有录入，则不计算，录入入职时间后则计算工龄
辅助3同理，就职状态没有录入不计算，录入后则计算。与身份证单元格不关

你就直接说:
第一:
当在B列输入姓名后, 并且R列的内容为在职,则在 辅助3 实现自动拼音简写!
(你辅助1的作用我看不懂,当然可以同时将姓名输入到辅助1)

第二:
N列录入入职时间 并且 R列录入了就职状态,则计算工龄!
这个R列是不是需要判断是否在职呢?

以下代码只是一个思路示例,只需要将 两个 msgbox 替换成你对应的代码就可以了!!
InStr(1, "2,14,18", .Column) = 0 作用,判断如果不是操作的 B,N,R 三列,就退出过程!

1. 
   
2. Private Sub Worksheet_Change(ByVal Target As Range) '在 Worksheet 单元格中的某些内容发生更改时触发
   
3. With Target
   
4.   If .Count>1 Then Exit Sub
   
5.   If .Row = 1 Then Exit Sub
   
6.   If InStr(1, "2,14,18", .Column) = 0 Then Exit Sub
   
7.   If Cells(.Row, "B") <> "" And Cells(.Row, "R") = "在职" Then MsgBox "条件符合,调用拼音简写代码"
   
8.   If Cells(.Row, "N") <> "" And Cells(.Row, "R") <> "" Then MsgBox "条件符合,调用工龄计算代码"
   
9. End With
   
10. End Sub
    

复制代码