كيفية البحث عن الحرف المرتفع واستبداله بسرعة في Excel؟
ابحث واستبدل بخط مرتفع من خلال وظيفة البحث والاستبدال
ابحث واستبدل بخط مرتفع بواسطة VBA
ابحث واستبدل بخط مرتفع من خلال وظيفة البحث والاستبدال
في الواقع ، يمكنك استخدام "بحث واستبدال" للعثور على النص ثم استبداله بتنسيق مرتفع.
1. حدد النطاق الذي تريد البحث عن العمل واستبداله ، ثم اضغط كترل + H لفتح بحث واستبدال الحوار.
2. في ال بحث واستبدال الحوار، انقر فوق استبدل ، ثم أدخل النص الذي تريد البحث عنه في ملف تجد ما مربع الكتابة. انظر لقطة الشاشة:
3. ثم اذهب الى استبدال textbox ، أدخل النص الذي تريد استبداله به ، انتبه ، انتظر قديم مفتاح ثم اضغط 0179 مفاتيح على لوحة الأرقام لإدخال رقم مرتفع 3. انظر لقطة الشاشة:
4. انقر استبدال الكل. وينبثق مربع حوار لتذكيرك بعدد الاستبدالات التي تم إجراؤها. انظر لقطة الشاشة:
تلميح: ولكن باستخدام هذه الطريقة ، يمكنك فقط كتابة رقم 2 بالضغط على 0178 ، و 3 في 0179.
ابحث واستبدل بخط مرتفع بواسطة VBA
باستخدام وظيفة البحث والاستبدال ، يمكن فقط استبدال الرقم بخط مرتفع. إذا كنت تريد استبدال الحرف بالنص المرتفع كما هو موضح أدناه ، يمكنك تطبيق كود VBA لحلها.
1. صحافة ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق أدناه رمز 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. انقر OK، تم تحويل الحرف المحدد في سلسلة معينة إلى تنسيق مرتفع في التحديد. انظر لقطة الشاشة:
معلومه- سرية: في الكود ، "YL3"هي السلسلة التي تريد البحث عنها من و (1، 1) يشير إلى تحويل أول حرف واحد من السلسلة ، إذا كنت تريد تحويل أول حرفين ، فيمكنك تغييره كـ (1 ، 1) ، إذا كنت تريد تحويل حرف واحد من الحرف الثاني من السلسلة ، فيمكنك تغييره كـ ( 2 ، 1).
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!