Hỏi về VBA

Liên hệ QC

ThuNghi

Hãy cho rồi sẽ nhận!
Thành viên đã mất
Tham gia
16/8/06
Bài viết
3,808
Được thích
4,449
Kiểm tra cú pháp

Khi tôi viết 1 Sub, có cách nào biết được kết Sub đó chạy từng phần không?
Vi dụ:
Sub xxxx()
1/ Range("A1:A12").Select
2/ Selection.Copy
3/ Range("B1").Select
4/ ActiveSheet.Paste
End Sub

B1: Chọn
B2: Copy
B3: Chọn đích
B4: Dán


Từng là có cách nào tôi có thể thấy chạy từng bước, nếu Yes thì next (cơ bản để kiểm tra và học hỏi cú pháp).
Xin cám ơn!
 
Theo tôi là trên đầu mỗi bước, bạn cho thêm dòng Msgbox mô tả công việc chuẩn bị thực hiện, kèm theo tiếng Beep cho sinh động.
 
Upvote 0
PhanTuHuong đã viết:
Theo tôi là trên đầu mỗi bước, bạn cho thêm dòng Msgbox mô tả công việc chuẩn bị thực hiện, kèm theo tiếng Beep cho sinh động.


Sub xxxx()

msgbox "" ' để tạm ngừng
' sau đó bạn chọn Ctrl+Break => tạm ngưng chương trình
' ấn F8 để chạy ở chế độ Step mode ( từng dòng lệnh)
' để bỉết giá trị các biến bạn rê chuột vào đó là OK

Range("A1:A12").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
End Sub

Cách 2:( chuyên nghiệp hơn)

Sub xxxx()

Range("A1:A12").Select ' chọn dòng này ấn F9 ( đặt break) nó sẽ đổi màu
' khi ngừng ở đó tiếp tục chạy bằng F8 như ở trên
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
End Sub
 
Chỉnh sửa lần cuối bởi điều hành viên:
Upvote 0
Web KT
Back
Top Bottom