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 Subnot: 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?
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!
