Chào Thầy #Tuấn Ba
Mình có gặp một vấn đề:
1. File excel của mình có rất nhiều name ẩn, và link ẩn dưới dạng name, Mình không nhìn thấy nó trong mục Formulas => Name manager. vì vậy mình dùng đoạn code sau để nó HIỆN tất cả các name bị ẩn như sau:
Sub hienname()
Dim n As Name
For Each n In ActiveWorkbook.Names
n.Visible = True
Next
End Sub
2. Giờ mình muốn xóa các name KHÔNG CHỨA ký tự "Print" trong toàn bộ các Name trong Name manager thì code sẽ như thế nào ạ
3. Hoặc muốn chọn và xóa toàn bộ name trong Name manager thì code như thế nào ạ, mình thử nhiều cách mà ko dc
Nhờ thầy giúp đỡ
Chào bạn code xoá toàn bộ name range
Option Explicit
Sub DeleteNamedRanges()
Dim MyName As Name
For Each MyName In Names
If InStr(1, MyName.RefersTo, "=#NAME?") < 1 Then
MyName.Delete
End If
Next
End Sub
Vẫn không xóa hết được thầy ạ và Giờ mình muốn xóa các name KHÔNG CHỨA ký tự "Print" trong toàn bộ các Name trong Name manager thì code sẽ như thế nào ạ
Chào bạn bạn thử đẩy file của bạn lên mình thử nhé.
https://drive.google.com/file/d/1OeWX...
Link file đây thầy ạ
Chào bạn bạn muốn xoá hết thì dùng lệnh sau nhé:
Option Explicit
Sub DeleteNamedRanges()
Dim MyName As Name
On Error Resume Next
For Each MyName In Names
MyName.Delete
Next
End Sub
Cảm ơn thầy, em làm được rồi ạ
Chúc bạn học tốt cùng gitiho