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

or

Bagaimana untuk memformat kotak teks sebagai peratusan dalam Excel?

Dalam artikel sebelumnya, kami telah membincangkan kaedah pemformatan VBA dalam kotak teks sebagai mata wang dalam Excel. Di sini dalam artikel ini, kita akan bercakap mengenai nombor format dalam kotak teks sebagai peratusan dalam Excel dengan kaedah VBA juga.

Format kotak teks sebagai peratusan dengan kod VBA


Format kotak teks sebagai peratusan dengan kod VBA


Sila lakukan seperti berikut untuk memformat kotak teks sebagai peratusan dengan kod VBA.

1. klik Pemaju > Memasukkan > Kotak Teks (Kawalan ActiveX) untuk memasukkan kotak teks ke dalam lembaran kerja. Lihat tangkapan skrin:

2. Klik kanan kotak teks, kemudian klik Lihat Kod dari menu konteks.

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

Kod VBA: format kotak teks sebagai peratusan dalam Excel

Private Sub TextBox1_LostFocus()
    Dim xReg As New RegExp
    Dim xMatches As MatchCollection
    Dim xMatch As Match
    Dim xText As String
    Dim xReplace As String
    On Error Resume Next
    Application.ScreenUpdating = False
    xText = Me.TextBox1.Text
    xText = Replace(xText, "%", "")
    With xReg
        .Global = True
        .Pattern = "([^0-9]+\d+)|(\d{1,})"
        Set xMatches = .Execute(xText)
        For Each xMatch In xMatches
            xReplace = xReplace & xMatch.Value & "%"
        Next
    End With
    xText = xReplace & Mid(xText, Len(xReplace) - xMatches.Count + 1)
    Me.TextBox1.Text = xText
    Application.ScreenUpdating = True
End Sub

Nota: Sila ubah TextBox1 ke nama kotak teks berdasarkan keperluan anda.

4. klik Alatan > Rujukan. Kemudian periksa Ekspresi Biasa VBScript Microsoft kotak di Rujukan - VBAProject kotak dialog, dan klik OK butang. Lihat tangkapan skrin:

5. Tekan butang Alt + Q kunci untuk keluar Microsoft Visual Basic untuk Aplikasi tingkap.

6. Apabila ia kembali ke lembaran kerja, sila klik Pemaju > Mod Reka Bentuk sekali lagi untuk mematikan Mod Reka Bentuk.

Mulai sekarang, apabila memasukkan nombor ke dalam kotak teks dan mengalihkan kursor keluar kotak teks untuk mengklik mana-mana sel, nombor ini akan diformatkan sebagai peratusan 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.