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 Sub3. 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 Sub3. 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?
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin