شریل از یک کاربرگ استفاده می کند که در ستون A، نام های مشتری با قالب «اسمیت، جین» دارد. او می خواهد فقط نام خانوادگی را با حروف بزرگ بنویسد، مانند "SMITH, Jane" و بقیه نام را بدون تغییر باقی بگذارد.
اگر یک و تنها یک کاما وجود دارد که نام خانوادگی را از نام کوچک جدا می کند، می توانید فرمولی برای انجام تبدیل ایجاد کنید. با فرض اینکه نام در A1 باشد، فرمول به صورت زیر خواهد بود:
=UPPER(LEFT(A1,FIND(",",A1)-1))&MID(A1,FIND(",",A1),LEN(A1))
اگر ترجیح می دهید از فرمول استفاده نکنید (که ممکن است ظاهر کاربرگ شما را خراب کند)، می توانید از یک ماکرو نیز برای تبدیل نام ها در محل استفاده کنید. موارد زیر را در نظر بگیرید:
Sub CapitalizeSurnames()
Dim rCell As Range
Dim iComma As Integer
For Each rCell In Selection
iComma = InStr(rCell, ",")
If iComma > 0 Then
rCell = UCase(Left(rCell, iComma - 1)) & _
Mid(rCell, iComma)
End If
Next
Set rCell = Nothing
End Sub
به سادگی سلول هایی را که می خواهید تبدیل کنید (مانند آنهایی که در ستون A هستند) انتخاب کنید و سپس ماکرو را اجرا کنید. تبدیل به نام در سلول ها را انجام می دهد.
