Excel'de bir metin kutusu yüzde olarak nasıl biçimlendirilir?

Önceki makalede, Excel'de para birimi olarak bir metin kutusundaki numarayı biçimlendirmenin bir VBA yöntemini tartıştık. İşte bu yazımızda, VBA yöntemi ile Excel'de yüzde olarak bir metin kutusundaki biçimlendirme numarasından da bahsedeceğiz.

Metin kutusunu VBA kodu ile yüzde olarak biçimlendirme

Metin kutusunu VBA kodu ile yüzde olarak biçimlendirme

Bir metin kutusunu VBA kodu ile yüzde olarak biçimlendirmek için lütfen aşağıdaki işlemleri yapın.

1. tık Geliştirici > Ekle > Metin Kutusu (ActiveX Kontrolü) çalışma sayfasına bir metin kutusu eklemek için. Ekran görüntüsüne bakın:

2. Metin kutusunu sağ tıklayın, ardından Kodu Görüntüle bağlam menüsünden.

3. Açılışta Uygulamalar için Microsoft Visual Basic penceresi, lütfen Kod penceresindeki orijinal kodu aşağıdaki VBA kodu ile değiştirin.

VBA kodu: Excel'de bir metin kutusunu yüzde olarak biçimlendirin

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

not: Lütfen TextBox1'i ihtiyacınıza göre metin kutusu adına değiştirin.

4. tık Tools > Referanslar. Sonra kontrol edin Microsoft VBScript Normal İfadeleri kutusu Referanslar - VBAProject iletişim kutusunu tıklayın ve OK buton. Ekran görüntüsüne bakın:

5. Tuşuna basın. Ara Toplam + Q çıkış tuşları Uygulamalar için Microsoft Visual Basic pencere.

6. Çalışma sayfasına döndüğünde lütfen tıklayın Geliştirici > Tasarım Modu Tasarım Modunu kapatmak için tekrar.

Şu andan itibaren, metin kutusuna sayı girerken ve herhangi bir hücreye tıklamak için imleci metin kutusunun dışına kaydırırken, bu sayılar otomatik olarak yüzde olarak biçimlendirilecektir.

İlgili yazılar:

• Excel'de bir metin kutusu para birimi olarak nasıl biçimlendirilir?
• Excel'de seçildiğinde bir metin kutusunun metnini otomatik olarak nasıl seçebilirim?
• Excel'de yazarken bir metin kutusu nasıl otomatik tamamlanır?
• 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?