如何把二个VBA代码合并成一个置放在同一工作表

jylai

1.  https://club.excelhome.net/threa ... tml?_dsign=f4f0f44d
2.  https://club.excelhome.net/thread-1684463-1-1.html

1. <blockquote>Private Sub Worksheet_Change(ByVal Target As Range)

复制代码

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. With Target
   
3. If .Address = "$C$14" Then
   
4. Application.EnableEvents = False
   
5. If InStr(.Value, "19") > 0 Then
   
6. Me.Cells(21, 3) = "WSC-IP-3/4”* 1”tk"
   
7. Me.Cells(55, 3) = "3/4”"
   
8. ElseIf InStr(.Value, "22") > 0 Then
   
9. Me.Cells(21, 3) = "WSC-IP-7/8''*1''tk"
   
10. Me.Cells(55, 3) = "7/8”"
    
11. End If
    
12. Application.EnableEvents = True
    
13. End If
    
14. End With
    
15. End Sub
    
16. 
    
17. Private Sub Worksheet_Change(ByVal Target As Range)
    
18.    If Not Application.Intersect(Target, Range("c17")) Is Nothing Then   '
    
19.     ReDim brr(1 To 1, 1 To 5)
    
20.        s = Mid(Target, Len(Target), 1)
    
21.        s = UCase(s)
    
22.      If s = "E" Then
    
23.         brr(1, 1) = "Copper pipe (expansion valve interface)"
    
24.         brr(1, 2) = "WSC-CPS-6*0.8"
    
25.         brr(1, 3) = "m"
    
26.         brr(1, 4) = "0.3"
    
27.         brr(1, 5) = "External balance expansion valve required, internal balance not required"
    
28.         Cells(16, 2).Resize(1, 5) = brr
    
29.         Cells(17, "f") = "Danfoss TES2#06"
    
30.         Range("C16:F16,F17").Interior.ColorIndex = 6
    
31.      Else
    
32.         Cells(16, 2).Resize(1, 5) = brr
    
33.         Cells(17, "f") = "Danfoss TS2#06"
    
34.         Range("C16:F16,F17").Interior.ColorIndex = 0
    
35.      End If
    
36.    End If
    
37. End Sub

复制代码

ykcbf1100

把二个代码放到一起，第一个代码最后加入一句：call 第2个代码名

jylai

ykcbf1100 发表于 2024-2-6 11:43
把二个代码放到一起，第一个代码最后加入一句：call 第2个代码名

老师代码已经上传,代码加在那儿呢 ?