Hỏi về lỗi sửa name khi coppy sheet

Liên hệ QC

Binbo2020

Thành viên tích cực
Tham gia
10/11/11
Bài viết
955
Được thích
961
Mình có mấy file bị lỗi bắt sửa name khi coppy thành sheet mới mặc dù đã vào Name manager xóa hết name rác đi rồi. Mọi người ai gặp rồi chỉ mình xem còn ở chỗ nào chưa xóa nữa không nhỉ
1605758839694.png1605758876359.png
 

File đính kèm

  • vidu.xlsx
    29 KB · Đọc: 8
Còn nhiều lắm
Mã:
Sub UnhideAllNames()
Dim S As Object, N As Name
For Each N In ThisWorkbook.Names
    N.Visible = True
Next
For Each S In ThisWorkbook.Sheets
    For Each N In S.Names
        N.Visible = True
    Next
Next
End Sub
 
Còn nhiều lắm
Mã:
Sub UnhideAllNames()
Dim S As Object, N As Name
For Each N In ThisWorkbook.Names
    N.Visible = True
Next
For Each S In ThisWorkbook.Sheets
    For Each N In S.Names
        N.Visible = True
    Next
Next
End Sub
Cám ơn bạn nhiều hóa ra còn những name ẩn nữa. Cho mình hỏi thêm có hiện được name ẩn bằng thao tác không hay bắt buộc phải dùng VBA
 
Web KT
Back
Top Bottom