كيف تستبدل جميع الأرقام في الخلايا بـ X في إكسيل؟
كما هو موضح أدناه ، كيفية استبدال جميع الأرقام في الخلايا بـ x في Excel؟ ستساعدك الطريقة في هذه المقالة في حل المشكلة.
استبدل جميع الأرقام في الخلايا بـ x برمز VBA
استبدل جميع الأرقام في الخلايا بـ x برمز VBA
يمكن أن يساعدك رمز VBA التالي في استبدال جميع الأرقام في الخلايا المحددة بـ X في Excel. الرجاء القيام بما يلي.
1. حدد الخلايا التي تحتوي على الأرقام التي ستستبدلها بـ x ، ثم اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز VBA أدناه في نافذة التعليمات البرمجية.
رمز فبا: استبدل جميع الأرقام في النطاق المحدد بـ x في إكسيل
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 كما هو موضح أدناه في لقطة الشاشة.
مقالات ذات صلة:
- كيفية البحث عن واستبدال جميع الخلايا الفارغة برقم أو نص معين في إكسيل؟
- كيف تستبدل الفواصل بأسطر جديدة (Alt + Enter) في الخلايا في Excel؟
- كيفية استبدال فواصل الأسطر بـ BR في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!