Excel'de bir metin kutusu seçildiğinde metinlerini otomatik olarak nasıl seçersiniz?

Bir metin kutusundaki (ActiveX Kontrol) metinleri silmek için, önce metin kutusunun içindeki tüm metinleri seçmeniz gerekir. Bu makale, Excel'de bir metin kutusuna tıklandığında metin kutusundaki tüm metinlerin otomatik olarak seçilmesinden bahsediyor.

VBA kodu ile bir metin kutusu seçildiğinde metinlerini otomatik olarak seçme

VBA kodu ile bir metin kutusu seçildiğinde metinlerini otomatik olarak seçme

Lütfen aşağıdaki VBA kodunu uygulayarak, Excel'de bir metin kutusu seçildiğinde metin kutusundaki tüm metinlerin otomatik olarak seçilmesini sağlayın.

1. Metinlerin otomatik olarak seçileceği metin kutusunu içeren çalışma sayfası için, Geliştirici > Tasarım Modu'na tıklayarak Tasarım Modunu açın. Ekran görüntüsüne bakın:

Veya Geliştirici > Ekle > Metin Kutusu (ActiveX Kontrol) öğesine tıklayarak bir metin kutusu ekleyebilirsiniz. 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'ye tıklayın. Ekran görüntüsüne bakın:

3. Açılan Microsoft Visual Basic for Applications penceresinde, lütfen Kod penceresindeki orijinal VBA kodunu aşağıdaki VBA koduyla değiştirin.

VBA kodu: Üzerine tıklandığında bir metin kutusunun metinlerini otomatik olarak seçme

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 Sub

Notlar:

1. Kodda, TextBox1, içeriğini temizleyeceğiniz metin kutusunun adıdır. Lütfen bunu kendi metin kutunuzla değiştirin.

2. Birden fazla metin kutusunun üzerine tıklandığında metinlerini otomatik olarak seçmek için, lütfen yukarıdaki kodun iki bölümü arasına aşağıdaki VBA kodunu ekleyin. Ve TextBox2'yi ihtiyacınız olan metin kutusunun adıyla değiştirin.

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 Sub

4. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + Q tuşlarına basın.

5. Tasarım Modunu kapatın.

Artık bir metin kutusuna tıklandığında, metin kutusunun içindeki tüm metinler otomatik olarak seçilecektir.

Kutools AI ile Excel Sihirini Keşfedin

• Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
• Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
• VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
• Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
• Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayın!

İlgili makaleler:

• Excel'de yazarken bir metin kutusunu otomatik tamamlama nasıl yapılır?
• Excel'de tıklandığında bir metin kutusunun içeriğini nasıl temizlersiniz?
• Excel'de birden fazla hücrenin metinlerini bir metin kutusunda birleştirme nasıl yapılır?
• Excel'de kullanıcı girişini önlemek için bir metin kutusunda düzenleme nasıl devre dışı bırakılır?
• Excel'de bir metin kutusunu yüzde olarak biçimlendirme nasıl yapılır?