كيفية استبدال جميع الأرقام في الخلايا بـ "x" في Excel؟

في Excel، قد ترغب في استبدال الأرقام في الخلايا بـ "x" لتعتيم البيانات الحساسة، أو لتوحيد التنسيق، أو لمنع العمليات الحسابية، أو للإشارة إلى القيم المفقودة/غير المكتملة. ستقودك هذه المقالة عبر حل بسيط باستخدام كود VBA لتحقيق ذلك بسرعة وسهولة.

استبدال جميع الأرقام في الخلايا بـ "x" باستخدام كود VBA

استبدال جميع الأرقام في الخلايا بـ "x" باستخدام كود VBA

يمكن أن يساعدك الكود التالي من VBA على استبدال جميع الأرقام في الخلايا المحددة بـ "x" في Excel. يرجى القيام بما يلي.

1. حدد الخلايا التي تحتوي على أرقام ستستبدلها بـ x، ثم اضغط على مفتاحي Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر فوق إدراج > وحدة. ثم قم بنسخ كود VBA أدناه في نافذة الكود.

كود VBA: استبدال جميع الأرقام في النطاق المحدد بـ "x" في Excel

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. اضغط على مفتاح F5 لتشغيل الكود. بعد ذلك يمكنك رؤية أن جميع الأرقام في الخلايا المحددة تم استبدالها بـ x كما هو موضح في لقطة الشاشة أدناه.

مقالات ذات صلة:

• كيفية البحث عن واستبدال جميع الخلايا الفارغة برقم أو نص معين في Excel؟
• كيفية استبدال الفواصل بسطور جديدة (Alt + Enter) في الخلايا في Excel؟
• كيفية استبدال فواصل الأسطر بـ br في Excel؟