Cần giúp về truy xuất dữ liệu theo tháng, và tránh sai lầm khi nhập liệu!!!

[thevu01]

(1) Bạn thêm 1 dòng lệnh chứa mũi tên vô macro trên & thử xem nha:

    Target.NoteText StrC
    Target.Comment.Shape.TextFrame.AutoSize = True  '<=|'

Mình đã thêm vào dòng Target.Comment.Shape.TextFrame.AutoSize = True '<=|'. Kết quả thật tuyệt vời ta xem được toàn bộ số môn sinh viên đăng ký, nhưng mà khi ta bôi đen 2 ô trở lên ở cột A, hoặc chọn nhiều hàng là bị báo lỗi như hình:

mình debug thì nó tô vàng ngay hàng Target.Comment.Shape.TextFrame.AutoSize = True '<=|'

 

[thevu01]

Các bạn giúp mình khắc phục lỗi trên với, xin cảm ơn nhiều lắm.

 

[SA_DQ]

Để khắc fục hay loại trừ lỗi này, ta có chí ít 2 cách sau:

(1) Thêm trước diòng lệnh báo lỗi câu lệnh:

On Error Resume Next

Nhưng vậy sẽ hết báo lỗi khi ta chọn nhiều ô trên cột 'A' hay chọn nhiều hàng có vùng chịu tác động bỡi macro sự kiện;
Tuy nhiên lúc đó Comment của ta sẽ không nở rọng hay thu hẹp theo dữ liệu nữa;

(2) Sửa lại câu lệnh

If Not Intersect(Target, Range("A4:A" & [B65500].End(xlUp).Row)) Is Nothing Then

thành câu lệnh

 If Not Intersect(Target, Range("A4:A" & [B65500].End(xlUp).Row)) Is Nothing And Target.Cells.Count = 1 Then

Lúc này ta chọn nhiều ô trong cột 'A' hay nhiều hàng có chứa các ô cột 'A' chứa dữ liệu thì macro đơ ra, không thèm chạy;

(*) Đừng nới với tui là muốn xem ghi chú nhiều ô 1 lúc đó nha!

 

[thevu01]

(2) Sửa lại câu lệnh

If Not Intersect(Target, Range("A4:A" & [B65500].End(xlUp).Row)) Is Nothing Then

thành câu lệnh

 If Not Intersect(Target, Range("A4:A" & [B65500].End(xlUp).Row)) Is Nothing And Target.Cells.Count = 1 Then

Lúc này ta chọn nhiều ô trong cột 'A' hay nhiều hàng có chứa các ô cột 'A' chứa dữ liệu thì macro đơ ra, không thèm chạy;

(*) Đừng nới với tui là muốn xem ghi chú nhiều ô 1 lúc đó nha!

Xin cảm ơn bạn rất nhiều mình làm theo hướng dẫn thì hiện tại marco chạy rất tốt, chưa thấy xuất hiện vấn đề gì. Còn 1 chút nữa là hoàn hảo là không thể xem ghi chú bằng bàn phím được nhưng được như vầy là quá tốt rồi.
Để mình test thử nếu còn vấn đề gì rất mong được sự giúp đỡ của các bạn ^^!