Xin hỏi về macro auto insert comments

[pixelart]

Chào cả nhà !

Em đang có 1 vấn đề mà không biết giải quyết làm sao, xin anh em nào rành macro chỉ giáo với ...

Em có 1 cột số đăng ký xe ...với nội dung là

01111
02222
03333

em muốn tìm 1 hàm macro tự insert comments vào các dòng đó với từng nội dung riêng ... ví dụ:

01111 -> sẽ có comments là BS hà nội
02222 -> sẽ có comments là BS HCM
02222 -> sẽ có comments là BS Bắc Giang

Xin hỏi có cách nào không ạh ... anh em nào có thể cho em xin 1 file mẫu tuơng tự như thế ko, em đội ơn rất nhiều

 

[huuthang_bd]

Nếu comment và dữ liệu không có mối liên quan nào hết thì bạn phải có danh sách comment tương ứng với dữ liệu thì mới làm được.
Cái này đơn giản, bạn thử tập làm xem sao. Dùng Recode Macro ghi lại code insert comment xem nó như thế nào, đưa vào vòng lặp cho insert comment toàn bộ.

 

[pixelart]

cám ơn bác HuyThang_BD

bác có thể giúp em cho em 1 file mẫu tương ứng với cái bài viết bên trên của em được không ạ... như vậy em dễ hiểu hơn... cám ơn bác nhiều

 

[SA_DQ]

Bạn đến đây tham khảo trong khi chờ kết quả cụ thể

http://www.giaiphapexcel.com/forum/...vài-thứ-về-Comment-xin-giới-thiệu-đến-các-bạn.

& chúc thành công.

 

[pixelart]

dạ, trong khi chờ kết quả em sẽ tham khảo topic đó, cám ơn anh

 

[sealand]

Bạn dùng sự kiện sheet Change để thay hoặc xoá Comment
Bạn tham khảo Code:

Option Explicit
Const Tinh = "15;Hai Phong;29;Ha Noi;30;Ha Noi;33;Ha Tay;17;Thai Binh;14;Quang Ninh"
'-----------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Tinhnao, i, ten
Tinhnao = Split(Tinh, ";")
On Error Resume Next
If Target.Column = 2 Then
If Trim(Target.Value) = "" Then
Target.Comment.Delete
Exit Sub
End If
ten = "Khong ro tinh."
For i = 0 To UBound(Tinhnao) Step 2
If Trim(Tinhnao(i)) = Left(Target, 2) Then
ten = Tinhnao(i + 1)
Exit For
End If
Next
Target.AddComment
Target.Comment.Text Text:="Bien so xe: " & ten
End If
End Sub

 

[pixelart]

hihi, đã làm được rồi, em cám ơn anh sealand nhiều lắm ^^