Hỏi về lỗi sửa name khi coppy sheet (1 người xem)

[Binbo2020]

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ỉ

 

[huuthang_bd]

Còn nhiều lắ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

 

[Nhattanktnn]

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ỉ
View attachment 249621View attachment 249622

Sau chạy code chắc bạn biết cách chọn xóa nhiều name một lần rồi nhỉ

 

[Binbo2020]

Còn nhiều lắ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

 

[huuthang_bd]

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

Excel không tạo sẵn nút nào để hide/unhide name cả.

 

[Binbo2020]

Sau chạy code chắc bạn biết cách chọn xóa nhiều name một lần rồi nhỉ

Uh mình ít dùng VBA toàn mở ra bấm name đầu giữ shift bấm name cuối xong delete