Xoá dữ liệu trong hộp Name

  • Thread starter nmh_phocu
  • Ngày gửi
N

nmh_phocu

User đã bị cấm truy cập
20/12/05
245
0
0
Hà nội
#1
Cứu mình với
Hộp Define/Name trong Insert ở Excel có rất rất nhiều tên của dãy linh tinh, xoá từng cái mất rất nhiều thời gian, mình cũng chẳng hiểu từ đâu nó có. Giúp mình với : - Xoá tất cả đi để mình lập cái mới.
- Lý do gì mà nhiều cái tinh linh thế, do minh ấn phím lăng nhăng à
Giúp khẩn cấp
Cảm ơn nhiều mũ n lần ( n= vô cùng)
 
adam_tran

adam_tran

Steel Partner
17/5/05
1,373
32
48
41
Goooogle
#2
Bạn có thể vào đây để download Add-In NameManager về để dùng.

http://webketoan.com/thuvien/index.php?subcat=23&PHPSESSID=300f68170b3fcccc347a8e8b24d9776a

Hoặc bạn có thể chạy macro sau:

Sub DelAllName()
Dim nName As Name
On Error Resume Next
If MsgBox("Ban muon xoa het Name khong?", vbYesNo) = vbYes Then
For Each nName In ActiveWorkbook.Names
nName.Delete
Next nName
End If
End Sub

Bạn lưu ý là file xuất hiện những Name lạ, tên như chữ ả rập v...v thì coi chừng file đã bị virus.
Chúc thành công!
 
Sửa lần cuối:
N

nmh_phocu

User đã bị cấm truy cập
20/12/05
245
0
0
Hà nội
#3
adam_tran nói:
Bạn có thể vào đây để download Add-In NameManager về để dùng.

http://webketoan.com/thuvien/index.php?subcat=23&PHPSESSID=300f68170b3fcccc347a8e8b24d9776a

Hoặc bạn có thể chạy macro sau:

Sub DelAllName()
Dim nName As Name
On Error Resume Next
If MsgBox("Ban muon xoa het Name khong?", vbYesNo) = vbYes Then
For Each nName In ActiveWorkbook.Names
nName.Delete
Next nName
End If
End Sub

Bạn lưu ý là file xuất hiện những Name lạ, tên như chữ ả rập v...v thì coi chừng file đã bị virus.
Chúc thành công!
Vâng, có thể file của em đã bị nhiễm vi rút, em không diệt được con này, em đã phải sống chung với lũ lâu lắm rồi.
Em đã thử xoá một vài cái nhưng không xoá được.
Lại đành phải sống chung với lũ thôi
Cảm ơn bác nhiều nhiều nha
Em của bác
 

Thành viên trực tuyến

Không có thành viên trực tuyến.

Xem nhiều