Ana içeriğe atla

Excel'de tıklandığında metin kutusunun içeriği nasıl temizlenir?

Normalde, bir metin kutusunun (ActiveX Kontrolü) eski içeriğini temizlemek için, metin kutusuna girmeniz, tüm içeriği seçmeniz ve ardından Geri tuşuna veya Sil tuşuna basmanız gerekir. Bir metin kutusundaki tüm içeriği hızlı bir şekilde nasıl temizlerim? Bu makale, bir metin kutusunun içeriğini çift tıkladığınızda hızlıca temizlemek için bir VBA yöntemi gösterecektir.

VBA kodu ile tıklandığında metin kutusunun içeriğini temizle


VBA kodu ile tıklandığında metin kutusunun içeriğini temizle

Aşağıdaki VBA kodu, çift tıkladığınızda bir metin kutusunun içeriğini hızlı bir şekilde temizlemenize yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.

1. Çalışma sayfasında zaten bir metin kutusu varsa, lütfen tıklayarak Tasarım Modunu açın. Geliştirici > Tasarım Modu. Ekran görüntüsüne bakın:

Ya da tıklayarak bir metin kutusu ekleyebilirsiniz. Geliştirici > Ekle > Metin Kutusu (ActiveX Kontrolü). Ekran görüntüsüne bakın:

2. Metin kutusuna sağ tıklayın ve tıklayın Kodu Görüntüle bağlam menüsünden. Ekran görüntüsüne bakın:

3. Açılışta Uygulamalar için Microsoft Visual Basic penceresi, lütfen Kod penceresindeki orijinal VBA kodunu aşağıdaki VBA kodu ile değiştirin.

VBA kodu: Üzerine çift tıkladığınızda bir metin kutusunun içeriğini temizleyin

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  If Not iGblInhibitTextBoxEvents Then
    TextBox1.Value = ""
  End If
End Sub

not: Kodda, TextBox1, içeriğini temizleyeceğiniz metin kutusunun adıdır. Lütfen kendi başınıza değiştirin.

4. Tuşuna basın. Ara Toplam + Q çıkış tuşları Uygulamalar için Microsoft Visual Basic pencere.

5. Tasarım Modunu kapatın.

Şu andan itibaren, bir metin kutusuna çift tıklandığında içeriği hemen temizlenecektir.


İ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