Excel'de bir metin kutusu seçildiğinde içindeki metni nasıl otomatik olarak seçebilirim?
Bir metin kutusundaki (ActiveX Denetimi) metni silmek için öncelikle kutunun içeriğinin tamamını seçmeniz gerekir. Bu makale, Excel’de bir metin kutusuna tıklandığında otomatik olarak tüm metnin seçilmesini konu alır.
VBA koduyla bir metin kutusu seçildiğinde metnini Otomatik Seçim
VBA koduyla bir metin kutusu seçildiğinde metnini Otomatik Seçim
Excel'de bir metin kutusuna tıklandığında otomatik olarak tüm metnin seçilmesini sağlamak için aşağıdaki VBA kodunu uygulayın.
1. Metnini Otomatik Seçim yapacağınız metin kutusunu içeren çalışma sayfası için, Tasarım Modunu etkinleştirmek üzere Geliştirici > Tasarım Modu seçeneğine tıklayın. Ekran görüntüsüne bakın:
Ya da bir metin kutusu eklemek için Geliştirici > Ekle > Metin Kutusu (ActiveX Denetimi) seçeneğine tıklayabilirsiniz. Ekran görüntüsüne bakın:
2. Metin kutusuna sağ tıklayın ve bağlam menüsünden Kodu Görüntüle seçeneğine tıklayın. Ekran görüntüsüne bakın:
3. Açılan Microsoft Visual Basic for Applications penceresinde, Kod penceresindeki orijinal VBA kodunu aşağıdaki VBA koduyla değiştirin.
VBA kodu: Bir metin kutusuna tıklandığında otomatik olarak metnini seçer
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
Call SelTextBox(Me.TextBox1.Object)
End Sub
Sub SelTextBox(xTextBox As Object)
With xTextBox
.SelStart = 0
.SelLength = Len(.Text)
End With
End SubNotlar:
1. Kodda, TextBox1, içeriğini temizleyeceğiniz metin kutusunun adıdır. Lütfen bunu kendi metin kutunuzun adına göre güncelleyin.
2. Birden fazla metin kutusuna tıklandığında metinlerinin otomatik olarak seçilmesini sağlamak için yukarıdaki kodda iki bölüm arasına aşağıdaki VBA kodunu ekleyin. TextBox2’yi, ihtiyacınız olan metin kutusunun adına göre güncelleyin.
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Call SelTextBox(Me.TextBox2.Object)
End Sub4. Alt+Q tuşlarına basarak Microsoft Visual Basic for Applications penceresinden çıkın.
5. Tasarım Modunu kapatın.
Artık metin kutusuna tıkladığınızda, içindeki tüm metin otomatik olarak seçilecek!
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
İlgili makaleler:
- Excel'de yazarken bir metin kutusunu nasıl otomatik olarak tamamlarsınız?
- Excel'de bir metin kutusuna tıklandığında içeriğini nasıl temizlersiniz?
- Excel'de birden fazla hücrenin metnini tek bir metin kutusunda nasıl birleştirebilirsiniz?
- Excel'de kullanıcı girişini engellemek için metin kutusundaki düzenlemeyi nasıl devre dışı bırakırsınız?
- Excel'de bir metin kutusunu yüzde olarak nasıl biçimlendirirsiniz?
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