Giúp đỡ: làm thế nào kết thúc sub thứ nhất mà dừng ko cho chạy sub thứ 2 (5 người xem)

[holynho]

Các bác ơi giúp em với, em thì chưa học VBA nhưng copy 2 đoạn code để dùng.
Dùng riêng rẽ ok nhưng em muốn khi chạy Sub thứ nhất thì dừng luôn, không chạy Sub thứ 2 nữa (chạy excel bị lỗi đơ)
Bác nào giúp em sửa thêm với ạ.
Em xin cám ơn!!!

Sub Thunhat()
'Update 20130829
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = ActiveSheet.Range("D:E")
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub
-----------------------------
Sub Thuhai()
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cll As Range
If Intersect(Target, [D]) Is Nothing Then Exit Sub
For Each Cll In Intersect(Target, [D])
If Cll <> "" Then
If Cll <> Cll.ID Then
Cll.Offset(, 1) = 1
Cll.ID = Cll
End If
Else
Cll.Offset(, 1).ClearContents
Cll.ID = ""
End If
Next
End Sub

 

[holynho]

Em attach thêm file, edit ko thấy mục attach ạ

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[le_vis]

Nếu không dùng tới nó thì xóa bỏ đi
Nếu chỉ tạm dừng không cho chạy thì thêm dấu nháy (') phía trước các câu lệnh. Khi dùng lại thì bỏ nháy đi
Ví dụ :
'Sub Thuhai()
'Private Sub Worksheet_Change(ByVal Target As Range)
'Dim Cll As Range
'...........................
'End Sub

 

[holynho]

Nếu không dùng tới nó thì xóa bỏ đi
Nếu chỉ tạm dừng không cho chạy thì thêm dấu nháy (') phía trước các câu lệnh. Khi dùng lại thì bỏ nháy đi
Ví dụ :
'Sub Thuhai()
'Private Sub Worksheet_Change(ByVal Target As Range)
'Dim Cll As Range
'...........................
'End Sub

Sub thứ hai thì em chạy nền ạ, nó tự động điền dữ liệu. Sub 1 thì em thêm nút chạy, nhưng khi chạy thì nó lại kích hoạt Sub 2 chạy theo.

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[huuthang_bd]

Sub thứ hai thì em chạy nền ạ, nó tự động điền dữ liệu. Sub 1 thì em thêm nút chạy, nhưng khi chạy thì nó lại kích hoạt Sub 2 chạy theo.

File của bạn không mở được.

 

[VetMini]

Đặt câu này vào đầu sub thunhat
Application.EnableEvents = False
Và câu này cuối sub thunhat
Application.EnableEvents = True

 

[holynho]

File của bạn không mở được.

Em vừa thử download về vẫn mở dc bt ạ, hic. Office 2010 ạ

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau

 

[holynho]

Đặt câu này vào đầu sub thunhat
Application.EnableEvents = False
Và câu này cuối sub thunhat
Application.EnableEvents = True

Tuyệt vời ạ
Thanks anh nhiều ^^
Sau vụ này em cố học VBA vậy ^^

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau