ایوان یک کاربرگ دارد که حاوی تعدادی نماد ترکیبات شیمیایی مانند H2O است. هنگامی که برای اولین بار وارد ترکیب می شود، می تواند 2 را به عنوان یک زیرنویس، همانطور که باید فرمت کند. با این حال، ایوان باید مواردی را جستجو کند که در آن 2 مشترک نیست و آن را با نمادی که به درستی ثبت شده جایگزین کند. او فکر می کند که آیا راه آسانی برای انجام این کار وجود دارد؟
هیچ راهی برای انجام این کار با استفاده از ویژگی های Find and Replace اکسل وجود ندارد. دلیل؟ همانطور که یکی از مشترکین ExcelTips می گوید: "اکسل در مدیریت متن غنی در سلول ها بسیار بد است." گواه این واقعیت این است که شما نمی توانید قالب بندی ترکیبی را در یک سلول جستجو کنید یا با قالب بندی ترکیبی جایگزین کنید.
توجه داشته باشید که من گفتم "قالب بندی ترکیبی"، چیزی که ایوان می خواهد - "H" و "O" از قالب بندی متفاوتی نسبت به "2" استفاده می کنند. اگر ایوان می خواست کل محتویات سلول را به متن معمولی تغییر دهد یا مشترک شود، می توانستید از ابزار معمولی Find and Replace استفاده کنید. اگرچه برای قالب بندی ترکیبی کار نمی کند.
این به این معنی است که بهترین رویکرد استفاده از ماکرو برای یافتن و جایگزینی است. چندین راه وجود دارد که می توانید به این موضوع نزدیک شوید. زیر فقط یکی است.
Sub SubscriptNumbers()
Dim c As Range
Dim sWord As String
Dim sChar As String
Dim x As Long
For Each c In Selection
sWord = c.Value
For x = 1 To Len(sWord)
sChar = Mid(sWord, x, 1)
If sChar >= "0" And sChar
برای استفاده از ماکرو، سلول هایی را که می خواهید تغییر دهید انتخاب کنید و سپس آن را اجرا کنید. از هر سلول در انتخاب عبور می کند و سپس محتویات سلول را بررسی می کند. اگر اعدادی در محتویات وجود داشته باشد، آن اعداد به عنوان زیرنویس قالب بندی می شوند.
