Excel'de seçildiğinde bir metin kutusunun metnini otomatik olarak nasıl seçebilirim?
Bir metin kutusundaki (ActiveX Kontrolü) metinleri silmek için, öncelikle metin kutusundaki tüm metinleri seçmeniz gerekir. Bu makale, Excel'deki metin kutusuna tıklandığında bir metin kutusunun tüm metinlerinin otomatik olarak seçilmesinden bahsediyor.
VBA kodu ile seçildiğinde bir metin kutusunun metnini otomatik seçme
VBA kodu ile seçildiğinde bir metin kutusunun metnini otomatik seçme
Excel'de metin kutusunu seçerken bir metin kutusunun tüm metinlerini otomatik olarak seçmek için lütfen aşağıdaki VBA kodunu uygulayın.
1. Bir çalışma sayfasının metin kutusu içermesi için metin kutusunu otomatik olarak seçeceksiniz, 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: Bir metin kutusunun metinlerini üzerine tıkladığınızda otomatik olarak seçin
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, Metin Kutusu1 içeriğini temizleyeceğiniz metin kutusunun adıdır. Lütfen kendi başınıza değiştirin.
2. Birden çok metin kutusunun metinlerini üzerlerine tıklarken otomatik olarak seçmek için, lütfen yukarıdaki koddaki iki bölüm arasına aşağıdaki VBA kodunu ekleyin. Ve TextBox2'yi gerekli metin kutunuzun adına 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. 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, metin kutusuna tıklandığında, metin kutusundaki tüm metinler otomatik olarak seçilecektir.
İlgili yazılar:
- Excel'de yazarken bir metin kutusu nasıl otomatik tamamlanır?
- Excel'de tıklandığında metin kutusunun içeriği nasıl temizlenir?
- Birden çok hücrenin metinlerini Excel'deki bir metin kutusuna nasıl birleştirebilirim?
- Kullanıcıların Excel'de giriş yapmasını önlemek için metin kutusunda düzenlemeyi nasıl devre dışı bırakabilirim?
- Excel'de bir metin kutusu yüzde olarak nasıl biçimlendirilir?
En İyi Ofis Üretkenlik Araçları
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...
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!