Xin nhờ thêm lệnh tắt thông báo trong vba

[hvhvpdk]

Em có đoạn code để chạy, nhưng mỗi lần xữ lý là hiện lên thông báo. Nhờ các pro giúp chỉnh lại code đễ tắt thông báo này ạ. Xin cám ơn các pro
Code:
Sub gop_o()
Dim i As Integer
For i = 200 To 5 Step -1
If Cells(i, 2) = Cells(i - 1, 2) Then
Range(Cells(i, 2), Cells(i - 1, 2)).Select
Selection.Merge
End If
Next i
Application.DisplayAlerts = False
End Sub

 

[Lê Hồng Minh83]

Em có đoạn code để chạy, nhưng mỗi lần xữ lý là hiện lên thông báo. Nhờ các pro giúp chỉnh lại code đễ tắt thông báo này ạ. Xin cám ơn các pro
Code:
Sub gop_o()
Dim i As Integer
For i = 200 To 5 Step -1
If Cells(i, 2) = Cells(i - 1, 2) Then
Range(Cells(i, 2), Cells(i - 1, 2)).Select
Selection.Merge
End If
Next i
Application.DisplayAlerts = False
End Sub

Bạn sửa thành như này xem sao nhé

Sub gop_o()
Application.DisplayAlerts = False
Dim i As Integer
For i = 200 To 5 Step -1
If Cells(i, 2) = Cells(i - 1, 2) Then
Range(Cells(i, 2), Cells(i - 1, 2)).Select
Selection.Merge
End If
Next i
Application.DisplayAlerts = True
End Sub

 

[befaint]

Range(Cells(i, 2), Cells(i - 1, 2)).Merge

 

[VetMini]

Range(Cells(i, 2), Cells(i - 1, 2)).Merge

Mỗi lẩn bạn chỉ ngừoi ta merge cells, bạn nên cảnh báo thêm:
merge chỉ dùng cho công việc báo cáo cuối cùng, và dữ liệu trình bày đã hệ thống hoá hoặc đơn giản hoá. Với dữ liệu và dạng bảng phức tạp, sử dụng VBA hay công thức mảng, merge cells là tự rước hoạ vào nhà.

 

[hvhvpdk]

Xin cám ơn tất cả các pro. Chúc các pro sức khỏe.