Gitiho contest
Cùng gitiho contest chinh phục kiến thức, khẳng định bản thân với hệ thống bài test phong phú, đầy đủ các chủ đề để bạn khám phá.
Gitiho for leading business
Tối ưu và đơn giản hóa hoạt động đào tạo tại doanh nghiệp. Sẵn sàng nền tảng, nội dung đào tạo cho tất cả các vị trí, bộ phận. Ứng dụng MIỄN PHÍ ngay vào doanh nghiệp chỉ với MỘT click.
Đã được tin tưởng sử dụng bởi các doanh nghiệp
#Tuấn BaMình có gặp một vấn đề 1 File excel của mình có rất nhiều name
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 đỡ
7 câu trả lời
181 lượt xem
vỗ tay
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ỗ tay
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 ạ
vỗ tay
Chào bạn bạn thử đẩy file của bạn lên mình thử nhé.
vỗ tay
https://drive.google.com/file/d/1OeWX...
Link file đây thầy ạ
vỗ tay
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
vỗ tay
Cảm ơn thầy, em làm được rồi ạ
vỗ tay
Chúc bạn học tốt cùng gitiho
vỗ tay
Câu hỏi liên quan
Top
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở Kế hoạch và Đầu tư TP. Hà Nội
Giấy phép mạng xã hội số: 588, cấp bởi Bộ Thông tin và Truyền thông