Note: The other languages of the website are Google-translated. Back to English

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
not: Yukarıdaki kodda, A2: A12 hücre içeriğini temizlemek istediğiniz veri aralığıdır, metin "Kapüşonlu svetşört”, silmek istediğiniz belirli değerdir. Lütfen bunları kendinize göre değiştirin.

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
not: Yukarıdaki kodda, D2: D12 veri aralığı, satırları temel alarak temizlemek istediğiniz belirli değeri içerir; 300 belirli değerdir; en > komut dosyasındaki karakter xCell.Value > xStrValue ise daha büyük anlamına gelir, daha azını kullanın, onu değiştirin < İhtiyacınız olan karakter.

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çmek > 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:

İpuçları: Kullanabileceğiniz başka birçok kriter vardır, lütfen aşağıdaki ekran görüntüsü gibi iletişim kutusundan kendi durumunuzu belirtin:

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
not: Yukarıdaki kodda, A2: D12 veri aralığı, hücre içeriğini temizlemek istediğiniz boş hücreleri içerir.

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
not: Yukarıdaki kodda, A2: D12 kullanmak istediğiniz veri aralığı, RGB (252, 228, 214) Hücreleri temel alarak temizlemek istediğiniz belirli renktir, kullanarak arka plan renginin RGB modunu çıkarabilirsiniz. Boya bilgisayarınızda programlayın.

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:



  • 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...
kte sekmesi 201905
  • 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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (0)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar