Xóa Name rác.

[huynhcd29gtcc]

https://support.microsoft.com/vi-vn/office/%C4%91%C3%A3-t%C3%ACm-th%E1%BA%A5y-t%C3%AAn-%E1%BA% A9n-7934441b-9eda-4d6c-bd46-a11a2e148e7b
Dùng mã code này xóa

 

[huynhcd29gtcc]

Tôi dùng thử VirusMa croWarning nhưng vẫn không xóa được Thùng rác tên và vẫn phải xóa bằng tay. Tôi gửi kèm 2 tập tin dưới đây: book1.xls là tập tin gốc, book2.xls là tập tin được sử dụng VirusMa croWarning để xóa rác tên, mọi người kiểm tra dùm.

Đã xóa sạch bạn check nhé

 

[kienhv9991]

em tìm được đoạn code này để xoá name ẩn trong file nhưng khi tìm thấy name ẩn phải click "yes" để xác nhận xoá name, nhờ các anh chị sửa code giúp em để tự động xoá name ẩn mà không cần click "yes" để xác nhận xoá từng name không ạ. cảm ơn các anh chị nhiều.



Sub Remove_Hidden_Names()

' Dimension variables.
Dim xName As Variant
Dim Result As Variant
Dim Vis As Variant

' Loop once for each name in the workbook.
For Each xName In ActiveWorkbook.Names

'If a name is not visible (it is hidden)...
If xName.Visible = True Then
Vis = "Visible"
Else
Vis = "Hidden"
End If

' ...ask whether or not to delete the name.
Result = MsgBox(prompt:="Delete " & Vis & " Name " & _
Chr(10) & xName.Name & "?" & Chr(10) & _
"Which refers to: " & Chr(10) & xName.RefersTo, _
Buttons:=vbYesNo)

' If the result is true, then delete the name.
If Result = vbYes Then xName.Delete

' Loop to the next name.
Next xName

End Sub

 

[Hoàng Tuấn 868]

em tìm được đoạn code này để xoá name ẩn trong file nhưng khi tìm thấy name ẩn phải click "yes" để xác nhận xoá name, nhờ các anh chị sửa code giúp em để tự động xoá name ẩn mà không cần click "yes" để xác nhận xoá từng name không ạ. cảm ơn các anh chị nhiều.
Sub Remove_Hidden_Names()
' Dimension variables.
Dim xName As Variant
Dim Result As Variant
Dim Vis As Variant
' Loop once for each name in the workbook.
For Each xName In ActiveWorkbook.Names
'If a name is not visible (it is hidden)...
If xName.Visible = True Then
Vis = "Visible"
Else
Vis = "Hidden"
End If

' ...ask whether or not to delete the name.
Result = MsgBox(prompt:="Delete " & Vis & " Name " & _
Chr(10) & xName.Name & "?" & Chr(10) & _
"Which refers to: " & Chr(10) & xName.RefersTo, _
Buttons:=vbYesNo)

' If the result is true, then delete the name.
If Result = vbYes Then xName.Delete

' Loop to the next name.
Next xName
End Sub

Bạn thử xóa đoạn bôi đỏ xem sao.

 

[kienhv9991]

Bạn thử xóa đoạn bôi đỏ xem sao.

xoá đoạn đó thì nó không xoá name a ơi

 

[Hoàng Tuấn 868]

xoá đoạn đó thì nó không xoá name a ơi

Ở máy mình vẫn xóa bình thường mà. Bạn gửi file lên đây xem cụ thể thế nào.

 

[giaiphap]

xoá đoạn đó thì nó không xoá name a ơi

Phải chừa lại lệnh này nhé bạn.

xName.Delete

 

[Hoàng Tuấn 868]

Phải chừa lại lệnh này nhé bạn.

xName.Delete

Đúng rồi, em xóa hơi quá đà, xin cảm ơn anh.

Bài đã được tự động gộp: 9/11/21

xoá đoạn đó thì nó không xoá name a ơi

Bạn làm theo Anh Giaiphap ở bài #67 nhé, mình bôi đỏ hơi quá đà.

 

[kienhv9991]

Đúng rồi, em xóa hơi quá đà, xin cảm ơn anh.

Bài đã được tự động gộp: 9/11/21

Bạn làm theo Anh Giaiphap ở bài #67 nhé, mình bôi đỏ hơi quá đà.

e làm được rồi, tks các a

 

[Maika8008]

e làm được rồi, tks các a

Sub này xóa toàn bộ các Name có trong bảng tính chứ đâu phải xóa chỉ name ẩn. Nếu bảng tính có Name hữu dụng thì không nên dùng code này nhé.