Xóa toàn bộ Name trong file excel

[Phanhanhdai]

Hôm qua em lên mạng tìm code xóa toàn bộ Name trong file excel em đang làm. Nhưng mà khi copy về chạy (Atl+F8) nó vẫn không bị xoá. Có anh chị nào có code chuẩn không cho em xin một bản (em muốn xóa toàn bộ kể cả Name lỗi và các name không lỗi để em làm lại từ đầu).

 

[ThuNghi]

Hôm qua em lên mạng tìm code xóa toàn bộ Name trong file excel em đang làm. Nhưng mà khi copy về chạy (Atl+F8) nó vẫn không bị xoá. Có anh chị nào có code chuẩn không cho em xin một bản (em muốn xóa toàn bộ kể cả Name lỗi và các name không lỗi để em làm lại từ đầu).

Dùng Excel 2007 portable mở file trên, nhấn Ctr F3 và dele toàn bộ name. Hay là tìm trên diễn đàn Name Manager hay là ASAP ultilities. Nhưng trước khi đó phải unhide All sheet và xóa những sh rỗng.

 

[Trần Văn Bình]

Bạn vào trang http://www.bluesofts.net

 

[Phanhanhdai]

Tìm code xóa hết các Name trong excel trong office 2003

Mình tìm mãi mà không load được địa chỉ ấy ra. Bạn load phần code lên cho mình xin được không. Mình cảm ơn nhiều

 

[ndu96081631]

Mình tìm mãi mà không load được địa chỉ ấy ra. Bạn load phần code lên cho mình xin được không. Mình cảm ơn nhiều

Trong khi chờ đợi bạn có thể cho biết bạn đã dùng code nào để xóa name không? Post lên xem thử! Rất có thể code đã bị lổi gì đó nên nó không xóa được name cũng không chừng!

 

[hung007007]

Sub Macro1()
Dim myname As Name
For Each myname In ActiveWorkbook.Names
myname.Delete
Next
End Sub

Bạn dùng thử macro này nhé, chú ý là ... đi sạch đấy

 

[salam]

Bạn dùng thử macro này nhé, chú ý là ... đi sạch đấy

Bạn nên cho thêm dòng:

Sub Macro1()
Dim myname As Name
[COLOR=#000000][COLOR=#0000bb] On Error Resume Next[/COLOR][/COLOR]
For Each myname In ActiveWorkbook.Names
        myname.Delete
    Next
End Sub

 

[Phanhanhdai]

Xóa nhưng không hết name

Mình đã sử dụng code trên để xóa. Dung lượng file nhẹ hẳn đi từ 500KB xuống còn 100KB nhưng khi mình mở ra thì một số Name vẫn còn và mình không xóa thủ công được. Không hiểu vì sao? Các bạn có biết tại sao không (trước kia mình cài dự toán XD) Name đó là do chương trình xây dựng tạo thành.

 

[hung007007]

Bạn nên cho thêm dòng:

Sub Macro1()
Dim myname As Name
[COLOR=#000000][COLOR=#0000bb]On Error Resume Next[/COLOR][/COLOR]
For Each myname In ActiveWorkbook.Names
        myname.Delete
    Next
End Sub

Tớ rất ghét cái dòng xanh kia, chỉ dùng khi ... bất khả kháng

Name vẫn còn và mình không xóa thủ công được

Bạn xem lại xem (Trong Insert/Name/Define) xem nó refer đến đâu ?

 

[Phanhanhdai]

Mình đã sử dụng rồi nhưng vẫn không xóa được Name

Mình đã dùng code bạn cho rồi mà vẫn không xóa được name hết được. Bạn có code nào xóa triệt để không?

 

[ndu96081631]

Tớ rất ghét cái dòng xanh kia, chỉ dùng khi ... bất khả kháng

Tôi cũng ghét như bạn vậy! Nhưng cái vụ xóa name này không có nó không được!
Có 1 vài name dạng đặc biệt sẽ không cho bạn đụng đến, và khi chương trình dò đến name này nó sẽ lập tức báo lổi!
Đây cũng là nguyên nhân khiến cho các bạn không thể xóa sạch hết các name
Tôi đang thắc mắc: Nếu dùng code không thể xóa hết name, sao các bạn không mở file bằng Excel2007 mà xóa! 1 nhát hết sạch

 

[nokiano258vn]

Nếu có Sheet nào đặt pass trong Protection thì bạn phải bỏ pass đi nhé