Ana içeriğe atla

Birleşik giriş kutusunun içeriğini Excel'de VBA kodu ile nasıl temizleyebilirim?

Normalde, Giriş Aralığı liste verilerini temizleyerek bir birleşik giriş kutusunun içeriğini temizleyebilirsiniz. Ancak bir Excel çalışma sayfasındaki tüm birleşik giriş kutularının içeriğini temizlemeye ne dersiniz? Bu makale, yalnızca birleşik giriş kutusunun içeriğini temizlemenize değil, aynı zamanda bir Excel çalışma sayfasındaki tüm birleşik giriş kutularının içeriğini de temizlemenize yardımcı olmak için iki VBA kodu hazırlamaktadır.

Birleşik giriş kutusunun içeriğini VBA koduyla kolayca temizleyin


Birleşik giriş kutusunun içeriğini VBA koduyla kolayca temizleyin

Aşağıdaki iki VBA kodu, bir birleşik giriş kutusunun içeriğini veya etkin çalışma sayfasındaki tüm birleşik giriş kutuları temizlemenize yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.

1. Çalışma sayfasında bir açılır kutunun içeriğini temizlemeniz gerekir, lütfen Ara Toplam + F11 tuşlarını aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından, VBA kodunu Kod penceresine kopyalayın.

VBA 1: Çalışma sayfasındaki bir açılan kutunun içeriğini temizleyin

Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
    .ListFillRange = ""
End With
End Sub

not: Kodda, "Açılır 2", içeriğini temizleyeceğiniz birleşik giriş kutusunun adıdır. Lütfen kendi başınıza değiştirin.

VBA 2: Etkin çalışma sayfasındaki tüm birleşik giriş kutularının içeriğini temizleyin

Sub ClearComboBox()
    Dim xOle As OLEObject
    Dim xDrop As DropDown
    Application.ScreenUpdating = False
    For Each xOle In ActiveSheet.OLEObjects
        If TypeName(xOle.Object) = "ComboBox" Then
            xOle.ListFillRange = ""
        End If
    Next
    For Each xDrop In ActiveSheet.DropDowns
        xDrop.ListFillRange = ""
    Next
    Application.ScreenUpdating = True
End Sub

3. Tuşuna basın. F5 kodunu çalıştırmak için tuşuna veya Çalıştır düğmesine tıklayın.

Ardından, aşağıda gösterilen ekran görüntüsü gibi, belirtilen birleşik giriş kutusunda veya etkin çalışma sayfasındaki tüm birleşik giriş kutularında içeriklerin temizlendiğini görebilirsiniz:

not: VBA kodları hem Combo Box'a (Form Control) hem de Combo Box'a (ActiveX Control) uygulanabilir.


İlgili yazılar:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • 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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations