Hỏi về: đặt 2 hay nhiều Worksheet_Change vào cùng 1 sheet??? (1 người xem)

[nad582]

Chào các a(c) trong GPE, e hỏi vấn đề:
e có đoạn code sau:

Đoạn code 1
[GPECODE=vb]Option ExplicitPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim myObj As String
On Error Resume Next 'neu ko tim` thay' Pic
If Target.Address = "$E$5" Then
If Target = "" Then Exit Sub
ActiveSheet.Shapes("tmpPic").Delete
myObj = Range("E5").Value
Sheets("Sheet3").Shapes(myObj).Copy
'----------
With Range("G4")
.PasteSpecial
Selection.Name = "tmpPic"
End With
End If
Target.Select
End Sub[/GPECODE]
Đoạn code 2
[GPECODE=vb]Private Sub Worksheet_Change1(ByVal Target As Range)
Dim myObj As String
On Error Resume Next 'neu ko tim` thay' Pic
If Target.Address = "$E$13" Then
If Target = "" Then Exit Sub
ActiveSheet.Shapes("tmpPic2").Delete
myObj = Range("E13").Value
Sheets("Sheet3").Shapes(myObj).Copy
'----------
With Range("G13")
.PasteSpecial
Selection.Name = "tmpPic2"
End With
End If
Target.Select
End Sub[/GPECODE]
vậy e muốn chép 2 đoạn code đó vào cùng 1 sheet để nó hoạt động thì phải điều chỉnh 1 trong như thế nào?
e chân thành cảm ơn!! mong hồi âm!!

 

[nad582]

Em bổ sung ý sau:
View attachment 127149
- khi thay đổi ô E5 thì code 1 hoạt động
- Khi thay đổi ô E13 thì code 2 không hoạt động
Vậy làm sao để code 2 hoạt động??
Nếu thêm nhiều Worksheet_Change vào cùng 1 sheet thì sao làm sao cho nó phân biệt tên (Worksheet_Change) để nó hoạt động??
e cảm ơn!mong hồi âm!!

 

[Let'GâuGâu]

Em bổ sung ý sau:

- khi thay đổi ô E5 thì code 1 hoạt động
- Khi thay đổi ô E13 thì code 2 không hoạt động
Vậy làm sao để code 2 hoạt động??
Nếu thêm nhiều Worksheet_Change vào cùng 1 sheet thì sao làm sao cho nó phân biệt tên (Worksheet_Change) để nó hoạt động??
e cảm ơn!mong hồi âm!!

sao bạn không chép 2 đoạn code đó vào một cái worksheet change thôi.
khi bạn tác động e5 thì đoạn một chay, tác động e13 thì đoạn 2 chạy, nó có ảnh hưởng gì nhau đâu?
bạn có thấy đoạn code

If Target.Address = "$E$5" Then
và
If Target.Address = "$E$13" Then

là để làm công việc đó.

trong trường hợp code chạy mà có tác động trở lại E5 hoặc E113 để tránh code tránh code cứ lặp lại người ta dùng lệnh

application.enableevents=false
........................code o đây
applcation.emableevents=true