Excel'de adlandırılmış aralığın içeriğini nasıl temizleyebilirim?
Bu kılavuz, Excel’de etkin çalışma sayfasındaki belirli bir adlandırılmış aralıktan veya tüm adlandırılmış aralıklardan içerikleri nasıl temizleyeceğinizi adım adım gösterir. VBA kullanarak, adlandırılmış aralıkları korurken içeriklerini hızlı ve verimli bir şekilde kaldırabilirsiniz.
Adlandırılmış aralığın içeriğini VBA koduyla temizleme
Adlandırılmış aralığın içeriğini VBA koduyla temizleme
Geçerli çalışma sayfasındaki belirli bir adlandırılmış aralığın 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, Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül seçeneğine 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 aşağıdaki VBA kodunu kullanı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. İçeriğini temizlemek istediğ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 tüm hücre içerikleri hemen temizlenir.
Etkin çalışma sayfasındaki tüm adlandırılmış aralıkların içeriğini temizlemek için aşağıdaki VBA kodunu kullanın.
VBA kodu 2: Excel'de Geçerli Çalışma Sayfası içindeki 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 Tamam düğmesine Kutools for Excel iletişim kutusunda tıklayın.
Ardından, tüm adlandırılmış aralıkların içerikleri Geçerli Çalışma Sayfası'ndan temizlenir.
İlgili makaleler:
- Excel'de VBA koduyla açılır kutunun içeriğini nasıl temizleyebilirim?
- Excel’de hücrelerdeki içerikleri ve biçimlendirmeyi aynı anda nasıl temizleyebilirim?
- Excel'de hücrelerdeki kısıtlı değerleri nasıl temizleyebilirim?
- Excel’de başka bir hücrenin değeri değiştiğinde belirtilen hücrelerin içeriğini nasıl temizleyebilirim?
- Excel çalışma kitabını açarken ve kapatırken belirtilen hücre içeriklerini nasıl temizleyebilirim?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar