Hỏi về tạo ghi chú cho code VBA

[ptlong04x1]

Như mọi người đã biết, khi đặt dấu ' trước dòng code nào đó thì dòng đó sẽ bị vô hiệu hoá và trở thành như 1 ghi chú. Bây giờ đặt trường hợp mình muốn vô hiệu hoá 1 đoạn code nhiều dòng cỡ 20-30 dòng gì đó trong 1 sub có cả trăm dòng thì có cách nào làm nhanh không hay là phải đặt dấu ' trước mỗi dòng code? Cảm ơn mọi người trước!

 

[Hoàng Trọng Nghĩa]

Ghê vậy ta? Code mà dài cả trăm dòng à? Sao không ngắt ra từng đoạn code làm các Private Sub, sau đó làm một Sub chính gọi các sub đó lên? Như vậy sẽ dễ dàng kiểm tra code, đồng thời sẽ dễ loại bỏ, kiểm soát lỗi???

 

[ptlong04x1]

Thực ra thì không phải cả trăm dòng code đều làm việc, đôi lúc mình muốn thay đoạn code này bằng đoạn code khác để kiểm tra xem cách làm nào nhanh hơn hay là thử nghiệm 1 cách làm mới nhưng lại muốn lưu đoạn code cũ vì chưa chắc cách làm mới là đúng vì vậy mới nảy ra yêu cầu muốn biến code cũ thành kiểu như 1 ghi chú, cứ nhiều lần như thế thì dẫn đến có rất nhiều dòng. Nhưng code cả trăm dòng thì vẫn có thể, vì nếu là vba trong Autocad để vẽ ra được cái gì đó thì cũng tốn nhiều giấy mực lắm.

 

[Hoàng Trọng Nghĩa]

Thực ra thì không phải cả trăm dòng code đều làm việc, đôi lúc mình muốn thay đoạn code này bằng đoạn code khác để kiểm tra xem cách làm nào nhanh hơn hay là thử nghiệm 1 cách làm mới nhưng lại muốn lưu đoạn code cũ vì chưa chắc cách làm mới là đúng vì vậy mới nảy ra yêu cầu muốn biến code cũ thành kiểu như 1 ghi chú, cứ nhiều lần như thế thì dẫn đến có rất nhiều dòng. Nhưng code cả trăm dòng thì vẫn có thể, vì nếu là vba trong Autocad để vẽ ra được cái gì đó thì cũng tốn nhiều giấy mực lắm.

Cứ việc backup Code lại, luôn luôn là vậy, tôi cứ copy nguyên cái code (double click vào chữ Sub hoặc Private sẽ tô khối toàn bộ thủ tục đó), rồi copy ngay đó luôn, sau đó sửa tên lại, thêm vào sau tên code 1 rồi 2, rồi 3, cứ thế cho đến khi code mình hoàn chỉnh rồi hẳng xóa mấy cái backup. khi chạy code, dùng những break point sẽ dễ dàng kiểm tra code chạy đến đâu và chỉnh tới đó.

 

[ChanhTQ@]

(ó 1 số trường hợp ta có thể dùng lệnh Goto

Có thể Goto đến 1 nhãn, 1 dòng lệnh & đến cuối chương trình như

Rws = [B65500}.end(xlup).Row​

If Rws Mod 3 = 0 then​

Goto GPE​

ElseIf Rws Mod 3 = 1 Then​

Goto 987654​

Else​

Goto End​

End If​

 

[ptlong04x1]

Đã tìm ra giải pháp, chia sẻ với các bạn :

Vào Customize để add thêm 2 nút là Comment Block và Uncomment Block cho menu Edit, muốn loại đoạn code nào ra khỏi cuộc chơi chỉ cần bôi đen cả đoạn code đó, click vào menu Edit --> Comment Block, ngược lại là Uncomment Block.