Bỏ chú thích tại ô Excel (2 người xem)

[phucbi56]

Mình có 1 file mà có nhiều chú thích khg cần thiết tại các ô. Vậy làm sao bỏ mấy các chú thích này? Các bạn chỉ dùm. Thanks!

 

[Hai Lúa Miền Tây]

Mình có 1 file mà có nhiều chú thích khg cần thiết tại các ô. Vậy làm sao bỏ mấy các chú thích này? Các bạn chỉ dùm. Thanks!

Dùng code sau để xóa tất cả các comment trên tất cả các sheet:

Sub DeleteCM()
Dim sh As Worksheet, cm As Comment
For Each sh In ActiveWorkbook.Worksheets
For Each cm In sh.Comments
cm.Delete
Next
Next
End Sub

 

[MinhCong]

Mình có 1 file mà có nhiều chú thích khg cần thiết tại các ô. Vậy làm sao bỏ mấy các chú thích này? Các bạn chỉ dùm. Thanks!

Không biết có phải chú thích đó được tạo ra là comment hay không? Nếu là nó, Bạn bấm:
Bấm Ctrl+A
Bấm Ctrl+G
Chọn special -> Chọn comment -> OK
Lúc này những comment được chọn -> Bạn để dấu mũi tên con trỏ vào 1 trong những ô comment đã được chọn (Nhớ không click vào ô đó nhé)
-> Bấm phải chuột -> Chọn Delete comment.

 

[SA_DQ]

Thử dùng 1 trong hai cái ni

(1)

Sub DeleteCommentsInWorkSheet()
 Worksheets("GPE").Cells.SpecialCells(xlCellTypeLastCell).Delete
End Sub

(2)

Sub DeleteComentsInWorkBook()
 Dim Sh As Worksheet
 For Each Sh In Worksheets
   Sh.Cells.SpecialCells(xlCellTypeComments).Delete
 Next Sh
End Sub

 

[ndu96081631]

(1)

Sub DeleteCommentsInWorkSheet()
 Worksheets("GPE").Cells.SpecialCells(xlCellTypeLastCell).Delete
End Sub

(2)

Sub DeleteComentsInWorkBook()
 Dim Sh As Worksheet
 For Each Sh In Worksheets
   Sh.Cells.SpecialCells(xlCellTypeComments).Delete
 Next Sh
End Sub

Xóa Comment trên toàn bộ các sheet có thể làm bằng tay 1 lần duy nhất ---> Vậy cũng đâu cần vòng lập:

Sub Test()
  Sheets.Select
  Cells.Select
  Selection.ClearComments
End Sub

 

[phucbi56]

Thanks các bạn! Nhưng m khg biết dùng Code như thế nào để xoá comment? Nhân tiên cho m hỏi thêm: Minh muốn xoá hình nền ghi comment thì làm sao? (vì có mấy cái hình nền bikini, sếp coi thì chắc m bị đuổi việc luôn quá!)

 

[MinhCong]

Thanks các bạn! Nhưng m khg biết dùng Code như thế nào để xoá comment? Nhân tiên cho m hỏi thêm: Minh muốn xoá hình nền ghi comment thì làm sao? (vì có mấy cái hình nền bikini, sếp coi thì chắc m bị đuổi việc luôn quá!)

Cũng như bài số #3 ở trên Bạn bấm:
Bấm Ctrl+A
Bấm Ctrl+G
Chọn special -> Chọn -> OK
Lúc này những hình, textbox... được chọn -> Bạn bấm Delete

 

[ndcnbb]

Có nhiều comment sao ko xóa được. Tại họ ko có dung insert comment?????

 

[Hoàng Trọng Nghĩa]

Xóa Comment trên toàn bộ các sheet có thể làm bằng tay 1 lần duy nhất ---> Vậy cũng đâu cần vòng lập:

Sub Test()
  Sheets.Select
  Cells.Select
  Selection.ClearComments
End Sub

Nhưng nếu không dùng For thì không bao giờ dùng được Ẩn/ Hiện (Selection.Comment.Visible = False) đối với comment, ngoại trừ chọn vào đúng 1 ô có chứa comment!

 

[ndu96081631]

Nhưng nếu không dùng For thì không bao giờ dùng được Ẩn/ Hiện (Selection.Comment.Visible = False) đối với comment, ngoại trừ chọn vào đúng 1 ô có chứa comment!

Để ẩn hoặc hiện Comment cho tất cả các sheet là... quá dễ
Ẩn

Application.DisplayCommentIndicator = -1

Hoặc

Application.DisplayCommentIndicator = 0

Hiện:

Application.DisplayCommentIndicator = 1

 

[Hoàng Trọng Nghĩa]

Để ẩn hoặc hiện Comment cho tất cả các sheet là... quá dễ
Ẩn

Application.DisplayCommentIndicator = -1

Hoặc

Application.DisplayCommentIndicator = 0

Hiện:

Application.DisplayCommentIndicator = 1

Nhưng không thể chọn 1 vùng nhất định mà không dùng For được Thầy ơi.

 

[ndu96081631]

Nhưng không thể chọn 1 vùng nhất định mà không dùng For được Thầy ơi.

Sao không được chứ:

Sub DelComment()
  On Error Resume Next
  Selection.ClearComments
End Sub

 

[Hoàng Trọng Nghĩa]

Sao không được chứ:

Sub DelComment()
  On Error Resume Next
  Selection.ClearComments
End Sub

Không phải vậy Thầy ui, em nói là Ẩn và Hiện Comment trong một vùng nhất định chứ không phải xóa!

 

[ndu96081631]

Không phải vậy Thầy ui, em nói là Ẩn và Hiện Comment trong một vùng nhất định chứ không phải xóa!

Uh... quên...
Mà chủ đề này đang bàn vụ XÓA cơ mà, cái này thì còn có ý nghĩa sử dụng chứ ẨN HIỆN thì... chẳng mấy khi dùng

 

[Hoàng Trọng Nghĩa]

Uh... quên...
Mà chủ đề này đang bàn vụ XÓA cơ mà, cái này thì còn có ý nghĩa sử dụng chứ ẨN HIỆN thì... chẳng mấy khi dùng

Nhân tiện nên nối dài Thầy ơi, đường xá còn nối dài nữa là... hihihi ...

Trong một bảng biểu, đối với người mới sử dụng hoặc những chỗ thiết yếu cần ghi chú, em thường cho ghi chú hiện ra để người dùng chú ý. Song, khi người ta đã biết rồi thì chỉ bấm nút là ẩn đi, nhưng có khi lại quên, nếu xóa đi thì lấy gì mà nhớ, nên cho hiện ra lại.

 

[cutinh]

Không biết có phải chú thích đó được tạo ra là comment hay không? Nếu là nó, Bạn bấm:
Bấm Ctrl+A
Bấm Ctrl+G
Chọn special -> Chọn comment -> OK
Lúc này những comment được chọn -> Bạn để dấu mũi tên con trỏ vào 1 trong những ô comment đã được chọn (Nhớ không click vào ô đó nhé)
-> Bấm phải chuột -> Chọn Delete comment.

xuất sắc, cảm ơn nhiều