Lỗi comment bị chìa ra do comment lúc filter

Liên hệ QC

DangQuyNhocly

Thành viên mới
Tham gia
13/8/18
Bài viết
11
Được thích
0
Anh chị giúp em sửa lỗi Commnet chìa ra cách ô comment này vơi,
Em có filter lại những dòng cần để comment , Nhưng khi bung ra thì có những ô comment nó bị lỗi chìa ra cách xa ô khi chỉnh sửa Comment,
Gặp phải ô bị lỗi thì phải xóa commment đi tạo lại,

Anh chị có cách nào sửa lỗi này trên toàn bộ bảng giúp em với,

File đính kèm VD bị lỗi ô: S202 , AE202,

Em cảm ơn ạ !!
 

File đính kèm

Bạn thử dùng code này.
Mã:
Sub Macro1()
On Error Resume Next
Dim Rng As Range, Cll As Range
Set Rng = Cells.SpecialCells(xlCellTypeComments)
For Each Cll In Rng.Cells
    With Cll.Comment.Shape
        .Top = Cll.Top
        .Left = Cll.Left + Cll.Width
    End With
Next
End Sub
 
Bạn thử dùng code này.
Mã:
Sub Macro1()
On Error Resume Next
Dim Rng As Range, Cll As Range
Set Rng = Cells.SpecialCells(xlCellTypeComments)
For Each Cll In Rng.Cells
    With Cll.Comment.Shape
        .Top = Cll.Top
        .Left = Cll.Left + Cll.Width
    End With
Next
End Sub
Dạ , em cảm ơn anh nhiều nhiều, em làm được rồi :) :) hihi
 
Web KT

Bài viết mới nhất

Back
Top Bottom