[已解决]让2个代码同时在一个sheet中同时有效

left369

让2个代码同时在一个sheet中同时有效

最佳答案

月排行榜 / 总排行榜

dsmch

2014-5-12 22:30

1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
   
2. If T.Column = 1 And T.Row > 1 Then
   
3. For i = 1 To T.Count
   
4.     If T(i) <> "" Then
   
5.         arr = Split(T(i), "*")
   
6.         If UBound(arr) < 2 Then
   
7.             jg = jg + Val(arr(0)) * 1
   
8.         Else
   
9.             jg = jg + Val(arr(0)) * Val(arr(2))
   
10.         End If
    
11.     End If
    
12. Next
    
13. Range("A1") = jg
    
14. End If
    
15. If T.Column = 3 And T.Row > 1 Then
    
16.     For Each R In T
    
17.         If R <> "" And InStr(R, "=") Then
    
18.             H = H + Val(Split(R, "=")(1))
    
19.         End If
    
20.     Next
    
21.     [C1] = H
    
22. End If
    
23. End Sub
    

复制代码

跳转到最佳答案楼层

su45

不是给合并过吗？又怎么了？

dsmch

1. Private Sub Worksheet_SelectionChange(ByVal T As Range)
   
2. If T.Column = 1 And T.Row > 1 Then
   
3. For i = 1 To T.Count
   
4.     If T(i) <> "" Then
   
5.         arr = Split(T(i), "*")
   
6.         If UBound(arr) < 2 Then
   
7.             jg = jg + Val(arr(0)) * 1
   
8.         Else
   
9.             jg = jg + Val(arr(0)) * Val(arr(2))
   
10.         End If
    
11.     End If
    
12. Next
    
13. Range("A1") = jg
    
14. End If
    
15. If T.Column = 3 And T.Row > 1 Then
    
16.     For Each R In T
    
17.         If R <> "" And InStr(R, "=") Then
    
18.             H = H + Val(Split(R, "=")(1))
    
19.         End If
    
20.     Next
    
21.     [C1] = H
    
22. End If
    
23. End Sub
    

复制代码

dsmch

………………

qh8600

合并在一起就可以啦

su45

EP求助.zip (9.89 KB, 下载次数: 6)

2014-5-12 22:40 上传

点击文件名下载附件

1091126096

Private Sub Worksheet_SelectionChange(ByVal Target As Range事件只能有一个的，合并在一起。

left369

dsmch 发表于 2014-5-12 22:31
………………

感谢！！！

1091126096

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Row = 1 Then Exit Sub
   
3. For i = 1 To Target.Count
   
4.     If Target(i) <> "" Then
   
5.         arr = Split(Target(i), "*")
   
6.         If UBound(arr) < 2 Then
   
7.             jg = jg + Val(arr(0)) * 1
   
8.         Else
   
9.             jg = jg + Val(arr(0)) * Val(arr(2))
   
10.         End If
    
11.     End If
    
12. Next
    
13. Range("A1") = jg
    
14. 
    
15. 
    
16. If Target.Column = 3 Then
    
17. 
    
18.         Dim R As Range, H As Double
    
19.         For Each R In Target
    
20.             If InStr(R, "=") <> 0 Then
    
21.                 H = H + Val(Mid(R, InStr(R, "=") + 1, 99))
    
22.             End If
    
23.         Next
    
24.         [C1] = H
    
25.     End If
    
26. 
    
27. End Sub

复制代码