Tự tạo một Comment (1 người xem)

[hungdiep85]

Chào các Anh Chị Thầy cô :

Sheet Options cột C là tên sản phẫm, cột D là thông tin giảm giá của sản phẫm.
Mỗi ngày em mở 1 sheet mới ra, cột A của sheet mới là tên sản phẫm, sau khi điền tên sản phẫm vào, cho chạy code thì sẽ tự tạo một Comment trong comment đó là thông tin giảm giá của sản phẫm.

Em không biết gì về code, Mong các Anh Chị Thầy cô giúp cho em cái code.

Em cảm ơn trươc àh....

 

[dhn46]

Bạn bôi đen vùng cần tạo comment sau đó nhấn tổ hợp phím Ctrl + q để có kết quả

 

[ndu96081631]

Bạn bôi đen vùng cần tạo comment sau đó nhấn tổ hợp phím Ctrl + q để có kết quả

2 vòng lập For lồng nhau không phải là sự lựa chọn tốt (chắc chắn sẽ chậm)
Bài này có thể dùng 2 cách:
- Dùng mảng kết hợp với Dictionary
- Dùng Find Method (dễ hiểu nhất)
-------------
Hơn nữa:
- Cho dù dùng 2 vòng lập lồng nhau thì ít nhất cũng nên Exit For khi tìm thấy (tiết kiệm tài nguyên)
- Đoạn code Cls.Comment.Delete là quá chủ quan (chưa có Comment thì lấy gì mà xóa) ---> Vậy nên phải bẫy lỗi
(Ngoài ra còn có If Cls = Cmt Then cũng không kém chủ quan)
vân... vân... và... mây... mây...
(Chú dhn46 này là sư phụ về code, chắc dạo này bận dạy người khác nên.. quên tuốt rồi... Ẹc... Ẹc...)

 

[hungdiep85]

Bạn bôi đen vùng cần tạo comment sau đó nhấn tổ hợp phím Ctrl + q để có kết quả

Sao em làm không đươc, em chọn hết vùng cần tạo comment chạy code báo lổi thầy ơi.

Em cảm ơn thầy àh....

 

[dhn46]

2 vòng lập For lồng nhau không phải là sự lựa chọn tốt (chắc chắn sẽ chậm)
Bài này có thể dùng 2 cách:
- Dùng mảng kết hợp với Dictionary
- Dùng Find Method (dễ hiểu nhất)
-------------
Hơn nữa:
- Cho dù dùng 2 vòng lập lồng nhau thì ít nhất cũng nên Exit For khi tìm thấy (tiết kiệm tài nguyên)
- Đoạn code Cls.Comment.Delete là quá chủ quan (chưa có Comment thì lấy gì mà xóa) ---> Vậy nên phải bẫy lỗi
(Ngoài ra còn có If Cls = Cmt Then cũng không kém chủ quan)
vân... vân... và... mây... mây...
(Chú dhn46 này là sư phụ về code, chắc dạo này bận dạy người khác nên.. quên tuốt rồi... Ẹc... Ẹc...)

Cảm ơn thầy, đúng là em nhắm mắt nhắm mũi viết nên sai toé loe ^^.

Bạn xem 3 file đính kèm sau bấm Ctrl + q để cho kết quả nhé

 

[hungdiep85]

Cảm ơn thầy, đúng là em nhắm mắt nhắm mũi viết nên sai toé loe ^^.

Bạn xem 3 file đính kèm sau bấm Ctrl + q để cho kết quả nhé

Em cảm ơn thầy nhiều nhiều àh......

 

[hungdiep85]

Cảm ơn thầy, đúng là em nhắm mắt nhắm mũi viết nên sai toé loe ^^.

Bạn xem 3 file đính kèm sau bấm Ctrl + q để cho kết quả nhé

Thầy ơi, có cách nào làm cho cái bảng hiển thị comment nó tự động lớn theo nội dung không Thầy. Vi giờ muốn coi thì phải bấm show comment rồi chỉnh lớn cái bảng mới coi được.

Em cảm ơn các Thầy nhiều àh.......

 

[nghiaphuc]

Thầy ơi, có cách nào làm cho cái bảng hiển thị comment nó tự động lớn theo nội dung không Thầy. Vi giờ muốn coi thì phải bấm show comment rồi chỉnh lớn cái bảng mới coi được.

Em cảm ơn các Thầy nhiều àh.......

Bạn thêm một câu lệnh này vào sau câu lệnh thêm Comment:

Cls.Comment.Shape.TextFrame.AutoSize = True

 

[hungdiep85]

Em cảm ơn các Thầy nhiều................