İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Bir mətn qutusunu Exceldə faiz olaraq necə formatlaşdırmaq olar?

Əvvəlki məqalədə, Excel-də valyuta kimi mətn qutusuna nömrəni formatlaşdırma metodunu müzakirə etdik. Bu yazıda, VBA metodu ilə Excel-də bir ədəddə mətn qutusunun nömrəsini formatlaşdırmaq barədə danışacağıq.

Bir mətn qutusunu VBA kodu ilə faiz kimi formatlaşdırın


Bir mətn qutusunu VBA kodu ilə faiz kimi formatlaşdırın


VBA koduyla faiz olaraq bir mətn qutusunu formatlaşdırmaq üçün xahiş edirik.

1. klik Developer > Taxmaq > Text Box (ActiveX Control) iş qutusuna bir mətn qutusu əlavə etmək. Ekran görüntüsünə baxın:

2. Mətn qutusuna sağ basın və sonra basın Kodları baxın kontekst menyusundan.

3. Açılışda Proqramlar üçün Microsoft Visual Basic Pəncərədə, kodun aşağıdakı kodunu VBA kodu ilə əvəz edin.

VBA kodu: Exceldə bir mətn qutusunu yüzdə olaraq formatlaşdırın

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

Qeyd: Xahiş etdiyiniz mətn qutusuna TextBox1 dəyişikliyin.

4. klik Tools > References. Sonra yoxlayın Microsoft VBScript Regular Expressions qutusunda Referanslar - VBAProject informasiya qutusuna basın və basın OK düyməsini basın. Ekran görüntüsünə baxın:

5. Basın Dayandırmaq + Q çıxmaq üçün düymələr Proqramlar üçün Microsoft Visual Basic pəncərə.

6. İş səhifəsinə qayıtdıqda, klikləyin Developer > Dizayn Moda yenidən Dizayn rejimi söndürmək üçün.

İndi mətn qutusuna nömrələri daxil edərkən və hər hansı bir hüceyrə vurmaq üçün imleci mətn qutusuna köçürdükdə, bu rəqəmlər yüzdə avtomatik olaraq formatlanır.


Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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.