Mừng Sinh Nhật GPE 11: sáng 25/6 Hà Nội; 1/7 Huế/Đà Nẵng; Trưa 2/7 TPHCM

Làm sao để xóa các names trong Excel

Thảo luận trong 'Lập Trình với Excel' bắt đầu bởi dangtien792002, 24 Tháng một 2007.

  1. dangtien792002

    dangtien792002 Thành viên mới

    Trong Files Excel của mình đang sử dụng có quá nhiều names. Làm cách nào để xóa hết tất cả các names này một cách nhanh nhất. Vì bình thường mình làm như sau: insert=>name=>define, sau đó mình chọn từng name và xóa, cách này làm rất lâu. Bạn nào biết có thể chỉ giúp mình với.+-+-+-+
     
    Chỉnh sửa lần cuối bởi điều hành viên: 24 Tháng một 2007
  2. LearnExcel

    LearnExcel Thành viên thường trực

    dùng macro

    nhấn Alt+F11 mở IDE > Insert >Module, gõ vào
    Mã:
    Sub delname()
        For Each n In ThisWorkbook.Names
            n.Delete
        Next
    End Sub
    
    Chạy bằng cách nhấn F5 hay từ Alt + F8

    Chúc thành công!
     
  3. hmtungcda

    hmtungcda Thành viên mới

    tôi đã làm thử như trên rồi nhưng thấy bao lỗi ở dòng n.Delete
    Bạn khắc phục dùm tôi nhé. Thanks!
     
  4. ThuNghi

    ThuNghi Hãy cho rồi sẽ nhận!

  5. Đào Việt Cường

    Đào Việt Cường Cu Tí sành điệu

    Dear all,
    --------
    Nếu bạn sử dụng Excel phiên bản 2007 thì vấn đề này không đáng bận tâm.
    Còn nếu bạn phải lập trình thì có thể sửa lại một chút đoạn code của bạn LeanExcel như sau:
    Mã:
    [LEFT]Sub Names_DeleteAll()
    [COLOR=darkgreen]'Khai báo biến n kiểu Name:[/COLOR]
    Dim n As Name
    For Each n In ThisWorkbook.Names
       n.Delete
    Next
    End Sub[/LEFT]
    
    Bạn cũng có thể cải tiến thủ tục để chỉ xoá đi những Name bị lỗi #REF hay một dấu hiệu bất kỳ do bạn đưa vào.
     
  6. Pansy_flower

    Pansy_flower ...nợ người, nợ đời...

  7. caduoi

    caduoi Thành viên mới

    Cảm ơn bạn đã chỉ dẫn nhưng rất tiếc nó chỉ xóa được các tên do mình tạo ra. CÒn file bị nhiễm vius nó tạo ra những cái hết sức lạ thì nó không xóa được ví dụ :
    nó có tên là h3_ và giá trị của nó là

    ='\\May2\c\HOA\Dinh muc\[DMUC.XLS]Sheet2'!#REF!
    bạn có thể giải quyết giùm mình được không
     

Chia sẻ trang này