- Tham gia
- 5/6/08
- Bài viết
- 30,703
- Được thích
- 53,954
Cái này nói riêng với bạn hoangminhtien về 1 chút kinh nghiệm lập trìnhBạn thay “Sheet1” mầu đỏ bằng tên sheet của bạn, thay “A1” mầu đỏ bằng tên ô của bạn. sau đó bạn copy toàn bộ code rồi paste vào phần thisworksbook của bạnPrivate Sub Workbook_Open()
On Error GoTo thoat
Worksheets("sheet1").Range("A1") = Worksheets("sheet1").Range("A1") + 1
thoat: Exit Sub
End Sub
Chữ thoat đã nằm cuối cùng rồi thì không cần phải thêm chữ Exit Sub làm gì ---> Vì đàng nào khi code "đi qua" thoat thì nó cũng kết thúc rồi còn gì