Code Macro Xóa Define Name Trong Excel
Có thể bạn quan tâm
- Trang chủ Có gì mới Hoạt động gần nhất Tác giả
- Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
- Video
Video về Excel Video về tin học khác Tin tức về tin học chung - Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
- Tài nguyên Đánh giá mới nhất Tìm tài nguyên
- Đóng góp
Tìm kiếm
Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Tìm kiếm Tìm nâng cao…- Tìm bài viết mới
- Tìm theo chuyên mục
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
- Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc
- Trang chủ
- Diễn đàn
- Các Add-ins cho excel
- Thread starter Thread starter khanhvc2003
- Ngày gửi Ngày gửi 21/9/12
Người dùng đang xem chủ đề này
Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) Kkhanhvc2003
Thành viên mới 
Tham gia 10/3/08 Bài viết 34 Được thích 6 Mình có file excel có nhiều define name trong đó. Bạn nào có code macro để xoá hết các define name cho mình xin với. Xin cám ơn. File đính kèm
- Define name.rar Define name.rar 29.8 KB · Đọc: 246
Hoàng Trọng Nghĩa
Chuyên gia GPE 
Thành viên BQT Moderator Tham gia 17/8/08 Bài viết 8,662 Được thích 16,725 Giới tính Nam Sub XoaName() Dim N as name For each N in activeworkbook.names N.Delete Next End Sub Bạn thử code này xem. K khanhvc2003
Thành viên mới 
Tham gia 10/3/08 Bài viết 34 Được thích 6 Hoàng Trọng Nghĩa đã viết: Sub XoaName() Dim N as name For each N in activeworkbook.names N.Delete Next End Sub Bạn thử code này xem. Nhấp chuột vào đây để mở rộng...Cám ơn bạn đã trả lời. Mình đã thử rồi nhưng các define name vẫn còn sờ sờ trong đó nên mình có úp luôn file lên để được trợ giúp.
Hai Lúa Miền Tây
❆❆❆❆❆❆❆❆
Thành viên BQT Administrator Tham gia 18/3/08 Bài viết 8,313 Được thích 15,880 Giới tính Nam Nghề nghiệp Làm ruộng.Hoàng Trọng Nghĩa đã viết: Sub XoaName() Dim N as name For each N in activeworkbook.names N.Delete Next End Sub Bạn thử code này xem. Nhấp chuột vào đây để mở rộng...Đối với những name cứng đầu, không thể xóa được theo code này đâu anh nhé.
ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981 Hai Lúa Miền Tây đã viết: Đối với những name cứng đầu, không thể xóa được theo code này đâu anh nhé. Nhấp chuột vào đây để mở rộng...Được nhưng phải kiên nhẫn: Dùng code này: PHP: Sao chép. Sub DelNames() Dim N As Name On Error Resume Next With ActiveWorkbook For Each N In .Names N.Delete Next MsgBox .Names.Count End With End Sub - Chạy code xong, để ý MsgBox - Đóng và lưu file - Mở lên và chạy lại code ---> Để ý MsgBox sẽ thấy số name có giảm - Tiếp tục đóng và lưu file.. rồi lại mở file và chạy code vân vân... đến khi sạch thì thôi ------------- Để công việc nhẹ nhàng hơn, ta sửa code thế này: PHP: Sao chép. Sub Auto_Open() Dim N As Name On Error Resume Next Application.DisplayAlerts = False With ActiveWorkbook For Each N In .Names N.Delete Next MsgBox .Names.Count If .Names.Count Then .Close True Application.DisplayAlerts = True End With End Sub Xong! Lần chỉnh sửa cuối: 21/9/12
Hoàng Trọng Nghĩa
Chuyên gia GPE 
Thành viên BQT Moderator Tham gia 17/8/08 Bài viết 8,662 Được thích 16,725 Giới tính Nam ndu96081631 đã viết: Được nhưng phải kiên nhẫn: Dùng code này: PHP: Sao chép. Sub DelNames() Dim N As Name On Error Resume Next With ActiveWorkbook For Each N In .Names N.Delete Next MsgBox .Names.Count End With End Sub - Chạy code xong, để ý MsgBox - Đóng và lưu file - Mở lên và chạy lại code ---> Để ý MsgBox sẽ thấy số name có giảm - Tiếp tục đóng và lưu file.. rồi lại mở file và chạy code vân vân... đến khi sạch thì thôi ------------- Để công việc nhẹ nhàng hơn, ta sửa code thế này: PHP: Sao chép. Sub Auto_Open() Dim N As Name On Error Resume Next Application.DisplayAlerts = False With ActiveWorkbook For Each N In .Names N.Delete Next MsgBox .Names.Count If .Names.Count Then .Close True Application.DisplayAlerts = True End With End Sub Xong! Nhấp chuột vào đây để mở rộng...Trước tiên khi chép cái Aut
khanhvc2003
Thành viên mới 
Tham gia 10/3/08 Bài viết 34 Được thích 6 ndu96081631 đã viết: Được nhưng phải kiên nhẫn: Dùng code này: PHP: Sao chép. Sub DelNames() Dim N As Name On Error Resume Next With ActiveWorkbook For Each N In .Names N.Delete Next MsgBox .Names.Count End With End Sub - Chạy code xong, để ý MsgBox - Đóng và lưu file - Mở lên và chạy lại code ---> Để ý MsgBox sẽ thấy số name có giảm - Tiếp tục đóng và lưu file.. rồi lại mở file và chạy code vân vân... đến khi sạch thì thôi ------------- Để công việc nhẹ nhàng hơn, ta sửa code thế này: PHP: Sao chép. Sub Auto_Open() Dim N As Name On Error Resume Next Application.DisplayAlerts = False With ActiveWorkbook For Each N In .Names N.Delete Next MsgBox .Names.Count If .Names.Count Then .Close True Application.DisplayAlerts = True End With End Sub Xong! Nhấp chuột vào đây để mở rộng...ấy chà, đã là code thì làm sao phải gọn lẹ chứ thế này có lẽ là chậm hơn xoá tay rồi. huhu
Excel Công Cụ Tuyệt Vời Của Bạn
Thành viên tích cực

Tham gia 25/9/09 Bài viết 1,573 Được thích 1,278 Giới tính Nam Nghề nghiệp Thợ hồ. khanhvc2003 đã viết: ấy chà, đã là code thì làm sao phải gọn lẹ chứ thế này có lẽ là chậm hơn xoá tay rồi. huhu Nhấp chuột vào đây để mở rộng...Chời ơi là chời, name ít thì xóa tay, cần gì code. Nếu có hàng trăm, nghìn name rác, thử hỏi cái nào nhanh hơn. Nhờ giúp mà sao không có chút gì mang ơn.
vanle33
Thành viên gạo cội



Tham gia 30/10/08 Bài viết 5,975 Được thích 4,014 Giới tính Nam khanhvc2003 đã viết: Mình có file excel có nhiều define name trong đó. Bạn nào có code macro để xoá hết các define name cho mình xin với. Xin cám ơn. Nhấp chuột vào đây để mở rộng...Bạn dùng Excel 2007 để xóa các name đó đi. Được đó Bạn nhấn Ctrl+F3 và chọn các name cần xóa trong Filter Bạn thử đi
Hoàng Trọng Nghĩa
Chuyên gia GPE 
Thành viên BQT Moderator Tham gia 17/8/08 Bài viết 8,662 Được thích 16,725 Giới tính Nam khanhvc2003 đã viết: ấy chà, đã là code thì làm sao phải gọn lẹ chứ thế này có lẽ là chậm hơn xoá tay rồi. huhu Nhấp chuột vào đây để mở rộng...Bạn muốn xóa lẹ, chỉ dùng Excel2007 trở lên thì sẽ lẹ hơn, tuy nhiên do file của bạn bị nhiễm virus nên có rất nhiều name bị ẩn, bạn phải cho hiện hình lên trước: Sub hienname() Dim n As Name For Each n In ActiveWorkbook.Names n.Visible = True Next End Sub Sau đó bấm Ctrl+F3 để hiện hộp name, bạn chọn name đầu tiên, sau đó giữ shift và chọn name cuối cùng nó sẽ phủ khối toàn bộ name, sau đó bấm vào nút Delete là xóa hết ngay lập tức!
ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981 khanhvc2003 đã viết: ấy chà, đã là code thì làm sao phải gọn lẹ chứ thế này có lẽ là chậm hơn xoá tay rồi. huhu Nhấp chuột vào đây để mở rộng...Thì bạn cứ thử xóa bằng tay xem có nhanh hơn không? Nếu nhanh hơn thì cứ dùng.. tay vậy Ẹc... Ẹc... ------------
Hoàng Trọng Nghĩa đã viết: Sau đó bấm Ctrl+F3 để hiện hộp name, bạn chọn name đầu tiên, sau đó giữ shift và chọn name cuối cùng nó sẽ phủ khối toàn bộ name, sau đó bấm vào nút Delete là xóa hết ngay lập tức! Nhấp chuột vào đây để mở rộng...Với cái file quỷ này thì dù dùng Excel 2007 hay 2010, xóa được 1 lần toàn bộ thì name nó vẫn.. cứ còn Thử xem thì biết Lần chỉnh sửa cuối: 21/9/12
Hoàng Trọng Nghĩa
Chuyên gia GPE 
Thành viên BQT Moderator Tham gia 17/8/08 Bài viết 8,662 Được thích 16,725 Giới tính Nam ndu96081631 đã viết: Thì bạn cứ thử xóa bằng tay xem có nhanh hơn không? Nếu nhanh hơn thì cứ dùng.. tay vậy Ẹc... Ẹc... ------------ Với cái file quỷ này thì dù dùng Excel 2007 hay 2010, xóa được 1 lần toàn bộ thì name nó vẫn.. cứ còn Thử xem thì biết Nhấp chuột vào đây để mở rộng...ĐÚNG! Trước mắt thấy bị xóa hết, nhưng thoát hộp Name ra rồi mở lại, nó vẫn còn trơ trơ! Cho nên chịu khó giải quyết ĐÓNG-MỞ thôi!
ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981 Có 1 cách bắt chước theo bài xóa Style này: http://www.giaiphapexcel.com/forum/...-Formating-Style-cứng-đầu&p=380671#post380671 Tức là: - Mở file - Save As thành đuôi .xlsm - Đóng file - Đổi đuôi thành .zip - Mở file zip, duyệt thư mục xl và copy file workbook.xml ra Desktop - Mở file workbook.xml bằng Notepad - Tìm từ khóa definedNames ---> Xóa từ chuổi <definedNames> đến chuổi </definedNames> cuối cùng tìm thấy ---> Tức ở giữa cặp từ khóa này cũng xóa sạch - Xong, lưu file workbook.xml rồi kéo file trả lại vào file .zip - Đổi đuôi file .zip thành .xlsm - Mở file và kiểm tra ---------------- Nói có vẻ dài dòng chứ làm chỉ trong vòng 30s là xong! K khanhvc2003
Thành viên mới 
Tham gia 10/3/08 Bài viết 34 Được thích 6 Nếu như các file đó do mình làm ra hoặc mình sử dụng thì đơn giản rồi. Bên cty nhận cái file đó từ 1 công ty khác gửi khoảng 300 người cty mình, rồi mỗi người chỉnh lại chuyển mail lòng vòng. Bây giờ hầu như toàn cty rồi, thỉnh thoảng có một số người không mở được. Các file excel định dạng 2003. Mình cũng dùng tools VirusMacroWarning nhưng vẫn không thành (nó cho xoá, cho lưu lại nhưng mở lại thì nó lại còn) Để khắc phục mình phải làm như sau: Dùng excel 2007 mở lên vào manage name xoá hết name đi, và save as với định dạng 2007 mới được chứ nếu lưu đè lên file 2003 thì mở ra nó còn lại. Nhưng khổ nổi là ở cty mình có hơn một nữa (400 users) dùng excel 2003. Ý tưởng của mình là xin code xoá Define name một cách hoàn hảo rồi làm add-ins, sau đó đứng trên server áp xuống tất cả các máy con một lần luôn. Nếu khi mở excel lên có Define name thì xoá luôn mình không cần phải sửa từng file của từng máy. Cám ơn mọi người đã chia sẽ. ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,981 khanhvc2003 đã viết: Ý tưởng của mình là xin code xoá Define name một cách hoàn hảo rồi làm add-ins, sau đó đứng trên server áp xuống tất cả các máy con một lần luôn. Nếu khi mở excel lên có Define name thì xoá luôn mình không cần phải sửa từng file của từng máy. Cám ơn mọi người đã chia sẽ. Nhấp chuột vào đây để mở rộng...Dám cá với bạn là KHÔNG CÓ CODE NÀO GỌI LÀ HOÀN HẢO CẢ! Gặp những name "cứng đầu" code cũng đành chịu thôi Tôi đang nghĩ ý tưởng xây dựng code dựa trên thao tác của bài #13 nhưng còn gặp nhiều khó khăn quá K
khanhvc2003
Thành viên mới 
Tham gia 10/3/08 Bài viết 34 Được thích 6 ndu96081631 đã viết: Dám cá với bạn là KHÔNG CÓ CODE NÀO GỌI LÀ HOÀN HẢO CẢ! Gặp những name "cứng đầu" code cũng đành chịu thôi Tôi đang nghĩ ý tưởng xây dựng code dựa trên thao tác của bài #13 nhưng còn gặp nhiều khó khăn quá Nhấp chuột vào đây để mở rộng...Bạn rất Bờ Rồ và nhiệt tình, mình đã đọc nhiều bài viết của bạn, rất bổ ích. Chúc bạn sớm tìm ra giải pháp để build code hoàn hảo. Diễn đàn khá phong phú và giúp ích rất nhiều người ít biết nhiều về code như tôi. hihi. Lần nữa thành thật cám ơn Bờ Rồ
iamcuong
Cám ơn GPE
Tham gia 17/7/10 Bài viết 155 Được thích 27ndu96081631 đã viết: Để công việc nhẹ nhàng hơn, ta sửa code thế này: PHP: Sao chép. Sub Auto_Open() Dim N As Name On Error Resume Next Application.DisplayAlerts = False With ActiveWorkbook For Each N In .Names N.Delete Next MsgBox .Names.Count If .Names.Count Then .Close True Application.DisplayAlerts = True End With End Sub Xong! Nhấp chuột vào đây để mở rộng...Dạ em cám ơn Thầy ạ. Code của thầy chạy hoàn hảo ạ. Em có 1 file tầm 20 sheet, cũng tầm 500 name, mà chạy code 1 lượt là xong hết. Chúc Thầy thật nhiều sức khỏe ạ.
Phan Thanh Quang
Thành viên hoạt động


Tham gia 6/10/17 Bài viết 122 Được thích 17 Giới tính Nam Thật sự mới tham gia diễn đàn GPE được 1 tuần, mà đã được các thành viên xử lý giúp cho 4 lỗi rồi. Diễn đàn rất bổ ích. Híc, các bạn bày cách thao tác dán code này ntn với, mình không biết bắt đầu thao tác từ đâu cả. Đi sâu vào các ngôn ngữ lập trình của excel mình k biết gì hết trơn hết. befaint
|||||||||||||
Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840Phan Thanh Quang đã viết: các bạn bày cách thao tác dán code này ntn với, mình không biết bắt đầu thao tác từ đâu cả. Đi sâu vào các ngôn ngữ lập trình của excel mình k biết gì hết trơn hết. Nhấp chuột vào đây để mở rộng...Bạn đọc 2 bài sau: Bài 0. Kiến thức chung về VBA [URL='http://www.giaiphapexcel.com/diendan/threads/b%C3%A0i-1-t%E1%BA%A1o-macro.130530/']Bài 1. Tạo macro[/URL]
quocgiacan
-⍟-
Tham gia 22/3/08 Bài viết 3,392 Được thích 5,910 Giới tính NamPhan Thanh Quang đã viết: Thật sự mới tham gia diễn đàn GPE được 1 tuần, mà đã được các thành viên xử lý giúp cho 4 lỗi rồi. Diễn đàn rất bổ ích. Nhấp chuột vào đây để mở rộng..."5" lỗi chứ! Lỗi phạm Nội quy nữa! Chọc cho bạn vui thôi! Chúc bạn học tập vui với GPE.


befaint
|||||||||||||
Tham gia 6/1/11 Bài viết 14,600 Được thích 19,840quocgiacan đã viết: "5" lỗi chứ! Nhấp chuột vào đây để mở rộng...Cái lỗi hôm đó phải tính là 96 lỗi chứ anh. Tổng là 100 lỗi. Giờ phải đến tiết mục xử phạt rồi.
Phan Thanh Quang
Thành viên hoạt động


Tham gia 6/10/17 Bài viết 122 Được thích 17 Giới tính Nam quocgiacan đã viết: "5" lỗi chứ! Lỗi phạm Nội quy nữa! Chọc cho bạn vui thôi! Chúc bạn học tập vui với GPE.Gớm cái bạn này đặt tui vào chế độ theo dõi rồi à? Cảm ơn lời chúc của ban nhé!Nhấp chuột vào đây để mở rộng...
Phan Thanh Quang
Thành viên hoạt động


Tham gia 6/10/17 Bài viết 122 Được thích 17 Giới tính Nam befaint đã viết: Cái lỗi hôm đó phải tính là 96 lỗi chứ anh. Tổng là 100 lỗi. Giờ phải đến tiết mục xử phạt rồi.Mèng ời, bảng tính của bạn chắc bị lỗi rùi, hihi. HNhấp chuột vào đây để mở rộng...
hanhkhat2007
Thành viên mới 
Tham gia 13/9/18 Bài viết 17 Được thích 2 ndu96081631 đã viết: Được nhưng phải kiên nhẫn: Dùng code này: PHP: Sao chép. Sub DelNames() Dim N As Name On Error Resume Next With ActiveWorkbook For Each N In .Names N.Delete Next MsgBox .Names.Count End With End Sub - Chạy code xong, để ý MsgBox - Đóng và lưu file - Mở lên và chạy lại code ---> Để ý MsgBox sẽ thấy số name có giảm - Tiếp tục đóng và lưu file.. rồi lại mở file và chạy code vân vân... đến khi sạch thì thôi ------------- Để công việc nhẹ nhàng hơn, ta sửa code thế này: PHP: Sao chép. Sub Auto_Open() Dim N As Name On Error Resume Next Application.DisplayAlerts = False With ActiveWorkbook For Each N In .Names N.Delete Next MsgBox .Names.Count If .Names.Count Then .Close True Application.DisplayAlerts = True End With End Sub Xong! Nhấp chuột vào đây để mở rộng...Thầy có thể giúp em với trường hợp không mở được name manager không ạ? tức là ấn vào manager không ra hộp thoại. Chạy code của Thầy thì excel reset ạ Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Bài viết mới nhất
- huuthang_bd
- 30/12/13
- Xây dựng ứng dụng.
- levovantoan
- Thứ sáu lúc 23:25
- Giải thích, gỡ rối, xử lý lỗi công thức
- GPE-Trợ Lý
- Hôm qua, lúc 10:02
- Học tập Online
- PhanTuHuong
- 14/12/25
- Thư giãn
- hoangvucntt
- Thứ bảy lúc 10:16
- Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu
- Na7979
- Thứ bảy lúc 11:40
- Lọc và sắp xếp dữ liệu
- dieppk.nb92
- 14/12/25
- Hàm và công thức Excel
- kaoehtkid
- 15/12/25
- Những vấn đề chung
- HeSanbi
- 13/12/25
- Xử lý chuỗi ký tự
- Nguyenkhang2404
- 24/7/25
- Hàm và công thức Excel
- tiny1010
- 16/3/10
- Cấu trúc dữ liệu Excel và việc Xử lý dữ liệu
- Na7979
- Thứ sáu lúc 14:01
- Google Sheets
- Question Question
- duongnhuxuyen
- 12/12/25
- Lập Trình với Excel
- phamdinh.huy.aladin@gmail
- 15/12/25
- Hàm và công thức Excel
- Mr_Siro
- Thứ tư lúc 10:57
- Giải thích, gỡ rối, xử lý lỗi công thức
- ptthuongtn
- Thứ tư lúc 15:15
- Hàm và công thức Excel
- skygatevn
- Thứ tư lúc 11:59
- Hướng dẫn sử dụng các hàm trong Excel
- PhanTuHuong
- 10/12/25
- Câu lạc bộ hoạt động xã hội
- GPE-Trợ Lý
- 24/11/25
- Câu lạc bộ hoạt động xã hội
- Đã giải quyết
- HeSanbi
- 30/5/20
- Lập Trình với Excel
Thành viên có số lượng bài viết cao nhất tháng
- Maika8008 41
- thanthanhan 23
- dungpham01 19
- ongke0711 19
- Phan Thế Hiệp 17
- ptm0412 17
- eagle12 16
- nguyenanhtruong2409 16
- HUONGHCKT 12
- vic_it 11
- nhhnam 10
- pycckuu410 10
- dieppk.nb92 10
- Vũ Hải Sơn 9
- HeSanbi 9
- le_vis 8
- Gà Con yêu VBA 8
- bsbnhh 7
- duongnhuxuyen 7
- Hana2610 6
Thành viên có điểm tương tác cao nhất tháng
- Phan Thế Hiệp 86
- Maika8008 34
- thanthanhan 20
- ongke0711 17
- ptm0412 17
- HeSanbi 15
- dungpham01 11
- HUONGHCKT 9
- eagle12 9
- SA_DQ 9
- Cúc Hr 8
- dieppk.nb92 6
- Mr.hieudoanxd 5
- pycckuu410 5
- befaint 5
- Hoàng Tuấn 868 4
- Phuocam 4
- nguyenanhtruong2409 4
- nhhnam 2
- Gà Con yêu VBA 2
Thời gian đếm ngược.
000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025- Trang chủ
- Diễn đàn
- Các Add-ins cho excel
- Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…
Từ khóa » Xóa Hết Define Name Trong Excel
-
Làm Cách Nào để Xóa Nhanh Tất Cả Các Phạm Vi đã đặt Tên Trong Excel?
-
Cách Xóa Tên Vùng đã đặt Trong Excel
-
Xóa Tất Cả Các Defined Name Trong Excel - Infocom
-
Xóa Define Name Trong Excel
-
Xóa Đặt Tên Vùng Trong Excel (Define Name), Cách ... - Haiermobile
-
Xóa Define Name Trong Excel 2010
-
Hướng Dẫn Cách Xóa Phạm Vi được đặt Tên Trong Excel
-
Cách Xóa Tên Vùng Đã Đặt Trong Excel (Define Name), Chức Năng ...
-
Cách Xóa Name Manager Trong Excel - Hỏi Đáp
-
Hướng Dẫn Cách Xóa Name Rác Trong Excel Có Hình ảnh Minh Họa ...
-
Xóa Styles Rác Và Names Rác Trong Excel (tạo Một File Excel Nhẹ ...
-
Hướng Dẫn Cách Xóa Tên Vùng Dữ Liệu (Define Name) Trong Excel
-
Xóa Tất Cả Các Defined Name Trong Excel | PDF - Scribd
-
Xóa Name Rác Trong Excel / TOP #10 Xem Nhiều Nhất & Mới Nhất ...