Excel'de hücrelerdeki tüm sayıları "x" ile nasıl değiştirebilirim?

Excel'de, hassas verileri maskelemek, biçimlendirmeyi standartlaştırmak, hesaplamaları önlemek veya eksik/tamamlanmamış değerleri belirtmek için hücrelerdeki sayıları "x" ile değiştirmek isteyebilirsiniz. Bu makale, bunu hızlı ve kolay bir şekilde gerçekleştirmek için basit bir VBA kod çözümüyle size yol gösterecektir.

VBA kodu ile hücrelerdeki tüm sayıları "x" ile değiştirin

VBA kodu ile hücrelerdeki tüm sayıları "x" ile değiştirin

Aşağıdaki VBA kodu, Excel'de seçili hücrelerdeki tüm sayıları "x" ile değiştirmenize yardımcı olabilir. Lütfen aşağıdaki adımları izleyin.

1. x ile değiştireceğiniz sayıları içeren hücreleri seçin ve ardından Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA kodunu Kod penceresine kopyalayın.

VBA kodu: Seçili aralıktaki tüm sayıları Excel'de "x" ile değiştirin

Sub ReplaceNoX()
 Dim cell As Object
 Dim val As String
 Dim i As Integer
 Dim n As String
 Application.ScreenUpdating = False
 For Each cell In Selection
 If IsNumeric(cell.Value) Then
 val = cell.Text
 For i = 1 To Len(val)
 n = Mid(val, i, 1)
 If "0" <= n And n <= "9" Then
 Mid(val, i, 1) = "x"
 End If
 Next
 cell.Formula = val
 End If
 Next
 Application.ScreenUpdating = True
 End Sub

3. Kodu çalıştırmak için F5 tuşuna basın. Ardından, aşağıdaki ekran görüntüsünde gösterildiği gibi, seçili hücrelerdeki tüm sayıların x ile değiştirildiğini görebilirsiniz.

İlgili makaleler:

• Excel'de tüm boş hücreleri belirli bir sayı veya metinle nasıl bulup değiştirebilirim?
• Excel'de hücrelerdeki virgülleri yeni satırlarla (Alt + Enter) nasıl değiştirebilirim?
• Excel'de satır sonlarını br ile nasıl değiştirebilirim?