كيف يمكنني البحث عن حرف واستبداله بسرعة بتنسيق فوقي في Excel؟
البحث والاستبدال بتنسيق فوقي باستخدام دالة البحث والاستبدال
البحث والاستبدال بتنسيق فوقي باستخدام VBA
البحث والاستبدال بتنسيق فوقي باستخدام دالة البحث والاستبدال
في الواقع، يمكنك استخدام ميزة البحث والاستبدال للعثور على النص المطلوب واستبداله بتنسيق فوقي.
1. حدد النطاق الذي تريد تطبيق البحث والاستبدال عليه، ثم اضغطCtrl + H لفتح مربع حوارالبحث والاستبدال.
2. في مربع حوارالبحث والاستبدال، انقر على علامة التبويباستبدال، ثم أدخل النص الذي تريد العثور عليه في مربعالبحث عن. راجع لقطة الشاشة:
3. بعد ذلك، انتقل إلى مربعاستبدال بـ، وأدخل النص الذي تريد استبداله به. لاحظ أنه لإدخال الرقم الفوقي 3، يجب عليك الضغط مع الاستمرار على مفتاحAlt، ثم الضغط على المفاتيح0179 علىلوحة الأرقام. راجع لقطة الشاشة:
4. انقر علىاستبدال الكل. وسيظهر مربع حوار يُخبرك بعدد عمليات الاستبدال التي تمت. راجع لقطة الشاشة:
تلميح:بهذه الطريقة، يمكنك جعل الرقم 2 فوقيًا بالضغط على 0178، والرقم 3 فوقيًا بالضغط على 0179.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
البحث والاستبدال بتنسيق فوقي باستخدام VBA
باستخدام دالة البحث والاستبدال، يمكنك استبدال الأرقام بتنسيق فوقي فقط. أما إذا كنت ترغب في استبدال الحروف بتنسيق فوقي كما في لقطة الشاشة أدناه، فيمكنك استخدام كود VBA لحل هذه المشكلة.
1. اضغط على مفاتيحAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر علىإدراج > وحدة نمطية (Module)، ثم الصق كود VBA أدناه في النافذة التي تظهر.
VBA: البحث والاستبدال بتنسيق فوقي
Sub DoConvert()
'UpdatebyExtendoffice20160705
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "YL3" Then
xCell.Characters(1, 1).Font.Superscript = True
End If
Next
End Sub
3. اضغط على مفتاحF5 لتشغيل الكود، وسوف يظهر مربع حوار يطلب منك تحديد النطاق. راجع لقطة الشاشة:
4. انقر علىموافق، وسيتم تحويل الحرف المحدد في السلسلة النصية المحددة إلى تنسيق فوقي ضمن التحديد. راجع لقطة الشاشة:
تلميح: في الكود، تمثّل السلسلة "YL3" النص الذي تريد البحث عنه، ويشير(1، 1)إلى تحويل أول حرف واحد من السلسلة. إذا أردت تحويل أول حرفين، غيّره إلى (1، 2)، وإذا أردت تحويل حرف واحد بدءًا من الحرف الثاني في السلسلة، غيّره إلى (2، 1).
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل