触发事件合并

feng-aa

请问老师，为提高工作效率，网上找了两段代码不知道怎么合并，还请各位老师帮忙。


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    If Application.Intersect(Target, [h4:l100]) Is Nothing Then Exit Sub
    If Target = 0 Then Target.FormulaR1C1 = "完成": Exit Sub
    If Target = "完成" Then Target.FormulaR1C1 = "未完成": Exit Sub
    If Target <> 0 Then Target.FormulaR1C1 = "": Exit Sub   
End Sub




Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows.Interior.ColorIndex = 0
If Target.Column < 3 Then Exit Sub
If Target.Column > 3 Then Exit Sub
If Target.Row < 3 Then Exit Sub
On Error Resume Next
If Target.Columns.Count > 1 Then Exit Sub
If Target.Rows.Count > 1 Then Exit Sub
CreateObject("Wscript.Shell").SendKeys "%{down}"
End Sub

NadrsSaber

你要合并什么内容, 说清楚啊, 或者什么需求...

liulang0808

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count <> 1 Then Exit Sub
    If Application.Intersect(Target, [h4:l100]) Is Nothing Then Exit Sub
    If Target = 0 Then Target.FormulaR1C1 = "完成"
    If Target = "完成" Then Target.FormulaR1C1 = "未完成"
    If Target <> 0 Then Target.FormulaR1C1 = ""
   
   
    Rows.Interior.ColorIndex = 0
    If Target.Column < 3 Then Exit Sub
    If Target.Column > 3 Then Exit Sub
    If Target.Row < 3 Then Exit Sub
    On Error Resume Next
   
    CreateObject("Wscript.Shell").SendKeys "%{down}"
End Sub
楼主看看是否合适不啊

feng-aa

NadrsSaber 发表于 2019-12-17 12:30
你要合并什么内容, 说清楚啊, 或者什么需求...

已上传附件和说明，请老师帮忙

feng-aa

liulang0808 发表于 2019-12-17 12:31
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count  1 Then Exit Sub
...

版主，这样合并达不到效果，我把附件上传啦，请版主帮忙看一下

NadrsSaber

你这2块都不在一个表里啊, sheet1 还隐藏了 -.-

feng-aa

NadrsSaber 发表于 2019-12-17 14:36
你这2块都不在一个表里啊, sheet1 还隐藏了 -.-

主要是想将这两个效果合并到一张表格里，

feng-aa

liulang0808 发表于 2019-12-17 12:31
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count  1 Then Exit Sub
...

版主，帮忙弄一下好不好，谢谢啦

liulang0808

两个事件针对不用的工作表，为什么要合并？
合并是为了解决什么问题？

楼主可以考虑工作簿事件

feng-aa

liulang0808 发表于 2019-12-17 18:30
两个事件针对不用的工作表，为什么要合并？
合并是为了解决什么问题？

谢谢，搞定了，我自己加了个跳