Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana cara auto memilih teks kotak teks apabila ia dipilih dalam Excel?

Untuk memadam teks dalam kotak teks (Kawalan ActiveX), pertama, anda perlu memilih semua teks di dalam kotak teks. Artikel ini bercakap mengenai memilih semua teks teks secara automatik apabila mengklik kotak teks di Excel.

Auto pilih teks kotak teks apabila ia dipilih dengan kod VBA


Auto pilih teks kotak teks apabila ia dipilih dengan kod VBA


Sila gunakan kod VBA di bawah untuk memilih semua teks kotak teks secara automatik apabila memilih kotak teks dalam Excel.

1. Untuk lembaran kerja mengandungi kotak teks anda akan membuat teksnya dipilih secara automatik, sila hidupkan Mod Reka Bentuk dengan mengklik Pemaju > Mod Reka Bentuk. Lihat tangkapan skrin:

Atau anda juga boleh memasukkan kotak teks dengan mengklik Pemaju > Memasukkan > Kotak Teks (Kawalan ActiveX). Lihat tangkapan skrin:

2. Klik kanan kotak teks dan klik Lihat Kod dari menu konteks. Lihat tangkapan skrin:

3. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi tingkap, sila ganti kod VBA asal dalam tetingkap Kod dengan kod VBA di bawah.

Kod VBA: Pilih teks teks secara automatik apabila mengklik padanya

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

Nota:

1. Dalam kod itu, TextBox1 adalah nama kotak teks yang anda akan kosongkan kandungannya. Sila ubah kepada anda sendiri.

2. Untuk secara automatik memilih teks berbilang kotak teks apabila mengklik padanya, sila tambahkan kod VBA di bawah kedua-dua bahagian di dalam kod di atas. Dan ubah TextBox2 ke nama kotak teks yang diperlukan.

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. Tekan butang Alt + Q kunci untuk keluar Microsoft Visual Basic untuk Aplikasi tingkap.

5. Matikan Mod Reka Bentuk.

Mulai sekarang, apabila mengklik pada kotak teks, semua teks di dalam kotak teks akan dipilih secara automatik.


Related articles:


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.