Home »

Xóa tất cả các Defined Name trong Excel

Thứ Tư, 4 tháng 4, 2012
Trong Excel không có lệnh thực hiện yêu cầu của bạn mà phải tạo Macro để thực hiện công việc này cách thức như sau
  • Mở Excel
  • Bấm tổ hợp phím Alt-F11 để vào cửa sổ Visual Basic
  • Bấm menu Insert , chọn Module , bạn Copy theo nội dung dưới đây
Sub DeleteRangeNames()
    Dim nName As Name
    Dim lReply As Long
    
    For Each nName In Names
       
        nName.Delete
               
    Next nName
End Sub
 
  • Quay trở về Excel và chạy Macro có tên là DeleteRangeNames

Bạn cũng có thể tạo Macro với nội dung sau để hỏi có muốn xoá hay không
 
 
 Sub DeleteRangeNames()
    Dim nName As Name
    Dim lReply As Long
    
    For Each nName In Names
        lReply = MsgBox("Ten muon xoa : " & nName.Name & _
        " co vi tri tu : " & nName.RefersToRange.Address & " trong " & _
        nName.Parent.Name, vbYesNoCancel, "tuvantinhoc1088.com")
        
        If lReply = vbCancel Then
            Exit Sub
        ElseIf lReply = vbYes Then
            nName.Delete
        End If
        
    Next nName
End Sub
Tags:

Comments[ 0 ]


Đăng nhận xét