Excel'deki duruma göre hücre içeriği nasıl temizlenir?
Bazen, hücre belirli bir değer içeriyorsa hücre içeriğini temizleme, başka bir sütunda boş hücreler varsa hücre içeriğini temizleme veya hücre içeriğini belirli arka plan rengiyle temizleme gibi Excel'deki koşullara dayalı olarak hücre içeriğini temizlemeniz gerekebilir. Bu makale, bu görevleri hızlı ve kolay bir şekilde çözmek için bazı püf noktaları tanıtacaktır.
VBA kodu ile hücre değerine göre Hücre İçeriğini Temizle
Değer VBA koduyla belirli bir değerden büyük veya küçükse tüm satırları temizleyin
Kullanışlı bir özellik ile hücre değerine göre hücre veya satır içeriğini temizleyin
VBA koduyla başka bir hücre boşsa tüm satırları temizle
VBA koduyla arka plan rengine göre hücre içeriğini temizle
VBA kodu ile hücre değerine göre Hücre İçeriğini Temizle
Örneğin, aşağıdaki veri aralığına sahipsiniz, şimdi “Hoodie” olan hücre içeriklerini temizlemek istiyorsunuz, aşağıdaki VBA kodu size bir iyilik yapabilir.
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: Hücre belirli bir değere eşitse hücre içeriğini temizle
Sub ClearContents()
'Updateby ExtendOffice
Dim xRng As Range
Dim xCell As Range
Dim xText As String
Set xRng = Application.Range("A2:A12")
xText = "Hoodie" 'Change this text to your own
For Each xCell In xRng
If xCell.Value = xText Then
xCell.clearContents
End If
Next xCell
End Sub
3. Daha sonra, tuşuna basın. F5 tuşuna basın ve “Hoodie” metnine sahip tüm hücreler bir kerede silinir, ekran görüntüsüne bakın:
Değer VBA koduyla belirli bir değerden büyük veya küçükse tüm satırları temizleyin
D sütunundaki değer 300'den büyük veya küçükse tüm satır içeriğini temizlemek için aşağıdaki veri aralığına sahip olduğunuzu varsayalım. Burada, onu tamamlamak için bir VBA kodu oluşturacağım.
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: Hücre değeri belirli bir değerden büyük veya küçükse tüm satırları temizle
Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
Set xRowRg = xRg.Rows.Item(xF)
xBol = False
For Each xCell In xRowRg.Cells
If Application.IsNumber(xCell.Value) Then
If xCell.Value > xStrValue Then
xBol = True
Exit For
End If
End If
Next
If xBol Then
xRowRg.EntireRow.clearContents
End If
Next
End Sub
3. Daha sonra tuşuna basın. F5 tuşuna basın ve D sütunundaki değer 300'den büyükse tüm satır içeriği temizlenir, ekran görüntüsüne bakın:
Kullanışlı bir özellik ile hücre değerine göre hücre veya satır içeriğini temizleyin
Eğer varsa Kutools for Excel, Onun ile Belirli Hücreleri Seçin özelliği, belirli bir değere göre hücreleri veya satırları seçebilir ve ardından hücre içeriğini bir kerede silebilirsiniz.
Kurduktan sonra Kutools for Excellütfen şunu yapın:
1. Hücre veya satır içeriğini temel alarak temizlemek istediğiniz değerlere sahip veri aralığını seçin ve ardından Kutools > seç > Belirli Hücreleri Seçin, ekran görüntüsüne bakın:
2. Açılan Belirli Hücreleri Seçin iletişim kutusunda aşağıdaki işlemleri yapın:
- Tıkla Hücre or Tüm satır seçmek istediğiniz;
- Altındaki kriterleri belirtin Belirli tür bölüm ihtiyacınız kadar. Burada D sütunundaki değeri 300'den büyük olan satırları seçmek istiyorum.
3. Sonra tıklayın Ok düğmesini tıklayın ve değeri 300'den büyük olan tüm satırlar seçilir. Şimdi, hücre içeriğini silmek için klavyedeki Sil tuşuna basmanız yeterlidir, ekran görüntüsüne bakın:
VBA kodlu boş hücre içeriyorsa, bir aralıktaki satır verilerini temizle
Bu durumda, veri aralığındaki hücre herhangi bir boşluk içeriyorsa, aşağıdaki ekran görüntüsü gibi aralıktaki satır verilerini temizlemek istiyorum.
Bu görevi tamamlamak için lütfen aşağıdaki VBA kodunu uygulayın:
1. basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve ardından aşağıdaki kodu yapıştırın. modül Pencere.
VBA kodu: Boş hücre içeriyorsa satır verilerini temizle
Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub
3. Daha sonra, tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve boş hücreli satır verileri, ihtiyacınız olan belirli aralıkta bir kerede temizlenir.
VBA koduyla arka plan rengine göre hücre içeriğini temizle
Belirli bir arka plan rengiyle doldurulmuş hücreleri temizlemek için aşağıdaki VBA kodunu kullanabilirsiniz.
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. tıklayın Ekle > modülve ardından aşağıdaki kodu yapıştırın. modül Pencere.
VBA kodu: Arka plan rengine göre hücre içeriğini temizle
Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Interior.Color = RGB(252, 228, 214) Then
xcell.Clearcontents
End If
Next
End Sub
3. Ve sonra F5 tuşuna basın ve belirtilen arka plan rengine sahip hücre içeriği hemen temizlenir. Ekran görüntüsüne bakın:
En İyi Ofis Üretkenliği Araçları
Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır
- Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
- Hücreleri / Satırları / Sütunları Birleştirme ve Verilerin Saklanması; Bölünmüş Hücre İçeriği; Yinelenen Satırları ve Toplam / Ortalamayı Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
- Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
- Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
- Sık Kullanılan ve Hızlı Eklenen Formüller, Aralıklar, Grafikler ve Resimler; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
- Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
- Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
- Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
- Pivot Tablo Gruplaması hafta numarası, haftanın günü ve daha fazlası ... Kilidi Açılmış, Kilitli Hücreleri Göster farklı renklerle; Formülü / Adı Olan Hücreleri Vurgulayın...
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
