فوق نویسندگان در Find and Replace در اکسل

Question

کرک باید مواردی مانند "yd2" را جستجو کند و آن را با "yd2" جایگزین کند، جایی که "2" روی آن نوشته شده است. او فکر می کند که آیا راهی برای انجام این کار در اکسل وجود دارد؟

قابلیت یافتن و جایگزینی اکسل نسبت به Word محدودتر است، جایی که چنین جایگزینی نسبتاً آسانی است. در حالی که می‌توانید اطلاعات خود را به Word صادر کنید، جایگزین‌ها را انجام دهید و سپس آن‌ها را دوباره به اکسل وارد کنید، کارهایی وجود دارد که می‌توانید بدون خروج از اکسل انجام دهید.

با این حال، ابتدا اجازه می دهد چیزی را بررسی کنیم که ممکن است به طور منطقی فکر کنید کار می کند، اما واقعاً اینطور نیست. توجه داشته باشید که برگه Replace در کادر محاوره‌ای Find and Replace راهی برای تعیین ویژگی‌ها برای متنی که می‌خواهید به عنوان جایگزین استفاده کنید ارائه می‌کند. این ممکن است شما را به این فکر برساند که می توانید کارهای زیر را انجام دهید:

1. همه نمونه های yd2 را با yd$*$ جایگزین کنید
2. همه نمونه‌های $*$ را با یک روی 2 جایگزین کنید.

در حالی که این در تئوری خوب به نظر می رسد، کار نخواهد کرد. می‌توانید مراحل را دنبال کنید، از جمله مطمئن شوید که جایگزینی 2 روی صفحه نمایش تنظیم شده است. با این حال، مشکل این است که اکسل فرمت فوق اسکریپ را برای کل سلول اعمال می کند، نه فقط برای سلول 2. بنابراین، شما به طور کامل yd2 را به عنوان ابر اسکریپت دریافت می کنید.

اگر می‌خواهید، می‌توانید از بالانویسی همه با هم صرف‌نظر کنید و فقط از یک کاراکتر تایپ‌فیس استفاده کنید که روی خط به نظر می‌رسد. اگر از کادر محاوره‌ای Symbol استفاده می‌کنید، می‌توانید ارقام 0 تا 3 را پیدا کنید که روی خط ظاهر می‌شوند. اگر از رقم بالای 2 (ASCII 178) در متن جایگزین خود استفاده کنید، می توانید ظاهر دلخواه را بدست آورید. این مراحل را دنبال کنید:

شکل 1. تب Replace از کادر محاوره ای Find and Replace.

1. Ctrl+H را فشار دهید تا تب Replace در کادر محاوره ای Find and Replace نمایش داده شود. (شکل 1 را ببینید.)
2. در کادر Find What yd2 را وارد کنید .
3. در کادر Replace With yd را وارد کنید و سپس کلید Alt را نگه دارید همانطور که 0178 را روی صفحه کلید عددی تایپ می کنید.
4. روی Replace All کلیک کنید.

در نهایت، اگر واقعاً می خواهید از superscripts استفاده کنید، بهترین گزینه استفاده از یک ماکرو برای انجام قالب بندی است. ساده ترین روش به مثال خاص ارائه شده گره خورده است - ساختن 2 در بالانویس yd2.

Sub DoConvert()
    Dim c As Range

    For Each c In Selection.Cells
        If c.Value = "yd2" Then
            c.Characters(3, 1).Font.Superscript = True
        End If
    Next
End Sub

برای استفاده از ماکرو، سلول هایی را که می خواهید تغییر دهید انتخاب کنید، سپس ماکرو را اجرا کنید. هر سلول در انتخاب گام برداشته و بررسی می شود که آیا حاوی متن yd2 است یا خیر. اگر این کار را انجام دهد، کاراکتر سوم (2) فوق‌نویس می‌شود. بقیه سلول بدون مزاحمت است.