Xin các pro chỉ giúp về addcomment. (1 người xem)

[hieunhan1]

Mình có 2 sheet, sheet1 la kí hiệu, sheet2 là chú thích, mình tạo 1 nút button khi nhấp vào đó thì sheet1 hiện lên Comment trong lời chú thích.

 

[ChanhTQ@]

http://www.giaiphapexcel.com/forum/showthread.php?t=432

Bạn hãy đến đó tham khảo trước xem ra răng!

 

[ndu96081631]

Mình có 2 sheet, sheet1 la kí hiệu, sheet2 là chú thích, mình tạo 1 nút button khi nhấp vào đó thì sheet1 hiện lên Comment trong lời chú thích.

Thử code này xem:

Sub AddCom()
  Dim Clls As Range
  On Error Resume Next
  With Sheet2.Range("C3").CurrentRegion
    For Each Clls In Application.InputBox("Chon vung ma ban muon Add Comment", Type:=8)
      Clls.Comment.Delete
      Clls.AddComment .Find(Clls, Lookat:=xlWhole)(, 2).Value
    Next
  End With
End Sub

Lần sau nhớ đưa file Excel 2003 cho dể dùng nhé

 

[hieunhan1]

Đúng ý em rồi, cảm ơn mấy huynh nha!!