Excel'de adlandırılmış aralığın içeriğini nasıl temizlersiniz?

Bu kılavuz, Excel'de etkin çalışma sayfasındaki belirli bir adlandırılmış aralık veya tüm adlandırılmış aralıklardan içeriği temizleme yöntemini açıklamaktadır. VBA kullanarak, içeriklerini verimli bir şekilde kaldırırken adlandırılmış aralıkları koruyabilirsiniz.

VBA kodu ile adlandırılmış aralığın içeriğini temizleme

VBA kodu ile adlandırılmış aralığın içeriğini temizleme

Geçerli çalışma sayfasındaki belirli bir adlandırılmış aralık veya tüm adlandırılmış aralıkların içeriğini temizlemek için lütfen aşağıdaki adımları izleyin.

1. İçeriğini temizlemek istediğiniz adlandırılmış aralığı içeren çalışma sayfasında, Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın. Ardından, aşağıdaki VBA kodunu Kod penceresine kopyalayın.

Çalışma sayfasındaki belirli bir adlandırılmış aralığın içeriğini temizlemek için lütfen aşağıdaki VBA kodunu uygulayın.

VBA Kodu 1: Excel'de belirli bir adlandırılmış aralığın içeriğini temizleme

Sub Clear_ActiveSheet_Name_Ranges()
    Dim xName As Name
    Dim xInput As String
    Dim xRg As Range
    On Error Resume Next
    xInput = Application.InputBox("Enter the name of the named range you will clear contents from:", "KuTools For Excel", , , , , , 2)
    If xInput = "False" Then Exit Sub
    Application.ScreenUpdating = False
    Set xName = ActiveWorkbook.Names(xInput)
    If Not xName Is Nothing Then
         xName.RefersToRange.Clear
    End If
    Application.ScreenUpdating = True
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın.

4. Ardından bir Kutools for Excel iletişim kutusu açılır. Lütfen içeriğini temizleyeceğiniz adlandırılmış aralığın adını girin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

Belirtilen adlandırılmış aralıktaki hücrelerdeki tüm içerikler hemen temizlenecektir.

Etkin çalışma sayfasındaki tüm adlandırılmış aralıklardan içerikleri temizlemek için aşağıdaki VBA kodunu uygulayın.

VBA Kodu 2: Excel'deki etkin çalışma sayfasındaki tüm adlandırılmış aralıkların içeriğini temizleme

Sub Clear_All_ActiveSheet_Name_Ranges()
    Dim xRange As Range
    Dim xName  As Name
    Dim xReSponse As Long
    On Error Resume Next
    xReSponse = MsgBox("For clearing contents of all named ranges of active sheet in " & ActiveWorkbook.Name _
            & Chr(10) & "('OK' to Delete, 'Cancel' to Quit.)", vbOKCancel, "KuTools For Excel")
    If xReSponse = 2 Then
        MsgBox "User chose to cancel.", vbOKOnly, "KuTools For Excel"
        Exit Sub
    End If
    For Each xName In ActiveWorkbook.Names
        Set xRange = Nothing
        Set xRange = Intersect(ActiveSheet.UsedRange, xName.RefersToRange)
        If Not xRange Is Nothing Then xRange.Clear
    Next xName
    Application.ScreenUpdating = True
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın, ardından aşağıdaki ekran görüntüsünde gösterildiği gibi Kutools for Excel iletişim kutusundaki Tamam düğmesine tıklayın.

Ardından, etkin çalışma sayfasındaki tüm adlandırılmış aralıkların içerikleri temizlenecektir.

İlgili makaleler:

• Excel'de VBA kodu ile birleşik giriş kutusunun içeriğini nasıl temizlersiniz?
• Excel'deki hücrelerde aynı anda içerikleri ve biçimlendirmeyi nasıl temizlersiniz?
• Excel'deki hücrelerde kısıtlı değerleri nasıl temizlersiniz?
• Excel'de başka bir hücrenin değeri değişirse belirli hücre içeriklerini nasıl temizlersiniz?
• Excel çalışma kitabında açılış ve çıkışta belirli hücre içeriklerini nasıl temizlersiniz?